Bouton macro figé

Bonjour,

-Clic/Droit
-Format de controle
-Propriétés

JB

Bonjour,

J'ai écrit des macros que je voudrais activer à l'aide des boutons ma is
figés sur la feuille de calcul.
Merci de m'orienter j'ai soif de réussir.

Bien à vous
Camerboy

bonjour Camerboy,

une solution serait de mettre ces boutons dans la partie figée de la feuille de calcul.

isabelle

Bonjour,

J'ai écrit des macros que je voudrais activer à l'aide des boutons mais
figés sur la feuille de calcul.
Merci de m'orienter j'ai soif de réussir.

Bien à vous
Camerboy

Avec une BO, les boutons sont accessibles de tous les onglets:

http://cjoint.com/?jwsCTogxMr

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton =
CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton =
CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreBoutons").Delete
End Sub

Sub macro1()
MsgBox "Macro1"
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

JB

Bonjour,

J'ai écrit des macros que je voudrais activer à l'aide des boutons ma is
figés sur la feuille de calcul.
Merci de m'orienter j'ai soif de réussir.

Bien à vous
Camerboy

c'est vrai JB mais, je voudrais des boutons non modifiables sur clic droit.

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1158942556.085778.16600@k70g2000cwa.googlegroups.com...
Avec une BO, les boutons sont accessibles de tous les onglets:

http://cjoint.com/?jwsCTogxMr

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreBoutons").Delete
End Sub

Sub macro1()
MsgBox "Macro1"
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

JB

Bonjour,

J'ai écrit des macros que je voudrais activer à l'aide des boutons mais
figés sur la feuille de calcul.
Merci de m'orienter j'ai soif de réussir.

Bien à vous
Camerboy

c'est bien plus facile mais je voudrais avoir une feuille menu avec des
boutons non modifiables sur clic droit de la souris.


"isabelle" <iii@iii> a écrit dans le message de news:
u2K9%23Lm3GHA.4228@TK2MSFTNGP06.phx.gbl...

bonjour Camerboy,

une solution serait de mettre ces boutons dans la partie figée de la
feuille de calcul.

isabelle

Bonjour,

J'ai écrit des macros que je voudrais activer à l'aide des boutons mais
figés sur la feuille de calcul.
Merci de m'orienter j'ai soif de réussir.

Bien à vous
Camerboy

bonjour Camerboy,

c'est vrai JB mais, je voudrais des boutons non modifiables sur clic droit.

une fois la feuille menu créer, protège cette feuille de calcul.

isabelle

Merci pour votre réponse ça marche mais c'est différent de ce que je
souhaitais faire mais bon...

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1158942556.085778.16600@k70g2000cwa.googlegroups.com...
Avec une BO, les boutons sont accessibles de tous les onglets:

http://cjoint.com/?jwsCTogxMr

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreBoutons").Delete
End Sub

Sub macro1()
MsgBox "Macro1"
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

JB

Bonjour,

J'ai écrit des macros que je voudrais activer à l'aide des boutons mais
figés sur la feuille de calcul.
Merci de m'orienter j'ai soif de réussir.

Bien à vous
Camerboy