probleme de suppression de doublons

[Pierrot]

Bonjour le forum enfin rebonjour

J'ai trouver le code suivant sur le forum qui me permet de supprimer les doublons (tres tres rapidement)

Le probleme est que j'ai besoin de sortir les doublons sur des cellules qui contienne des informations du genre

2 chiffres, 1 point , 4 chiffres
04.2345
05.2145
05.3456

Le probleme est que le code me les transforme de la manière suivante (mais il me supprime les doublons)
4,2345
5,2145
5,3456

Voici le code

Sub doublon()
    Set Plage = Range([A1], [A65536].End(xlUp))
    T = doublons(Plage.Value, 1)
    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)
Dim i&, J&, k&, Tablo As New Collection
Dim Temp()
For i = LBound(T, 1) To UBound(T, 1)
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

Voila ci vous avez des explications je suis preneur

Pour info j'ai deja essayé de modifier le format des cellules pour les mettre en texte avant d'appliquer le code.


Merci d'avance

 

[pat1545.]

Salut,

s'il s'agit de doublons dans une colonne, regarde ceci:
Ce lien n'existe plus

Bye

 

[pierrejean]

bonjour Pierrot

salut Patrick

ton probleme peut avoir son origine dans la saisie du point selon qu'elle est faite avec le clavier ou le pavé numerique
teste cette macro et si probleme tiens nous au courant [file name=nodoublons.zip size=8174]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nodoublons.zip[/file]

 

[AV]

Salut,

Pour ce genre de problème, ça va être dur de faire plus rapide que le filtre élaboré avec extraction sans doublons.
T'as essayé ?

AV [aaa]

 

[Pierrot]

Merci tous le monde

J'ai essayé la solution de Pierrejean qui fonctionne tres bien (meme plus rapide que la mienne et sans probleme de format)


Merci