Lancer Code après "touche enter"

Bonjour, pour rendre un programme plus manipulable (sur tableau interactif et sur le pc même), je voudrais lancer un code après avoir appuyé sur la touche ENTER.

Pour le moment, quand je clique sur une cellule de ma plage (double clique), la cellule passe de I=>O=>R=>I.... et je voudrais que cela se passe aussi si je clique sur ENTER.

Voici mon code pour le double clique :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("FirstAbsence:LastAbsence")) Is Nothing Then
    If Target.Value = "I" Then
    Target.Value = "o"
    Cancel = True 'empeche de rentrer dans la cellule quand double clique'
    ElseIf Target.Value = "o" Then
    Target.Value = "r"
    Cancel = True
    Else
    Target.Value = "I"
    Cancel = True
    End If

Il existe un Worksheet_ENTER ? Ou bien juste rajouter un AND dans le worksheet?

Merci de votre aide

Bonjour,

A tester

avec récupération des touches de fonction

Amicalement

Pierrot

je vais regarder à ça, dommage pour la touche ENTER.

Merci de ton aide.

Finalement, ce n'est pas du tout ce que je veux. j'ai trouvé avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, Range("FirstAbsence:LastAbsence")) Is Nothing Then

Application.OnKey Key:="~", procedure:="IOR"

Else
Application.OnKey Key:="~"
End If

End Sub

si je suis dans la plage, la touche contrôle appel mon module, si pas il fonctionne normalement

Bonjour,

Je suis heureux que ton problème soit résolu

n'oublies pas de cocher comme étant résolu

Amicalement

Pierrot