appliquer une macro a plusieurs feuilles

highlander

XLDnaute Nouveau
bonjour,

J'ai créer un bouton qui permet de supprimer la couleur et le contenue de cellule.

voici le code :

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If MsgBox("Voulez vous vider l'EDT ?", vbInformation + vbYesNo, "Voulez vous vider l'EDT ?") = vbYes Then

Range("C4:AC10").ClearContents
Range("C4:AC10").Interior.ColorIndex = xlNone

Range("C12:AC18").ClearContents
Range("C12:AC18").Interior.ColorIndex = xlNone

Range("C20:AC26").ClearContents
Range("C20:AC26").Interior.ColorIndex = xlNone

Range("C28:AC34").ClearContents
Range("C28:AC34").Interior.ColorIndex = xlNone

Range("C36:AC42").ClearContents
Range("C36:AC42").Interior.ColorIndex = xlNone

Else
Exit Sub
End If

End Sub

ce bouton se trouve dans l'onglet feuil01 (le nom de l'onglet dépend d'une autre macro qui lui donne un nom)
je voudrais qu'en doublecliquant sur le bouton la macro marche pour les feuil03 à feuil63

merci
 

Statistiques des forums

Discussions
312 864
Messages
2 093 014
Membres
105 609
dernier inscrit
KTZ49