j'ai cr=E9=E9 un menu avec des boutons de cette fa=E7on
Set aMenu =3D Application.CommandBars(1).Controls.Add
(Type:=3DmsoControlPopup, Temporary:=3DTrue)
aMenu.Caption =3D "MonMenu"
With aMenu
=20
Set Bouton =3D .Controls.Add(msoControlButton)
With Bouton
.OnAction =3D "Message1"
.Caption =3D "Message1"
End With
Set Bouton =3D .Controls.Add(msoControlButton)
With Bouton
.OnAction =3D "Message2"
.Caption =3D "Message2"
End With
Set Bouton =3D .Controls.Add(msoControlButton)
With Bouton
.OnAction =3D "Message3"
.Caption =3D "Message3"
End With
=20
Set Bouton =3D .Controls.Add(msoControlButton)
With Bouton
.OnAction =3D "Message4"
.Caption =3D "Message4"
End With
...
je voudrais que lorsque j'appuye sur l'un des bouton, je=20
change la valeur de "caption". Le probl=E8me c'est que je=20
ne sais pas comment selectionner l'un des boutons pour=20
pouvoir ensuite changer l'attribut "caption", comment=20
faut-il faire ?
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
Frédéric Sigonneau
Bonsoir,
Introduit le changement de la propriété Caption du bouton appelant (accessible par 'CommandBars.ActionControl') dans la procédure qui lui est affectée. Par exemple, pour le bouton "Message3" :
Sub Message3() With CommandBars.ActionControl If .Caption = "Cliqué" & .Index Then _ .Caption = "Message" & .Index Else _ .Caption = "Cliqué" & .Index End With 'le reste de ton code End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
salut,
j'ai créé un menu avec des boutons de cette façon
Set aMenu = Application.CommandBars(1).Controls.Add (Type:=msoControlPopup, Temporary:=True) aMenu.Caption = "MonMenu"
With aMenu
Set Bouton = .Controls.Add(msoControlButton) With Bouton .OnAction = "Message1" .Caption = "Message1" End With
Set Bouton = .Controls.Add(msoControlButton) With Bouton .OnAction = "Message2" .Caption = "Message2" End With
Set Bouton = .Controls.Add(msoControlButton) With Bouton .OnAction = "Message3" .Caption = "Message3" End With
Set Bouton = .Controls.Add(msoControlButton) With Bouton .OnAction = "Message4" .Caption = "Message4" End With
...
je voudrais que lorsque j'appuye sur l'un des bouton, je change la valeur de "caption". Le problème c'est que je ne sais pas comment selectionner l'un des boutons pour pouvoir ensuite changer l'attribut "caption", comment faut-il faire ?
Bonsoir,
Introduit le changement de la propriété Caption du bouton appelant (accessible
par 'CommandBars.ActionControl') dans la procédure qui lui est affectée. Par
exemple, pour le bouton "Message3" :
Sub Message3()
With CommandBars.ActionControl
If .Caption = "Cliqué" & .Index Then _
.Caption = "Message" & .Index Else _
.Caption = "Cliqué" & .Index
End With
'le reste de ton code
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
salut,
j'ai créé un menu avec des boutons de cette façon
Set aMenu = Application.CommandBars(1).Controls.Add
(Type:=msoControlPopup, Temporary:=True)
aMenu.Caption = "MonMenu"
With aMenu
Set Bouton = .Controls.Add(msoControlButton)
With Bouton
.OnAction = "Message1"
.Caption = "Message1"
End With
Set Bouton = .Controls.Add(msoControlButton)
With Bouton
.OnAction = "Message2"
.Caption = "Message2"
End With
Set Bouton = .Controls.Add(msoControlButton)
With Bouton
.OnAction = "Message3"
.Caption = "Message3"
End With
Set Bouton = .Controls.Add(msoControlButton)
With Bouton
.OnAction = "Message4"
.Caption = "Message4"
End With
...
je voudrais que lorsque j'appuye sur l'un des bouton, je
change la valeur de "caption". Le problème c'est que je
ne sais pas comment selectionner l'un des boutons pour
pouvoir ensuite changer l'attribut "caption", comment
faut-il faire ?
Introduit le changement de la propriété Caption du bouton appelant (accessible par 'CommandBars.ActionControl') dans la procédure qui lui est affectée. Par exemple, pour le bouton "Message3" :
Sub Message3() With CommandBars.ActionControl If .Caption = "Cliqué" & .Index Then _ .Caption = "Message" & .Index Else _ .Caption = "Cliqué" & .Index End With 'le reste de ton code End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
salut,
j'ai créé un menu avec des boutons de cette façon
Set aMenu = Application.CommandBars(1).Controls.Add (Type:=msoControlPopup, Temporary:=True) aMenu.Caption = "MonMenu"
With aMenu
Set Bouton = .Controls.Add(msoControlButton) With Bouton .OnAction = "Message1" .Caption = "Message1" End With
Set Bouton = .Controls.Add(msoControlButton) With Bouton .OnAction = "Message2" .Caption = "Message2" End With
Set Bouton = .Controls.Add(msoControlButton) With Bouton .OnAction = "Message3" .Caption = "Message3" End With
Set Bouton = .Controls.Add(msoControlButton) With Bouton .OnAction = "Message4" .Caption = "Message4" End With
...
je voudrais que lorsque j'appuye sur l'un des bouton, je change la valeur de "caption". Le problème c'est que je ne sais pas comment selectionner l'un des boutons pour pouvoir ensuite changer l'attribut "caption", comment faut-il faire ?
