Bonjour
Je reviens vers vous pour demander de l'aide, après avoir enregistré une macro par laquelle je souhaite copier la plage de cellule de la feuil1 (A7:A19) dans la feuil2 (G10:G22)
code:
Private Sub Worksheet_Activate()
Le moment où j'active la Feuil2 pour l'éxecution de la macro j'obtiens le message suivant: (l'erreur 9 la méthode Select de la classe Range a échoué)
j'ai cherché un peu par tout dans les forums j'ai pas réussi à corriger cette erreur.
Ci-joint le fichier exemple
La règle d'or en VBA c'est d'éviter autant que possible les Select et autre Activate. Ils ne font que ralentir l'exécution du code et sont source de nombreux plantages. Ton code modifié :
VB:
Private Sub Worksheet_Activate()
Sheets("Feuil1").Range("A7:A19").Copy
Me.Range("G12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
La règle d'or en VBA c'est d'éviter autant que possible les Select et autre Activate. Ils ne font que ralentir l'exécution du code et sont source de nombreux plantages. Ton code modifié :
VB:
Private Sub Worksheet_Activate()
Sheets("Feuil1").Range("A7:A19").Copy
Me.Range("G12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
La règle d'or en VBA c'est d'éviter autant que possible les Select et autre Activate. Ils ne font que ralentir l'exécution du code et sont source de nombreux plantages. Ton code modifié :
VB:
Private Sub Worksheet_Activate()
Sheets("Feuil1").Range("A7:A19").Copy
Me.Range("G12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Bonjour Robert
je ne sais pourquoi ça ne fonctionne pas pour le classeur ci-joint j'ai un message d'erreur 9 l'indice n'appartient pas à la sélection.
merci de ton aide.
voir Feui7(LUNDI) et Feuil11(LUNDI COUPE PRO)