Suppression des doublons dans les deux listes

[christ-94]

Bonjour

J'ai deux colonnes a comparais A et B
je souhaite récupère les valeur de A et de B en C sans aucun doublon
Le code doit être intègre a un macro


Exemple
Colonne A Colonne B Colonne C
1 ___________6 ___________3
3 ___________1 ___________4
4 ___________7 ___________6
5 ___________5___________ 7

Merci d'avance

 

[wazzebu]

Re : Suppression des doublons dans les deux listes

Bonjour christ-94, bonjour le forum,

Essaye avec un tri avancé ca devrait marcher, et passe par l'enregistreur de macro !!

Tu trouveras plein d'exemple sur le forum. 😀

@+

 

[Cousinhub]

Re : Suppression des doublons dans les deux listes

Bonjour christ-94, un petit exemple :

Sub doublon()
Application.ScreenUpdating = False
Range("c1:c" & [c65000].End(xlUp).Row).ClearContents
Set MonDico = CreateObject("Scripting.Dictionary")
Set zone = Range(Cells(1, 1), Cells([b65000].End(xlUp).Row, 2))
For Each cel In zone
If Application.CountIf(zone, cel) = 1 _
Then MonDico.Add cel.Value, cel.Value
Next cel
Range("C1:C" & MonDico.Count).Value = _
Application.Transpose(MonDico.Items)
Application.ScreenUpdating = True
End Sub