Re : Encore une erreur: SUPPRESSION
Merci pour ton aide
Quand je met ce code j'ai une erreur:
Erreur d'execution 13
Incompatibilité de type
Public InterdireChange As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F2")) Is Nothing Then Exit Sub
If (Target) > TimeValue("00:00:30") Then Exit Sub
If InterdireChange = True Then Exit Sub
InterdireChange = True
Workbooks("LEVRIERS en fonction du nom.xls").Activate
Sheets("Feuil2").Select
Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:="Trap", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="1.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="2.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="3.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="4.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="5.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="6.", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
InterdireChange = False
Application.ScreenUpdating = True
End Sub
L'endroit où il y a une erreur est souligné en rouge
Merci