OVH Cloud OVH Cloud

Affecter automatiquement une macro existante à un bouton

4 réponses
Avatar
jlborgogno
Bonjour à tous,

J'ai un soucis lorsque je crée une barre d'outil avec une macro, la barre
d'outil se crée bien avec les boutons, mais je ne connais pas la
programmation pour que les macros et les noms des boutons s'affectent
automatiquement.
Quelqu'un pourrait me venir en aide?
Merci d'avance
JL

4 réponses

Avatar
Gaenonius
LeBouton.OnAction="LaMacro"
(pour affecter une macro)
LeBouton.Caption="Ton bouton"
(pour lui donner un intitulé)

--
Gaenonius

Bonjour à tous,

J'ai un soucis lorsque je crée une barre d'outil avec une macro, la barre
d'outil se crée bien avec les boutons, mais je ne connais pas la
programmation pour que les macros et les noms des boutons s'affectent
automatiquement.
Quelqu'un pourrait me venir en aide?
Merci d'avance
JL






Avatar
Bourby
bonjour,

utilise l'évènement _click; par exemple (la macro à exécuter étant
EssaiBouton):

Private Sub cb1Essai_Click()
EssaiBouton
End Sub

nota: cb1Essai est la propriété "name" du bouton, pas la propriété
"caption".

Cordialement

Bourby


"jlborgogno" a écrit dans le message news:
41d30b28$0$17382$
Bonjour à tous,

J'ai un soucis lorsque je crée une barre d'outil avec une macro, la barre
d'outil se crée bien avec les boutons, mais je ne connais pas la
programmation pour que les macros et les noms des boutons s'affectent
automatiquement.
Quelqu'un pourrait me venir en aide?
Merci d'avance
JL






Avatar
jlborgogno
Merci de m'avoir répondus, par contre je voudrais l'insérer dans le scpit
suivant:

Application.CommandBars("Barre d'outil 1").Controls.Add
Type:=msoControlButton, Id:= _
108, Before:=1
Comment fait-on

Merci

"Gaenonius" a écrit dans le message news:
#7EH$
LeBouton.OnAction="LaMacro"
(pour affecter une macro)
LeBouton.Caption="Ton bouton"
(pour lui donner un intitulé)

--
Gaenonius

Bonjour à tous,

J'ai un soucis lorsque je crée une barre d'outil avec une macro, la
barre


d'outil se crée bien avec les boutons, mais je ne connais pas la
programmation pour que les macros et les noms des boutons s'affectent
automatiquement.
Quelqu'un pourrait me venir en aide?
Merci d'avance
JL








Avatar
Gaenonius
Sub essai()
With Application.CommandBars("Barre d'outil 1").Controls.Add _
(Type:=msoControlButton, ID:8, Before:=1)
.Caption = "MonBouton"
.OnAction = "MaMacro"
End With
End Sub

--
Gaenonius

Merci de m'avoir répondus, par contre je voudrais l'insérer dans le scpit
suivant:

Application.CommandBars("Barre d'outil 1").Controls.Add
Type:=msoControlButton, Id:= _
108, Before:=1
Comment fait-on

Merci

"Gaenonius" a écrit dans le message news:
#7EH$

LeBouton.OnAction="LaMacro"
(pour affecter une macro)
LeBouton.Caption="Ton bouton"
(pour lui donner un intitulé)

--
Gaenonius


Bonjour à tous,

J'ai un soucis lorsque je crée une barre d'outil avec une macro, la



barre

d'outil se crée bien avec les boutons, mais je ne connais pas la
programmation pour que les macros et les noms des boutons s'affectent
automatiquement.
Quelqu'un pourrait me venir en aide?
Merci d'avance
JL