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("D265536").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
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("D265536").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