doublons excel sur plusieur colone

[fab101]

Bonjour a tous


Voila mon probleme

j'ai vu dans ce forum comment eliminer un doublons

Sub Princ()
Dim Plage As Range
Dim T
Set Plage = Range([A1:A65], [C65536].End(xlUp)) 'à adapter
T = Doublons(Plage.Value, 1) 'Doublons sure la 1 ere colonne
If IsArray(T) Then
T = InverseTab(T, 1)
With Plage
.Clear
.Cells(1, 1).Resize(UBound(T), UBound(T, 2)) = T
End With
Else: MsgBox T
End If
End Sub


Function Doublons(T, ColT As Byte) 'Zon
Dim i&, J&, K&, Tablo As New Collection
Dim Temp()
For i = LBound(T, 1) To UBound(T, 2)
On Error Resume Next
Tablo.Add T(i, ColT), CStr(T(i, ColT))
If Err = 0 Then
ReDim Preserve Temp(1 To UBound(T, 2), 1 To J + 1)
For K = 1 To UBound(Temp)
Temp(K, J + 1) = T(i, K)
Next K
J = J + 1
End If
Next i
Doublons = IIf(J > 0, Temp, 'Pas de doublons')
End Function
Function InverseTab(T, Optional Base As Byte = 0)
Dim Temp(), i&, J&
ReDim Temp(Base To UBound(T, 2), Base To UBound(T))
For i = LBound(T, 2) To UBound(T, 2)
For J = LBound(T) To UBound(T)
Temp(i, J) = T(J, i)
Next J
Next i
InverseTab = Temp
End Function

mais mon probleme se trouve au niveau de la reconnaissance d'u n doublons

en effet dans mon cas la cle contient 3 colones

ainsi un doublons se reconnait lorsque au moins une des trois cases sont differents

Savez si on peut modifier un truc dans le code


Merci[/code]

 

[Dugenou]

Salut,

Je ne suis pas un 'macroteur' mais il me semble que sur ce fil Lien supprimé tu trouveras ton bonheur.

Cordialement

 

[pat1545.]

Salut,

sans macro et avec le filtre élaboré ça peut marcher je crois ...

Patrick