VBA excel exécuter macro par touche Entrée

Bossa -  
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 ?
Configuration: Windows XP / Internet Explorer 8.0

1 réponse

  1.  eriiic Contributeur
    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