ReneDav14000
XLDnaute Occasionnel
Bonjour à tous,
Lorsque j'exécute le code ci-dessous, j'ai le message d'erreur ci-dessus qui apparaît et la dernière ligne du code est surlignée en jaune. D'où provient cette erreur s'il vous plaît ?
Merci par avance pour votre aide
Lorsque j'exécute le code ci-dessous, j'ai le message d'erreur ci-dessus qui apparaît et la dernière ligne du code est surlignée en jaune. D'où provient cette erreur s'il vous plaît ?
Merci par avance pour votre aide
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Code As Variant
Dim Systeme, Retard As Date
Application.ScreenUpdating = False
If Not Intersect(Target, Range("C3")) Is Nothing Then
Sheets("BDD").Select
Code = Sheets("BDD").Range("C3").Value
If Not IsError(Application.Match(Code, Sheets("BDD").Range("C6:C1048576"), 0)) Then
Ligne = Application.Match(Code, Sheets("BDD").Range("C6:C1048576"), 0) + 5
Systeme = Format(Now, "hh:mm")
If Sheets("BDD").Range("G" & Ligne).Value = "" Then
Sheets("BDD").Range("G" & Ligne).Value = Systeme
ElseIf Sheets("BDD").Range("H" & Ligne).Value = "" Then
Sheets("BDD").Range("H" & Ligne).Value = Systeme
ElseIf Sheets("BDD").Range("I" & Ligne).Value = "" Then
Sheets("BDD").Range("I" & Ligne).Value = Systeme
ElseIf Sheets("BDD").Range("J" & Ligne).Value = "" Then
Sheets("BDD").Range("J" & Ligne).Value = Systeme
ElseIf Sheets("BDD").Range("K" & Ligne).Value = "" Then
Sheets("BDD").Range("K" & Ligne).Value = Systeme
ElseIf Sheets("BDD").Range("L" & Ligne).Value = "" Then
Sheets("BDD").Range("L" & Ligne).Value = Systeme
Sheets("BDD").Range("C3").Select
Selection.ClearContents
Sheets("BDD").Range("C3").Select
End If
End If
End If
DLigne = Range("A1048576").End(xlUp).Row
'[B]CETTE LIGNE EN-DESSOUS[/B]
Sheets("BDD").Range("M6:M" & DL).FormulaLocal = "si(et(G6<>"";H6<>"");H6-G6;si(et(G6<>"";H6="";et(I6<>"";J6=""));"";si(et(G6<>"";H6="";I6;J6<>"");Max_Matin-G6;si(et(G6<>"";H6="";et(K6<>"";L6<>""));"";si(et(G6<>"";H6="";I6="";J6="";K6="";L6<>"");Max_Matin-G6;"")))))"
End Sub