Bonjour à toutes et à tous,
J'ai un nouveau souci dans mon classeur (Grrrr ça marchait avant LOL)
Je n'arrive plus à faire en sortes que les macros soient actives ?????
J'ai fait un fichier test qui contient dans le code de la feuille1 les codes suivants :
Pourtant, dans les codes j'ai mis des "Application.EnableEvents = True" partout
et je n'ai pas mis de "False".
Pourriez-vous me dire ce que j'ai zappé ?
Je joins le fichier test,
Grands Merci à vous toutes et tous,
Amicalement,
Lionel,,
J'ai un nouveau souci dans mon classeur (Grrrr ça marchait avant LOL)
Je n'arrive plus à faire en sortes que les macros soient actives ?????
J'ai fait un fichier test qui contient dans le code de la feuille1 les codes suivants :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$3" Then Exit Sub
Application.EnableEvents = True
ActiveSheet.Unprotect Password:=""
If Len(Target) = 9 And IsNumeric(Target) Then
ActiveSheet.Unprotect Password:=""
[H1] = [E1] & [I3]
End If
If Not Intersect(Target, Range("i7:i20000")) Is Nothing Then 'heure appel
Application.EnableEvents = True
ActiveSheet.Unprotect Password:=""
Target.Offset(0, 2) = Now()
End If
If Not Intersect(Target, Range("l7:l20000")) Is Nothing Then
Application.EnableEvents = True
ActiveSheet.Unprotect Password:=""
Target.Offset(0, -7) = Now()
Target.Offset(0, 8) = ""
Target.Offset(0, 9) = ""
End If
If Not Intersect(Target, Range("u7:u20000")) Is Nothing Then
Application.EnableEvents = True
ActiveSheet.Unprotect Password:=""
Target.Offset(0, -16) = Now()
End If
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub
Pourtant, dans les codes j'ai mis des "Application.EnableEvents = True" partout
et je n'ai pas mis de "False".
Pourriez-vous me dire ce que j'ai zappé ?
Je joins le fichier test,
Grands Merci à vous toutes et tous,
Amicalement,
Lionel,,