Macro avec combinaison de touche sur une cellule

[olivepao]

🙂 Bonjour tout le monde 🙂

Je désire lancer une macro avec une combinaison de touches UNIQUEMENT lorsque le curseur est dans une cellule donnée.

J'ai créé la macro suivante :

[COLOR="Blue"]Private Sub Workbook_Open()

' Macro lancée à la combinaison des touches CTRL+Alt+z

Application.OnKey "^%{z}", "Ma_Procedure"

End Sub

End Sub[/COLOR]

Cette macro exécute Ma_Procedure sur n'importe quelle cellule active quand je tape CTRL+Alt+z.

Maintenant, je désire que cette combinaison ne fonctionne que sur la cellule B3. J'ai donc modifié ma macro comme suit .

[COLOR="blue"]Private Sub Workbook_Open()

' Macro lancée à la combinaison des touches CTRL+Alt+z uniquement sur B3

If ActiveCell.Address = Worksheets("Ma_Feuille").Range("B3") Then

Application.OnKey "^%{z}", "Ma_Procedure"

End If

End Sub[/COLOR]

Malheureusement, mon If ne fonctionne pas, la combinaison continue à fonctionner sur toutes les cellules.

Quelqu'un a-t-il une idée géniale à me proposer.

 

[Guest]

Re : Macro avec combinaison de touche sur une cellule

Bonjour Olive,

code a mettre dans le module de la feuille "MaFeuille"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Address = "$B$3" Then
        Application.OnKey "^%{z}", "Ma_Procedure"
    Else
       Application.OnKey "^%{z}", ""
    End If
End Sub

Ici j'utilise ActiveCell et non Target car Target peut recouvrer plusieurs cellules.

A bientôt

 

[olivepao]

Re : Macro avec combinaison de touche sur une cellule

🙂 🙂 🙂 🙂

Merci Hasco

Ça fonctionne nickel chrome !

A++