OVH Cloud OVH Cloud

Raccourci clavier sur xla ?

5 réponses
Avatar
John Fuss
Bonjour,

plusieurs questions :

je voudrai mettre un collage spécial sur Ctrl+B

dois-je obligatoirement passer par PERSO.XLS ou je peux parametrer un
raccourci clavier dans une de mes macros complémentaires.

Sinon existe t'il tout simplement un raccourci clavier pour le collage
spécial par valeurs ? (Je l'ai pas trouvé dans l'aide XL)

Merci d'avance.

John.

5 réponses

Avatar
michdenis
Bonjour John,

Dans un module standard Ou to perso.xls

'---------------
Sub OuvrirFenêtreCollageSpecial()

Application.CommandBars.FindControl(ID:u5).Execute

End Sub
'---------------


Dans le ThisWorkbook de ton classeur :

'-------------------
Private Sub Workbook_Open()

Application.OnKey "^b", "OuvrirFenêtreCollageSpecial"

End Sub
'-------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Efface le raccourci clavier ....
Application.OnKey "^b"

End Sub
'-------------------


Salutations!




"John Fuss" a écrit dans le message de news:c82503$p0e$
Bonjour,

plusieurs questions :

je voudrai mettre un collage spécial sur Ctrl+B

dois-je obligatoirement passer par PERSO.XLS ou je peux parametrer un
raccourci clavier dans une de mes macros complémentaires.

Sinon existe t'il tout simplement un raccourci clavier pour le collage
spécial par valeurs ? (Je l'ai pas trouvé dans l'aide XL)

Merci d'avance.

John.
Avatar
John Fuss
J'ai déja réalisé tout ça et ça fonctionne très bien, merci.

Mais pas de possibilité de gérer un raccourci clavier pour lancer une
focntion présente dans une macro complémentaire !?! Si j'ai bien tout
compris !

John



"michdenis" a écrit dans le message de
news:%
Bonjour John,

Dans un module standard Ou to perso.xls

'---------------
Sub OuvrirFenêtreCollageSpecial()

Application.CommandBars.FindControl(ID:u5).Execute

End Sub
'---------------


Dans le ThisWorkbook de ton classeur :

'-------------------
Private Sub Workbook_Open()

Application.OnKey "^b", "OuvrirFenêtreCollageSpecial"

End Sub
'-------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Efface le raccourci clavier ....
Application.OnKey "^b"

End Sub
'-------------------


Salutations!




"John Fuss" a écrit dans le message de
news:c82503$p0e$

Bonjour,

plusieurs questions :

je voudrai mettre un collage spécial sur Ctrl+B

dois-je obligatoirement passer par PERSO.XLS ou je peux parametrer un
raccourci clavier dans une de mes macros complémentaires.

Sinon existe t'il tout simplement un raccourci clavier pour le collage
spécial par valeurs ? (Je l'ai pas trouvé dans l'aide XL)

Merci d'avance.

John.





Avatar
michdenis
Bonjour John,

Avec seulement la partie du code contenu dans le ThisWorkbook, ça ne fonctionne pas pour appeler une macro dans le
fichier des macros complémentaires ? Je n'ai pas un environnement sous la main me permettant de faire un test !


Salutations!






"John Fuss" a écrit dans le message de news:c82d3i$tng$
J'ai déja réalisé tout ça et ça fonctionne très bien, merci.

Mais pas de possibilité de gérer un raccourci clavier pour lancer une
focntion présente dans une macro complémentaire !?! Si j'ai bien tout
compris !

John



"michdenis" a écrit dans le message de
news:%
Bonjour John,

Dans un module standard Ou to perso.xls

'---------------
Sub OuvrirFenêtreCollageSpecial()

Application.CommandBars.FindControl(ID:u5).Execute

End Sub
'---------------


Dans le ThisWorkbook de ton classeur :

'-------------------
Private Sub Workbook_Open()

Application.OnKey "^b", "OuvrirFenêtreCollageSpecial"

End Sub
'-------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Efface le raccourci clavier ....
Application.OnKey "^b"

End Sub
'-------------------


Salutations!




"John Fuss" a écrit dans le message de
news:c82503$p0e$

Bonjour,

plusieurs questions :

je voudrai mettre un collage spécial sur Ctrl+B

dois-je obligatoirement passer par PERSO.XLS ou je peux parametrer un
raccourci clavier dans une de mes macros complémentaires.

Sinon existe t'il tout simplement un raccourci clavier pour le collage
spécial par valeurs ? (Je l'ai pas trouvé dans l'aide XL)

Merci d'avance.

John.





Avatar
Alain CROS
Bonjour.

Ceci a l'air de fonctionner chez moi.

Sub RaccouciClavierXLA()
Application.OnKey "^b", "'MaXLA.xla'!MaProcDansXla"
End Sub

Alain CROS

"John Fuss" a écrit dans le message de news: c82d3i$tng$
J'ai déja réalisé tout ça et ça fonctionne très bien, merci.

Mais pas de possibilité de gérer un raccourci clavier pour lancer une
focntion présente dans une macro complémentaire !?! Si j'ai bien tout
compris !

John


Avatar
John Fuss
Merci ça fonctionne.

John

"Alain CROS" a écrit dans le message de
news:
Bonjour.

Ceci a l'air de fonctionner chez moi.

Sub RaccouciClavierXLA()
Application.OnKey "^b", "'MaXLA.xla'!MaProcDansXla"
End Sub

Alain CROS

"John Fuss" a écrit dans le message de news:
c82d3i$tng$

J'ai déja réalisé tout ça et ça fonctionne très bien, merci.

Mais pas de possibilité de gérer un raccourci clavier pour lancer une
focntion présente dans une macro complémentaire !?! Si j'ai bien tout
compris !

John