Private Sub Worksheet_Change(ByVal Target As Range)'<-- !!STOP!! ceci est un événement !!! If Application.EnableEvents = False Then Exit Sub ' <-- ne sert à rien ici car si les événements sont désactivés tu ne viendras jamais ici !! Dim isect As Range Dim line As Integer Dim val As Integer If IsNumeric(target.Value) Then oldval = target.Value Application.EnableEvents = False ' avec ou sans EnableEvents cela ne change rien Application.OnKey "~", "watchenter" Application.EnableEvents = True End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question