VBA excel exécuter macro par touche Entrée

Bossa -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Sur Excel, j'ai une macro, nommée "zones", qui fonctionne bien. Et je voudrais l'exécuter en appuyant sur la touche "Entrée" lorsque la cellule "J19" est sélectionnée. C'est-à dire, quand je valide une valeur dans cette cellule, ma macro doit s'exécuter. Voici le code que j'ai essayé :

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Range("j19") = True Then
Application.OnKey "{ENTER}", "Thisworkbook.zones"
End If
End Sub

Mais cela ne fonctionne pas. Pourtant lorsque je fais exécuter directement depuis Microsoft Visual Basic, ça marche bien.
Est-ce que quelqu'un pourrait m'aider ?
A voir également:

1 réponse

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

Essaie avec :
Private Sub Worksheet_Change(ByVal Target As Range)
If intersect(target,Range("j19")) is nothing Then exit sub
Thisworkbook.zones
End Sub

eric
0