transformer deux colonnes en une sans doublon

Bonjour Joss,

Faut sélectionner ta liste en colonne D avec son étiquette (son titre),
faire filtre -> filtre élaboré -> et cocher "extraction sans doublon"

En espérant t'avoir aidé,
Cdt

Corbac29

Bonjour,

Bien j'ai un soucis, je ne sais pas comment transformer 2 colonnes d'un
tableau en une seul sans qu'il y est de doublons.
Explication:
Donnee de colonne A dans C
Donnee de la colonne B dans C
Pas de reprise dans C si donnee A deja dans B est inversement

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

Bonjour,

Si le processus de fusion doit être effectué périodiquemenent:

A B C
1 Nom Nom Nom
2 Charlie Balu
3 Dupont Charlie
4 Martin Martin
5 Titi Fifi
6 Toto Riri
Titi
Momo


-Copie de A et B dans C , trie, éleminination des doublons:

[C2:C1000].ClearContents
Range([A2], [A1].End(xlDown)).Copy [C2]
Range([B2], [B1].End(xlDown)).Copy [C2].End(xlDown).Offset(1, 0) '
Copie 2eme champ
Range([C2], [C2].End(xlDown)).Sort Key1:=[C2] ' Tri
'-------------- Elimination des doublons
[C2].Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
' 1 ligne en dessous
Do While ActiveCell = ActiveCell.Offset(-1, 0)
Range(ActiveCell, ActiveCell.Offset(0, 1)).Delete Shift:=xlUp
Loop
Loop

Autre solution:

-On copie A et B dans un colonne intermédiaire (D par exemple)
-On extrait dans C avec le filtre élaboré sans doublon

Sub FusionAvecFiltre()
[C2:C1000].ClearContents
Range([A2], [A1].End(xlDown)).Copy [D2]
Range([B2], [B1].End(xlDown)).Copy [D2].End(xlDown).Offset(1, 0) '
Copie 2eme champ
'-------------- Elimination des doublons par filtre
Range([D1], [D1].End(xlDown)).AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( "E1:E2"), CopyToRange:=Range("C1"), Unique:=True
Range([D2], [D1].End(xlDown)).ClearContents
End Sub

Cordialement JB

JB a formulé la demande :

Bonjour,

Si le processus de fusion doit être effectué périodiquemenent:

A B C
1 Nom Nom Nom
2 Charlie Balu
3 Dupont Charlie
4 Martin Martin
5 Titi Fifi
6 Toto Riri
Titi
Momo


-Copie de A et B dans C , trie, éleminination des doublons:

[C2:C1000].ClearContents
Range([A2], [A1].End(xlDown)).Copy [C2]
Range([B2], [B1].End(xlDown)).Copy [C2].End(xlDown).Offset(1, 0) '
Copie 2eme champ
Range([C2], [C2].End(xlDown)).Sort Key1:=[C2] ' Tri
'-------------- Elimination des doublons
[C2].Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
' 1 ligne en dessous
Do While ActiveCell = ActiveCell.Offset(-1, 0)
Range(ActiveCell, ActiveCell.Offset(0, 1)).Delete Shift:=xlUp
Loop
Loop

Autre solution:

-On copie A et B dans un colonne intermédiaire (D par exemple)
-On extrait dans C avec le filtre élaboré sans doublon

Sub FusionAvecFiltre()
[C2:C1000].ClearContents
Range([A2], [A1].End(xlDown)).Copy [D2]
Range([B2], [B1].End(xlDown)).Copy [D2].End(xlDown).Offset(1, 0) '
Copie 2eme champ
'-------------- Elimination des doublons par filtre
Range([D1], [D1].End(xlDown)).AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( "E1:E2"), CopyToRange:=Range("C1"), Unique:=True
Range([D2], [D1].End(xlDown)).ClearContents
End Sub

Cordialement JB

Bonjour
Merci beaucoup pour l'information
Bonne journée

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net