Plages de dates et doublons

C

CHALET53

XLDnaute Barbatruc

• 30 Avril 2015

• #2

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+

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 2 Mai 2015

• #3

Re : Plages de dates et doublons

Bonjour CHALET53,

ça fonctionne au poil, merci beaucoup.

MAX

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2015

• #4

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 :

Code:

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

@ + +

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 2 Mai 2015

• #5

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.

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 2 Mai 2015

• #6

Re : Plages de dates et doublons

Bonsoir,

Code:

=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+

 

Vote positif 0 Vote négatif