Faire apparaître un CommandButton avec un raccourci clavier

Hulk

XLDnaute Barbatruc

• 24 Juin 2009

• #2

Re : Faire apparaître un CommandButton avec un raccourci clavier

Hello,

Sauf erreur, sur Excel 2003, tu ne peux pas.

Tu peux Ctrl+Z ou Ctrl+Maj+Z, mais tu ne peux pas combiner avec le Alt... me répète sauf erreur.

Mets ce code dans un module standar

Code:

Sub Bouton()

    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=384.75, Top:=34.5, Width:=89.25, Height _
        :=30.75).Select
        
End Sub

Ensuite tu sors de l'éditeur de macro et tu fais Alt+F8 du clavier et dans la fenêtre qui s'ouvre tu sélectionnes la macro "Bouton" et tu cliques sur "Option".

Là, tu mets le raccourci que tu veux.
Essaye en combinant avec Alt, mais pour moi ça ne joue pas... que Ctrl et Maj.

Cdt, Hulk.

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Juin 2009

• #3

Re : Faire apparaître un CommandButton avec un raccourci clavier

Bonjour Magic_Doctor

Une proposition dans le classeur joint.​

ROGER2327

 

Pièces jointes

• MagicDoctor.xls

  25.5 KB · Affichages: 78
• MagicDoctor.xls

  25.5 KB · Affichages: 72
• MagicDoctor.xls

  25.5 KB · Affichages: 73

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juin 2009

• #4

Re : Faire apparaître un CommandButton avec un raccourci clavier

Bonsoir Magic Doctor, Hulk, Roger,

En utilisant le fichier de Roger (merci), le bouton réapparaît avec les touches Ctrl+Alt+Z 😛

Edit : enregistrer d'abord le fichier sur le bureau

A+

 

Pièces jointes

• MagicDoctor.xls

  33 KB · Affichages: 54
• MagicDoctor.xls

  33 KB · Affichages: 60
• MagicDoctor.xls

  33 KB · Affichages: 55

Dernière édition: 24 Juin 2009

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Juin 2009

• #5

Re : Faire apparaître un CommandButton avec un raccourci clavier

Bonsoir à tous

job75 à dit:

En utilisant le fichier de Roger (merci), le bouton réapparaît avec les touches Ctrl+Alt+Z 😛

Cliquez pour agrandir...

Gaffe quand même ! Je m'en tiendrai prudemment à Ctrl + Maj + Z.​

ROGER2327

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juin 2009

• #6

Re : Faire apparaître un CommandButton avec un raccourci clavier

Re,

Tout à fait d'accord Roger, c'était juste pour montrer que Alt était possible.

A+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2009

• #7

Re : Faire apparaître un CommandButton avec un raccourci clavier

Merci à vous tous,

En fait je voulais un raccouci clavier, au hasard j'avais mis CTRL + Alt + z.
Roger nous conseille plutôt CTRL + Maj + z. Pourquoi pas, c'est toujours un raccourci !
En revanche pourquoi la 1ère option est-elle moins stable que la 2de ?

Question à Job. Que signifie ce mystérieux : Application.OnKey "^%z", "toto"

Je me rangerai dans l'avis de la prudence et conserverai donc la solution de Roger.

J'en profite pour joindre une pièce que j'avais adressée sur un précédent fil et qui montre que ça fonctionne parfaitement bien.

Bonne soirée à tous et encore merci !

 

Pièces jointes

• Occulter Feuille.zip

  23.7 KB · Affichages: 42
• Occulter Feuille.zip

  23.7 KB · Affichages: 38
• Occulter Feuille.zip

  23.7 KB · Affichages: 34

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juin 2009

• #8

Re : Faire apparaître un CommandButton avec un raccourci clavier

Re,

L'instruction Application.OnKey "^%z", "toto" n'a rien de mystérieux, elle ordonne simplement que si l'on tape la série Ctrl("^")+Alt("%")+"z" la macro "toto" doit s'exécuter.

Si l'on veut annuler cet ordre, il faut exécuter simplement Application.OnKey "^%z"

Voir l'aide VBA sur OnKey.

En fait cette instruction ne présente aucun danger, car de toute façon l'ordre s'annule quand on ferme Excel.

A+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2009

• #9

Re : Faire apparaître un CommandButton avec un raccourci clavier

Merci, je ne connaissais pas ces instructions.

 

Vote positif 0 Vote négatif