Plages de dates et doublons

[max.lander]

Bonjour à tous,


Je suis à la recherche d'une solution pour déctecter des plages de date en double ?

Dates début dates fin
01/01/2015 15/01/2015
02/05/201 07/05/2015
04/01/2015 04/01/2015


Le 04/01/2015 est déjà compris dans la 1er plage, il s'agit donc d'un doublon comment le détecter avec ou sans VBA

Cf. PJ.


Merci pour votre aide

 

[CHALET53]

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+

 

[max.lander]

Re : Plages de dates et doublons

Bonjour CHALET53,

ça fonctionne au poil, merci beaucoup.

MAX

 

[R@chid]

Re : Plages de dates et doublons

Bonsoir @ tous,
par MFC
sélectionne la plage A2:B7
dans le gestionnaire de MFC tu utilises cette formule :

=ET(NB($A2:$B2);$A2-$B2=0)

@ + +

 

[max.lander]

Re : Plages de dates et doublons

Salut R@chid,

Merci pour cette solution, je viens de tester mais cela ne fonctionne pas, j'ai du rater quelque chose.

 

[david84]

Re : Plages de dates et doublons

Bonsoir,

=NB.SI(A$2:A$4;B2)

Formule à tirer vers le bas : si le résultat est >0 la valeur de la cellule B existe en colonne A.
A+