Re : Plages de dates et doublons
Bonjour,
Avec un code de ce type :
Sub essai()
For i = 2 To 5
For j = i + 1 To 5
dtdeb = Cells(j, 1)
dtfin = Cells(j, 2)
If dtdeb >= Cells(i, 1) And dtfin <= Cells(i, 2) Then
MsgBox ("Ligne " & j & " Doublon avec " & "ligne " & i)
Exit Sub
End If
Next j
Next i
End Sub
a+