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:
Comment le modifier pour faire la même chose avec 2 colonnes?
Merci d'avance pour votre aide.
Ginger
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:
Code:
'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