Faire apparaître un CommandButton avec un raccourci clavier

[Magic_Doctor]

Rebonjour,

Je voudrais faire apparaître un CommandButton au moyen d'un raccourci clavier.
Par exemple, en tapant CTRL + ALT + Z ---> apparaît un CommandButton

Comment s'y prendre ?

Merci d'un conseil.

 

[Hulk]

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

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.

 

[ROGER2327]

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

Bonjour Magic_Doctor

Une proposition dans le classeur joint.​

ROGER2327

 

[job75]

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+

 

[ROGER2327]

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

Bonsoir à tous

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

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

ROGER2327

 

[job75]

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+

 

[Magic_Doctor]

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 !

 

[job75]

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+

 

[Magic_Doctor]

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

Merci, je ne connaissais pas ces instructions.