Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro avec combinaison de touche sur une cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

olivepao

XLDnaute Occasionnel
🙂 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 :

Code:
[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 .

Code:
[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.
 
Re : Macro avec combinaison de touche sur une cellule

Bonjour Olive,

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

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
253
Réponses
3
Affichages
590
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…