Passer des arguments à une macro à partir d'un menu
1 réponse
news.wanadoo.fr
Bonjour,
j'ai créé plusieurs contrôles de menu. Chacun doit appeller la même macro,
mais avec des arguments différents. Comment passer ces arguments ? J'ai
trouvé des exemples sur
http://www.erlandsendata.no/english/index.php?d=envbacbbuttonarguments mais
ils ne fonctionnent pas avec Excel2002. Si quelqu'un a été confronté à ce
problème, merci de m'éclairer.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
j
exemple de passage d'argument aux macros à partir de boutons d'une barre attention aux ' et ""
Sub zaza(truc) MsgBox (truc) End Sub
Sub creer_barre() Set nvbar = Application.CommandBars.Add(Name:="barre", Position:=msoBarLeft, temporary:=True) nvbar.Visible = True Set bouton = nvbar.Controls.Add(msoControlButton, 2950) bouton.OnAction = "'module1.zaza 10'" Set bouton = nvbar.Controls.Add(msoControlButton, 2950) bouton.OnAction = "'module1.zaza ""zaza""'" End Sub
http://jacxl.free.fr
"news.wanadoo.fr" a écrit dans le message de news: 41b4a496$0$3399$
Bonjour, j'ai créé plusieurs contrôles de menu. Chacun doit appeller la même macro, mais avec des arguments différents. Comment passer ces arguments ? J'ai trouvé des exemples sur http://www.erlandsendata.no/english/index.php?d=envbacbbuttonarguments mais
ils ne fonctionnent pas avec Excel2002. Si quelqu'un a été confronté à ce problème, merci de m'éclairer.
Cordiales salutations à tous.
Gaëtan
exemple de passage d'argument aux macros à partir de boutons d'une barre
attention aux ' et ""
Sub zaza(truc)
MsgBox (truc)
End Sub
Sub creer_barre()
Set nvbar = Application.CommandBars.Add(Name:="barre", Position:=msoBarLeft,
temporary:=True)
nvbar.Visible = True
Set bouton = nvbar.Controls.Add(msoControlButton, 2950)
bouton.OnAction = "'module1.zaza 10'"
Set bouton = nvbar.Controls.Add(msoControlButton, 2950)
bouton.OnAction = "'module1.zaza ""zaza""'"
End Sub
j@c
http://jacxl.free.fr
"news.wanadoo.fr" <jules@nuke.et> a écrit dans le message de news:
41b4a496$0$3399$8fcfb975@news.wanadoo.fr...
Bonjour,
j'ai créé plusieurs contrôles de menu. Chacun doit appeller la même macro,
mais avec des arguments différents. Comment passer ces arguments ? J'ai
trouvé des exemples sur
http://www.erlandsendata.no/english/index.php?d=envbacbbuttonarguments
mais
ils ne fonctionnent pas avec Excel2002. Si quelqu'un a été confronté à ce
problème, merci de m'éclairer.
exemple de passage d'argument aux macros à partir de boutons d'une barre attention aux ' et ""
Sub zaza(truc) MsgBox (truc) End Sub
Sub creer_barre() Set nvbar = Application.CommandBars.Add(Name:="barre", Position:=msoBarLeft, temporary:=True) nvbar.Visible = True Set bouton = nvbar.Controls.Add(msoControlButton, 2950) bouton.OnAction = "'module1.zaza 10'" Set bouton = nvbar.Controls.Add(msoControlButton, 2950) bouton.OnAction = "'module1.zaza ""zaza""'" End Sub
http://jacxl.free.fr
"news.wanadoo.fr" a écrit dans le message de news: 41b4a496$0$3399$
Bonjour, j'ai créé plusieurs contrôles de menu. Chacun doit appeller la même macro, mais avec des arguments différents. Comment passer ces arguments ? J'ai trouvé des exemples sur http://www.erlandsendata.no/english/index.php?d=envbacbbuttonarguments mais
ils ne fonctionnent pas avec Excel2002. Si quelqu'un a été confronté à ce problème, merci de m'éclairer.
