Luis Mariano qui valait mieux que Mexico |
Bonjours à tous , je vais essayer d'ètre succint
Vue d'ensemble du sujet :
je crée , par macro , 2 "Shapes.CommandButton" nommées "PremierBouton" et "SecondBouton" et dont la procédure évènementielle liée à l'évènement "click" , appelle la procédure "Rouge" ...
Je voudrais que cette procédure "Rouge" ,pré-écrite , adapte son action à certain paramètres du bouton qui l'a déclenchée ...
Or, je butte sur 2 problèmes :
- Comment écrire le lien entre l'évènement "click" et la procédure "Rouge" ?
- Comment faire pour que la macro "Rouge" distingue lequel des 2 boutons est à l'origine de son déclenchement , de façon a pourvoir adapter son action a certains paramètres du bouton qui l'a déclenchée ?
Si ça peut aider a la compréhension du problème , je vous écris le code des 2 macros que je tente de mettre en place ...
Code :
- Sub Création_des_boutons()
-
- ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
- , DisplayAsIcon:=False, Left:=444, Top:=99, Width:=44, Height _
- :=99).Select
- Selection.Name = "PremierBouton"
-
- ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
- , DisplayAsIcon:=False, Left:=555, Top:=99, Width:=44, Height _
- :=99).Select
- Selection.Name = "SecondBouton"
-
- PremierBouton_Click Rouge
- SecondBouton_Click Rouge
-
- End Sub
- Sub Rouge()
- ActiveSheet.Range("BB1" ).Interior.ColorIndex = 3
- End Sub
|
les 2 dernière lignes de la première macro ne fonctionnent pas en l'état et ne créent pas les 2 procédures évènementielles souhaitées |
