Bjr à tous,
J'ai créer une marco, avec l'enregistreur de macro, et j'ai mis se code dans un bouton effacer, et ca ne fonctionne pas. Il me met comme erreur "erreur d'execution 1004, la methode select de la classe range à échoué", puisque je n'est pas taper le code moi même, je ne comprend pas pourquoi ca ne fonctionne pas.
Mercide votre aide
J'ai créer une marco, avec l'enregistreur de macro, et j'ai mis se code dans un bouton effacer, et ca ne fonctionne pas. Il me met comme erreur "erreur d'execution 1004, la methode select de la classe range à échoué", puisque je n'est pas taper le code moi même, je ne comprend pas pourquoi ca ne fonctionne pas.
Code:
Private Sub btn_effacer_Click()
' efface le contenu des cellules B6 à AF44, sur les mois de 31 jours
Sheets(Array("Janv", "Mars", "Mai", "Juil", "Aout", "Oct", "Dec")).Select
Range("B6:AF44").Select
Selection.Interior.ColorIndex = xlNone
'efface le contenu des cellules B6 à AD44 sur le mois de février
Sheets("Fev").Select
ActiveWindow.LargeScroll ToRight:=-1
Range("B6:AD44").Select
Selection.Interior.ColorIndex = xlNone
'efface le contenu des cellules de B6 à AE44 sur les mois de 30 jours
Sheets(Array("Avr", "Juin", "Sept", "Nov")).Select
Range("B6:AE44").Select
Selection.Interior.ColorIndex = xlNone
'retour à la feuille gestion
Sheets("Gestion").Select
End Sub