Macro: extraire liste (sur 2 colonnes) sans doublon

[ginger59]

Bonjour,
Pas très fort en macro, je bloque un peu sur une liste sans doublon.
J'ai des données des 2 colonnes que je souhaite extraire dans une autre feuille, le problème est que les 2 colonnes ne sont pas contigus et que leur place pourrait bouger à l'avenir.

Pour trouver les colonnes, j'ai donc défini 2 variables.

Pour lister une seul colonne j'utilise le code suivant:

'Plage de recherche des valeurs
Set Plage = Sheets("Synoptic").Range(Range(Code2).Offset(1, 0).Address & ":" & Cells(CStr(DLSynoptic), Range(Code2).Column).Address)

'Mise en liste des valeurs
For Each cell In Plage
Set Liste = Sheets("Travail").Range("A1:A" & Sheets("Travail").Range("A65536").End(xlUp).Row + 1, "B1:B" & Sheets("Travail").Range("B65536").End(xlUp).Row + 1)
If Application.CountIf(Liste, cell) = 0 Then
Sheets("Travail").Range("A65536").End(xlUp).Offset(1, 0) = cell
End If
Next cell

Comment le modifier pour faire la même chose avec 2 colonnes?

Merci d'avance pour votre aide.

Ginger

 

[skoobi]

Re : Macro: extraire liste (sur 2 colonnes) sans doublon

Bonjour,

A quoi correspond les variables "Code2" et "DLSynoptic"?

 

[ginger59]

Re : Macro: extraire liste (sur 2 colonnes) sans doublon

la variable Code2 est la recherche de la première colonne
DLSynoptic est la Dernière Ligne de mon tableau de donnée.

Dim DLSynoptic As Variant
Dim Code2 As Variant

Code2 = Cells.Find("CODE2").Address
Sheets("Synoptic").Select
DLSynoptic = Range(Code2).End(xlDown).Address
DLSynoptic = Range(DLSynoptic).Row

 

[ginger59]

Re : Macro: extraire liste (sur 2 colonnes) sans doublon

J'ai beau chercher un peu partout sur le net je ne trouve pas de solution.
Comme un exemple vaut mieux que de longue explication je mets un fichier avec le résultat que j'aimerais automatiser dans ma macro (liste sans doublon).
Merci d'avance pour les propositions.