Magic_Doctor
XLDnaute Barbatruc
Vérifie si dans une plage de cellules contiguës, disposées sur une ligne ou une colonne, il y a au moins un doublon.
VB:
Function HasDoublons(Plage As Range)
'********************************************************************************************************************
'Vérifie si dans une plage de cellules contiguës, disposées sur une ligne ou une colonne, il y a au moins un doublon
'********************************************************************************************************************
'- Si doublon(s) --> True
'- Si pas doublon --> False
Dim Coll As New Collection, cell As Range
On Error Resume Next
For Each cell In Plage
If cell.Text <> "" Then Coll.Add "zaza", cell.Text
Next
Err.Clear
HasDoublons = Not (Coll.Count = Plage.Count)
End Function