Bonjour,
si je comprend bien tu cherches à extraire des doublons?
Je pense que l'on doit pouvoir faire ca par macro.
Tu voudrais extraire les données sur une nouvelle colonne?
Je ne suis pas un pro en Vba mais on m'en a tellement expliquer sur des cas similaire que je vais tenter de t'aider.
Une petite proposition par macro qui te compare les colonnes A et B. Elle permet de colorer en rouge les cellules de la colonne B si la valeur est présente dans la colonne A.
Code:
Sub test()
Dim i%, k%
For i = 1 To Range('A65536').End(xlUp).Row
For k = 1 To Range('B65536').End(xlUp).Row
If Cells(i, 1).Value = Cells(k, 2).Value Then
Cells(k, 2).Font.Color = vbRed
End If
Next k
Next i
End Sub
comme promis, une macro un peu bancale mais qui à l'air de faire son boulot (chez moi elle était assez lente comme meme).
On suppose que C et D sont vide!
Option Explicit
Sub essai()
Dim n As Integer
Dim lign As Integer
Dim col As Collection
Set col = New Collection
For n = 1 To Range('A65536').End(xlUp).Row
On Error Resume Next
col.Add Range('A' & n), CStr(Range('A' & n))
On Error GoTo 0
Next n
lign = 1
For n = 1 To col.Count
Range('C' & lign) = col(n)
lign = lign + 1
Next n
For n = 1 To Range('B65536').End(xlUp).Row
On Error Resume Next
col.Add Range('B' & n), CStr(Range('B' & n))
On Error GoTo 0
Next n
lign = 1
For n = 1 To col.Count
Range('C' & lign) = col(n)
lign = lign + 1
Next n
For n = 1 To Range('C65536').End(xlUp).Row
On Error Resume Next
col.Add Range('C' & n), CStr(Range('C' & n))
On Error GoTo 0
Next n
lign = 1
For n = 1 To col.Count
Range('D' & lign) = col(n)
lign = lign + 1
Next n
End Sub
à mon humble avis on ne peut que la simplifier
PS: je me suis basé sur un fichier télécharger il y a quelque temps déjà!
Je voulais dire que je voulais tester, et là en testant sa bloque car j'ia d'enorme colonne, j'ai essayé avec un petit exemple sa marche, mais avec de plus grande colonnes je pense qu'il faut attendre pas mal