Discussion :

[Un Internaute]

Bonjour le forum,
Tout est dans le titre.
En effet j'ai affecté une macro à un bouton (insertion Ligne) dans la feuille Janvier 2014. Dans chaque feuille j'ai ce bouton (Février 2014, Mars 2014,Avril 2014 jusqu'à Décembre 2014). Serait-il possible d'éviter de faire à chaque fois => clic droit affecter macro?
Pour l'instant je n'ai aucun début de solution même d'une éventuelle macro.
Si des "amis" du forum ont des astuces je suis preneur. Car j'ai 20 classeurs. FASTIDIEUX
Merci d'avance pour vos réponses

Bien cordialement à vous

[Igloobel]

Bonjour,

Quelques briques pour construire ta macro

1°) je verrai bien un for each shett in Sheets (pour lister tes feuilles)

2°) l'affectation et la création de ton bouton peuvent être faites par l'assitant Macro

3°) tu assembles le tout et on débugge si besoin

A bientôt

[Theze]

Bonjour,

Une piste. Tu peux mettre le code de la proc "AffecterMacro" dans le module du classeur sur la procédure évènementielle "Workbook_Open". Attention, ici il n'y a que le Shape ayant l'index 1 qui exécutera la macro. Si tu as plusieurs Shapes, adapte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub AffecterMacro()
 
    Dim Fe As Worksheet
    Dim Ctrl As Shape
 
    For Each Fe In Worksheets
 
        Set Ctrl = Fe.Shapes(1)
        Ctrl.OnAction = "MaMacro"
 
    Next Fe
 
End Sub
 
Sub MaMacro()
 
    MsgBox "OK, ça marche !"
 
End Sub

Hervé.

[Un Internaute]

Bonjour Igloobel & Theze,

J'ai pris en compte vos suggestions et j'ai fait ceci qui a l'air de fonctionner.
Merci à vous deux pour avoir pris le temps de répondre et de vous intéresser à mes demandes qui sont quelques fois "farfelues"!!!
Bonne fin de soirée à tous
Bien cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Sub ChangeMacroBouton()
Dim Ws As Worksheet
Dim Sh As Shape
Dim Nom As String
 
  Nom = "Insertion Ligne"       'Bien respecter le texte du Bouton
  For Each Ws In Sheets
    For Each Sh In Ws.Shapes
      If Sh.TextFrame.Characters.Text = Nom Then
        Sh.OnAction = "InsererLignes"     ' Bien respecter le nom de la nouvelle macro
        Exit For
      End If
    Next Sh
  Next Ws
End Sub