ctrl+B dans une macro

[muzan97]

Bonjour à tous,

J'aimerais créer une petite macro contenant la fonction activée par ctrl+B (qui recopie la cellule juste au dessus).
La macro se composerait de 2 actions : flèche vers le bas+ctrl B
J'ai tenté de l'enregistrer en temps réel mais ça ne marche pas.
Voilà ce que ça donne :

Sub b()
'
' b Macro
'

'
Range("A121").Select
Selection.FillDown
End Sub

le ctrl B n'est pas pris en compte...

Pouvez vous m'aider svp ?

Merci

 

[sourcier08]

Re : ctrl+B dans une macro

Salut muzan97, le forum.

Il existe une méthode pour ça, malheureusement, il m'est impossible de placer une touche spéciale comme la fléche du bas {DOWN} avec une touche alphabétique. Ce qui n'est pas précisé dans l'aide EXCEL.
Il faudra se contenter de CTRL + B dans un premier temps. Si un autre membre a la solution, je suis preneur.

Donc, le plus simple est de l'introduire dans ThisWorkbook en événement, à l'ouverture du classeur.

Private Sub Workbook_Open()

Application.OnKey "^b", "ctrl_b"

End Sub

Ensuite, dans un module, tu places ta macro.

Sub ctrl_b()

Range("A121").Select
Selection.FillDown
End Sub

La syntaxe de OnKey est :
expression.OnKey(Touche, Procédure)

Dans l'aide Excel, "^" représente la touche "Ctrl".

La touche est donc ici la combinaison Ctrl + b précisée par "^b".
La procédure est la macro nommée ctrl_b qu'on exécutera avec.