Récupérer valeurs cellules sans doublons

[rudymagny]

Bonjour le forum,
Je viens vers vous car je voudrais récupérer dans une cellule le contenu de deux colonnes mais sans doublons.

Je met un fichier en exemple.

Merci d'avance à vous

 

[Staple1600]

Re : Récupérer valeurs cellules sans doublons

Bonjour


Tu as as fait une recherche sur le forum ?

Car des histoires de doublons, ce n'est pas ce qui manque sur XLD...

(Voire également en bas de page dans les discussions similaires)

 

[rudymagny]

Re : Récupérer valeurs cellules sans doublons

J'ai parcouru plusieurs fils, mais pas encore mon bonheur alors je chercher encore.
Le problème est le terme de la recherche.

 

[kjin]

Re : Récupérer valeurs cellules sans doublons

Bonjour, salut à l'ami Staple ,
Touche F1, objet Dictionnary
A+
kjin

 

[rudymagny]

Re : Récupérer valeurs cellules sans doublons

On va me prendre pour un c... mais je n'ai jamais fais attention aux discussions similaires en bas de page!!!!

Je sais je dois me sortir la tête du c...

 

[rudymagny]

Re : Récupérer valeurs cellules sans doublons

Je viens de voir que je n'avais pas été poli, bonjour à Staple1600 et kjin.

J'ai trouvé un exemple qui pourrait me convenir, c'est celui de BOISGONTIER :
https://www.excel-downloads.com/threads/recuperer-2-colonnes-sans-doublons.120729/

mais le résultat de sa macro supprime les doublons d'une colonne dans une autre colonne mais comment puis je faire pour récupérer la liste dans une même cellule séparée de / ? (comme dans mon fichier exemple)

merci

 

[kjin]

Re : Récupérer valeurs cellules sans doublons

Re,

Sub rudy()
Set d = CreateObject("Scripting.Dictionary")
With Sheets("Feuil2")
    Set r1 = .Range("C3:C" & .Range("C65000").End(xlUp).Row)
    Set r2 = .Range("E3:E" & .Range("E65000").End(xlUp).Row)
    For Each c In r1
        If Not d.Exists(c.Value) Then
            d.Add c.Value, c.Value
            Txt = Txt & c & " / "
        End If
    Next c
    For Each c In r1
        If Not d.Exists(c.Value) Then
            d.Add c.Value, c.Value
            Txt = Txt & c & " / "
        End If
    Next c
End With
Sheets("Feuil1").Range("C5") = Left(Txt, Len(Txt) - 3)
End Sub

A+
kjin

 

[rudymagny]

Re : Récupérer valeurs cellules sans doublons

Merci kjin, Je test ça tout à l'heure et je te tiens au courant.

merci

 

[Cousinhub]

Re : Récupérer valeurs cellules sans doublons

Bonsoir,

une autre façon de faire, avec l'objet "Dictionary"

Sub unique()
Dim LesValeurs As Object
Dim Cel As Range, Plg As Range
With Sheets("Feuil2")
    Set Plg = Union(.Range(.[C3], .[C65000].End(xlUp)), .Range(.[E3], .[E65000].End(xlUp)))
    Set LesValeurs = CreateObject("Scripting.Dictionary")
    For Each Cel In Plg
        If Cel.Value <> "" Then LesValeurs(Cel.Value) = Cel.Value
    Next Cel
End With
Sheets("Feuil1").Range("C5").Value = Join(LesValeurs.Items, " / ")
End Sub

Bonne soirée

 

[MJ13]

Re : Récupérer valeurs cellules sans doublons

Bonjour à tous

Merci les gars, toujours aussi intéressant ce Scripting.Dictionary.

Sinon, j'avais fait un petit fichier sur les doublons. Wait je cherche.

Le voici:

https://www.excel-downloads.com/threads/encore-une-histoire-de-doublons.127667/

 

[Staple1600]

Re : Récupérer valeurs cellules sans doublons

Bonjour à tous

Une variation sur une variation

(prétexte à pouvoir saluer le trop rare bhbh )

Sub unik()
Dim LesValeurs As Object, Cel As Range, Plg As Range
With Sheets("Feuil2")
    Set Plg = .UsedRange.SpecialCells(xlCellTypeConstants, 23)
    Set LesValeurs = CreateObject("Scripting.Dictionary")
    For Each Cel In Plg
    LesValeurs(Cel.Value) = Cel.Value
    Next Cel
End With
Sheets("Feuil1").Range("C5") = Join(LesValeurs.Items, " / ")
End Sub

 

[fifi]

Re : Récupérer valeurs cellules sans doublons

sinon il y a le l'outil morefunc ( chercher sur le net) avec la formule matricielle

=valeur.unique(la plage)

 

[rudymagny]

Re : Récupérer valeurs cellules sans doublons

Bonjour à tous,
Je reviens un peu tard et je peux remarquer que les méthodes sont nombreuses et je vous remercie pour toutes ces informations.

Je suis parti avec la méthode de kjin qui me convient le mieux pour l'instant.

Je remercie tous.

 

[rudymagny]

Re : Récupérer valeurs cellules sans doublons

Bon je reviens à la charge car j'essaye de faire évoluer le code en y insérant une condition.
Je met un fichier en pièce jointe.

Je ne prend en compte que les valeurs ou le "offset à -1" est égal à TENP.

mais il bloque car le Txt est vide.

Je dois me tromper sur le offset?

Merci d'avance

Je cherche aussi de mon côté.

 

[rudymagny]

Re : Récupérer valeurs cellules sans doublons

Comme d'habitude je vais trop vite, mon offset était mal donné, j'ai corrigé par

....... c2.Offset(0, -3).Value = "TENP"*

et c'est bon.