Doublon

[recovery]

Bonjour,

Novice en vba j'ai besoin de l'expertise des initiés sur ce forum, j'ai récupérer un code génial, en effet ce dernier repères les doublons dans la colonne A et en fait une copie dans la colonne D avec leur numéro de ligne respectif histoire de mieux les localiser dans mon cas ma base de données et très large aussi je souhaiterais non pas une copie des doublons dans la colonne D mais dans la colonne BS ou mieux dans une nouvelle feuille du classeur
après maintes tentatives je m'en remets à vous

voici le code

Sub Doublons()
Dim d As Long, tablo(), i As Long, j As Long, lig As Long, doublon$
Application.ScreenUpdating = False
Range("D2😀65536").ClearContents
d = Range("A65535").End(xlUp).Row
ReDim tablo(1 To d, 1 To 2)
For i = 1 To d
tablo(i, 1) = Application.Trim(Cells(i, 1))
tablo(i, 2) = Val(Replace(tablo(i, 1), "Cde", ""))
If tablo(i, 2) = 0 Then tablo(i, 2) = tablo(i, 1)
Next
lig = 1
For i = 1 To d - 1
If tablo(i, 1) <> "" Then
doublon = ""
For j = i + 1 To d
If tablo(i, 2) = tablo(j, 2) Then
If doublon = "" Then doublon = tablo(i, 1) & "[" & i & "]": lig = lig + 1
doublon = doublon & " - " & tablo(j, 1) & "[" & j & "]"
tablo(j, 1) = ""
End If
Next
If doublon <> "" Then Cells(lig, 4) = doublon
End If
Next
End Sub

 

[Pierrot93]

Re : Doublon

Bonjour,

remplace peut ^tre ceci :

If doublon <> "" Then Cells(lig, 4) = doublon

par cela :

If doublon <> "" Then Sheets("NomFeuille").Cells(lig, 71) = doublon

bon après midi
@+

 

[recovery]

Re : Doublon

Merci ton morceau de code est parfait sauf que la macro cherche les doublons dans la colonne A au lieu de la colonne c as tu une idée encore merci pour ton aide

 

[Pierrot93]

Re : Doublon

Re,

cherche les doublons dans la colonne A

le morceau de code donné cherche pas les doublons, mais le renvoie dans la feuille en question colonne 71...

 

[recovery]

Re : Doublon

Oui c'est là le problème lorsque j'ai testé la macro je ne me suis pas aperçu qu'elle triait la colonne A au lieu de la C.
trop enthousiaste peut être lol