Copie de cellules par VBA
Bonjour,
Je ne comprend pas, j'ai des commandes qui fonctionne un jour puis dans une autre prg cela ne fonctionne pas, voici mon code il bloque a la ligne : Range("B2").Select
et je voit pas pourquoi :
Dim varNumMvt As byte
Private Sub Go_Click()
varNumMvt = InputBox("Quel est le numéro de ton mouvement ?", "N° de mvt")
Sheets("go").Range("g3").Select
ActiveCell = varNumMvt
Sheets("donnees").Select
Range("B2").Select
Selection.Copy
Sheets("go").Select
Range("G5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
C'est peut-être pas cette ligne qui plante mais celle juste avant, tu as bien une feuille nommée "donnees" ?
PS : Le code en plus propre :
Option Explicit
Dim varNumMvt As Byte
Private Sub Go_Click()
varNumMvt = InputBox("Quel est le numéro de ton mouvement ?", "N° de mvt")
Sheets("go").Range("g3").Select
ActiveCell = varNumMvt
Sheets("donnees").Range("B2").Copy
Sheets("go").Range("G5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End SubDerien
Ps : Utilise plutôt le bouton suivant
disponible en bas de la page pour mettre ton post en résolu
Bonne journée.