Affecter macro à 12 mois de l'année

Bonjour le forum

J'ai un classeur de 12 feuilles (mois) et c'est très fastidieux d'affecter à chaque bouton (rectangle) la macro qui va avec.

Existe t-il une macro qui peut faire ça?

Pas trouvé sur le forum ou peut-être pas bien vu.

Merci d'avance pour vos éventuels retours

Bien cordialement à vous

PS: Je ne peux pas joindre de fichier car trop confidentiel

bonjour,

Tu relis ton message et tu reformules.

Il y a certainement une procédure qui peut répondre à ta question.

Mais, tu joins un classeur représentatif !...

Nota : des données confidentielles, OK, mais des données trop confidentielles, c'est le top !...

Et le très fastidieux est fort aussi...

Bonjour Jean-Eric

Voilà un fichier épuré.

Oui je comfirme 12 * 40 =?

Merci d'avance pour les éventuels retours

Bien cordialement

Oubli du fichier mais le voici.

Cordialement

Bonjour le forum

Pas le début de solution?

Bonne journée à vous

Cordialement

Bonjour,

Un point est à mettre devant Rows pour que la propriété réfère à l'objet sous bloc With. Mais tu peux faire plus simplement :

Sub AfficherMasquerDistanceMoisPrecedent()
    With ActiveSheet
        .Unprotect
        With .Rows(5)
            .Hidden = Not .Hidden
        End With
        .Protect
    End With
End Sub

Sinon, ta macro est à affecter à tous les boutons (Shapes). Quel est le problème ?

Cordialement.

Bonjour MFerrand

Il n'y aucun problème sauf que je cherche à affecter la macro à tout le classeur et non clic droit => affecter macro pour chaque feuille

Merci à toi

Cordialement

Bah ! Tu n'en as pas 100 !

Tu peux de toute façon toujours faire une macro pour l'affecter :

tu défiles tes feuilles, si tu n'as qu'une forme par feuille, ce sera ....Shapes(1), si tu en as plusieurs, il faudra les défiler sur chaque feuille pour tester si le nom ... Like "Rectangle*" ... (à condition de ne pas avoir plusieurs rectangle, et tu affectes la macro par la propriété de l'objet Shape : ....OnAction = "NomProcédure"

Re-bonjour MFerrand

Le problème c'est que j'ai de nombreux classeurs de ce type

Où là là trop compliqué pour moi.

j'ai oublié de dire que j'ai 6 boutons par feuille (tous les mêmes) *par 12 =72 * par 40 classeurs = ça fait beaucoup de clic droit

Merci à toi et bonne journée

Bien cordialement