J'arrive =E0 l'aide de macro =E0 cr=E9er des menus , des sous-
menus et des boutons.
Comment fait-on pour cr=E9er un raccourcis clavier =E0 l'un=20
des boutons que j'ai cr=E9er (ex : CTRL + SHFT + K) ?
Comment fait-on pour cr=E9er syst=E8me comme pour le=20
bouton "Affichage =3D> Barre d'=E9tat" : lorsqu'on clic sur=20
le bouton Barre d'=E9tat, une action est faite et il y a=20
une sorte de petite croix qui apparait devant le menu.
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
Hervé
Et ced on arrive plus à te suivre, reste dans le fil. Pour un raccourci clavier insère le signe & dans le caption de ton bouton avant la lettre que tu veux utiliser ; .Caption = "&Macro 1" Pour la coche il te faux changer l'image du bouton dans la macro que tu appelle. Pour la même que celle d'Excel il te faut la dessiner à moins que quelqu'un sache sont FaceId. Avec la proc que je t'ai posté plus haut :
Sub Macro2() MsgBox "Macro 2" With CommandBars("MaBarre").Controls("M&acro 2") If .FaceId = 3650 Then .FaceId = 220 Else .FaceId = 3650 End If End With End Sub
Sub Macro1() MsgBox "Macro 1" With CommandBars("MaBarre").Controls("&Macro 1") If .FaceId = 3648 Then .FaceId = 220 Else .FaceId = 3648 End If End With End Sub
Hervé.
"ced" a écrit dans le message news: 0df301c351f5$b676eb30$ salut,
J'arrive à l'aide de macro à créer des menus , des sous- menus et des boutons. Comment fait-on pour créer un raccourcis clavier à l'un des boutons que j'ai créer (ex : CTRL + SHFT + K) ? Comment fait-on pour créer système comme pour le bouton "Affichage => Barre d'état" : lorsqu'on clic sur le bouton Barre d'état, une action est faite et il y a une sorte de petite croix qui apparait devant le menu.
Et ced on arrive plus à te suivre, reste dans le fil.
Pour un raccourci clavier insère le signe & dans le caption de ton bouton
avant la lettre que tu veux utiliser ; .Caption = "&Macro 1"
Pour la coche il te faux changer l'image du bouton dans la macro que tu
appelle. Pour la même que celle d'Excel il te faut la dessiner à moins que
quelqu'un sache sont FaceId. Avec la proc que je t'ai posté plus haut :
Sub Macro2()
MsgBox "Macro 2"
With CommandBars("MaBarre").Controls("M&acro 2")
If .FaceId = 3650 Then
.FaceId = 220
Else
.FaceId = 3650
End If
End With
End Sub
Sub Macro1()
MsgBox "Macro 1"
With CommandBars("MaBarre").Controls("&Macro 1")
If .FaceId = 3648 Then
.FaceId = 220
Else
.FaceId = 3648
End If
End With
End Sub
Hervé.
"ced" <cmarmonier@ifotec.com> a écrit dans le message news:
0df301c351f5$b676eb30$a401280a@phx.gbl...
salut,
J'arrive à l'aide de macro à créer des menus , des sous-
menus et des boutons.
Comment fait-on pour créer un raccourcis clavier à l'un
des boutons que j'ai créer (ex : CTRL + SHFT + K) ?
Comment fait-on pour créer système comme pour le
bouton "Affichage => Barre d'état" : lorsqu'on clic sur
le bouton Barre d'état, une action est faite et il y a
une sorte de petite croix qui apparait devant le menu.
Et ced on arrive plus à te suivre, reste dans le fil. Pour un raccourci clavier insère le signe & dans le caption de ton bouton avant la lettre que tu veux utiliser ; .Caption = "&Macro 1" Pour la coche il te faux changer l'image du bouton dans la macro que tu appelle. Pour la même que celle d'Excel il te faut la dessiner à moins que quelqu'un sache sont FaceId. Avec la proc que je t'ai posté plus haut :
Sub Macro2() MsgBox "Macro 2" With CommandBars("MaBarre").Controls("M&acro 2") If .FaceId = 3650 Then .FaceId = 220 Else .FaceId = 3650 End If End With End Sub
Sub Macro1() MsgBox "Macro 1" With CommandBars("MaBarre").Controls("&Macro 1") If .FaceId = 3648 Then .FaceId = 220 Else .FaceId = 3648 End If End With End Sub
Hervé.
"ced" a écrit dans le message news: 0df301c351f5$b676eb30$ salut,
J'arrive à l'aide de macro à créer des menus , des sous- menus et des boutons. Comment fait-on pour créer un raccourcis clavier à l'un des boutons que j'ai créer (ex : CTRL + SHFT + K) ? Comment fait-on pour créer système comme pour le bouton "Affichage => Barre d'état" : lorsqu'on clic sur le bouton Barre d'état, une action est faite et il y a une sorte de petite croix qui apparait devant le menu.
ced
merci pour ta reponse sur le système pour cocher les menu
par contre pour les raccourcis, c'est pas ça que je voulais : ton système permet de souligner une lettre du menu et de l'appeler en faisant ALT + la lettre. Ce que je veut c'est écrire un raccourcis cour pour "Fichier => Nouveau", sur la droite de nouveau, il est écris CTRL+N et lorsqu'on appuye sur ces deux touches ça lance la fenetre (peu importe dans quelle menu on est).
-----Message d'origine----- Et ced on arrive plus à te suivre, reste dans le fil. Pour un raccourci clavier insère le signe & dans le caption de ton bouton
avant la lettre que tu veux utiliser ; .Caption = "&Macro 1"
Pour la coche il te faux changer l'image du bouton dans la macro que tu
appelle. Pour la même que celle d'Excel il te faut la dessiner à moins que
quelqu'un sache sont FaceId. Avec la proc que je t'ai posté plus haut :
Sub Macro2() MsgBox "Macro 2" With CommandBars("MaBarre").Controls("M&acro 2") If .FaceId = 3650 Then .FaceId = 220 Else .FaceId = 3650 End If End With End Sub
Sub Macro1() MsgBox "Macro 1" With CommandBars("MaBarre").Controls("&Macro 1") If .FaceId = 3648 Then .FaceId = 220 Else .FaceId = 3648 End If End With End Sub
Hervé.
"ced" a écrit dans le message news:
0df301c351f5$b676eb30$ salut,
J'arrive à l'aide de macro à créer des menus , des sous- menus et des boutons. Comment fait-on pour créer un raccourcis clavier à l'un des boutons que j'ai créer (ex : CTRL + SHFT + K) ? Comment fait-on pour créer système comme pour le bouton "Affichage => Barre d'état" : lorsqu'on clic sur le bouton Barre d'état, une action est faite et il y a une sorte de petite croix qui apparait devant le menu.
.
merci pour ta reponse sur le système pour cocher les menu
par contre pour les raccourcis, c'est pas ça que je
voulais : ton système permet de souligner une lettre du
menu et de l'appeler en faisant ALT + la lettre.
Ce que je veut c'est écrire un raccourcis cour
pour "Fichier => Nouveau", sur la droite de nouveau, il
est écris CTRL+N et lorsqu'on appuye sur ces deux touches
ça lance la fenetre (peu importe dans quelle menu on est).
-----Message d'origine-----
Et ced on arrive plus à te suivre, reste dans le fil.
Pour un raccourci clavier insère le signe & dans le
caption de ton bouton
avant la lettre que tu veux utiliser ; .Caption
= "&Macro 1"
Pour la coche il te faux changer l'image du bouton dans
la macro que tu
appelle. Pour la même que celle d'Excel il te faut la
dessiner à moins que
quelqu'un sache sont FaceId. Avec la proc que je t'ai
posté plus haut :
Sub Macro2()
MsgBox "Macro 2"
With CommandBars("MaBarre").Controls("M&acro 2")
If .FaceId = 3650 Then
.FaceId = 220
Else
.FaceId = 3650
End If
End With
End Sub
Sub Macro1()
MsgBox "Macro 1"
With CommandBars("MaBarre").Controls("&Macro 1")
If .FaceId = 3648 Then
.FaceId = 220
Else
.FaceId = 3648
End If
End With
End Sub
Hervé.
"ced" <cmarmonier@ifotec.com> a écrit dans le message
news:
0df301c351f5$b676eb30$a401280a@phx.gbl...
salut,
J'arrive à l'aide de macro à créer des menus , des sous-
menus et des boutons.
Comment fait-on pour créer un raccourcis clavier à l'un
des boutons que j'ai créer (ex : CTRL + SHFT + K) ?
Comment fait-on pour créer système comme pour le
bouton "Affichage => Barre d'état" : lorsqu'on clic sur
le bouton Barre d'état, une action est faite et il y a
une sorte de petite croix qui apparait devant le menu.
merci pour ta reponse sur le système pour cocher les menu
par contre pour les raccourcis, c'est pas ça que je voulais : ton système permet de souligner une lettre du menu et de l'appeler en faisant ALT + la lettre. Ce que je veut c'est écrire un raccourcis cour pour "Fichier => Nouveau", sur la droite de nouveau, il est écris CTRL+N et lorsqu'on appuye sur ces deux touches ça lance la fenetre (peu importe dans quelle menu on est).
-----Message d'origine----- Et ced on arrive plus à te suivre, reste dans le fil. Pour un raccourci clavier insère le signe & dans le caption de ton bouton
avant la lettre que tu veux utiliser ; .Caption = "&Macro 1"
Pour la coche il te faux changer l'image du bouton dans la macro que tu
appelle. Pour la même que celle d'Excel il te faut la dessiner à moins que
quelqu'un sache sont FaceId. Avec la proc que je t'ai posté plus haut :
Sub Macro2() MsgBox "Macro 2" With CommandBars("MaBarre").Controls("M&acro 2") If .FaceId = 3650 Then .FaceId = 220 Else .FaceId = 3650 End If End With End Sub
Sub Macro1() MsgBox "Macro 1" With CommandBars("MaBarre").Controls("&Macro 1") If .FaceId = 3648 Then .FaceId = 220 Else .FaceId = 3648 End If End With End Sub
Hervé.
"ced" a écrit dans le message news:
0df301c351f5$b676eb30$ salut,
J'arrive à l'aide de macro à créer des menus , des sous- menus et des boutons. Comment fait-on pour créer un raccourcis clavier à l'un des boutons que j'ai créer (ex : CTRL + SHFT + K) ? Comment fait-on pour créer système comme pour le bouton "Affichage => Barre d'état" : lorsqu'on clic sur le bouton Barre d'état, une action est faite et il y a une sorte de petite croix qui apparait devant le menu.
