VBA excel exécuter macro par touche Entrée

Fermé
Bossa - 15 mars 2010 à 01:37
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 15 mars 2010 à 07:49
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 mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
15 mars 2010 à 07:49
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