P
Pierrot
Guest
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
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
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
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