Re : Probleme DTPicker
Bonjour,
aprés plusieurs tentation je suis tombé enfin sur quelque chose
mais je suis sur qu'il ya mieux
-------------------------
Dim i%
For i = 2 To Range("f" & Rows.Count).End(xlUp).Row
If Application.CountIf(Range("e:e"), Cells(i, "d")) = 0 Then
Range("f" & Rows.Count).End(xlUp)(2) = Cells(i, "d")
End If
Next i
'------------
For i = 2 To Range("f" & Rows.Count).End(xlUp).Row
If Application.CountIf(Range("e:e"), Cells(i, "f")) > 0 Then
Cells(i, "f").ClearContents
End If
Next i
Columns("d").Clear
Columns("e").Clear
[f3:f500].NumberFormat = "d/m/yy;@"
-------------------------------------
Cordialement