Bonjour,
Pourquoi n'as tu pas surligné le code 4994-1 (lignes 65- 66) alors que les valeurs "Parc" sont différentes ?
Pourquoi n'as tu pas surligné le code 5435-1 (lignes 103-104) alors que les valeurs "Parc" sont différentes ?
Voici une macro qui réalise l'opération indiquée par les formules indiquées précédemment
Sub Test()
Dim DerLig As Long
Dim Cel As Range
With Worksheets("Feuil1")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Each Cel In .Range("A2:A" & DerLig)
If Cel = Cel.Offset(-1) And Cel <> Cel.Offset(1) Then
If Cel.Offset(0, 1) <> Cel.Offset(-1, 1) Or _
Cel.Offset(0, 2) <> Cel.Offset(-1, 2) Or _
Cel.Offset(0, 3) <> Cel.Offset(-1, 3) Then
Cel.Offset(0, 5) = "PROBLEME"
End If
End If
Next Cel
End With
End Sub
A+