appliquer une macro a plusieurs feuilles

[highlander]

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

 

[highlander]

Re : appliquer une macro a plusieurs feuilles

je sais pas pourquoi mais ca veux pas marcher


ca me met bug a ce niveau la
.ClearContents

 

[job75]

Re : appliquer une macro a plusieurs feuilles

Re,

J'ai testé, sans problème chez moi.

Je vous laisse dépatouiller vos problèmes.

A+

 

[highlander]

Re : appliquer une macro a plusieurs feuilles

en tout cas merci beaucoup pour l'aide apportée

a +