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 836
Messages
2 092 652
Membres
105 479
dernier inscrit
chaussadas.renaud