Eliminer doublons de deux colonnes vers une seule

[manulemalin13000]

Bonjour le forum,

Je cherche une macro qui elimine les doublons de deux colonnes et rend le resultat dans une troisieme colonne

Exemple:

Colonne A contient :
123
123
124
152
123
Colonne B contient:
458
123
659
123

Resultat en C:
123
124
152
458
659


Merci d'avance

 

[mromain]

Re : Eliminer doublons de deux colonnes vers une seule

Bonjour manulemalin13000,


Voici un essai :

Sub test()
Dim monDico As Object
Dim zone As Excel.Range, curCell As Excel.Range

    Set monDico = CreateObject("Scripting.Dictionary")
    
    With ThisWorkbook.Sheets("Feuil1")
        
        'récupérer la zone de cellule de la colonne A
        Set zone = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
        
        'boucler sur chaque cellule de la zone
        For Each curCell In zone.Cells
            
            'essayer d'ajouter l'élément au dictionnaire (il n'accepte pas les doublons)
            On Error Resume Next
             monDico.Add curCell.Value, curCell.Value
            On Error GoTo 0
            
        Next curCell
        
        'récupérer la zone de cellule de la colonne B
        Set zone = .Range("B1:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
        
        'boucler sur chaque cellule de la zone
        For Each curCell In zone.Cells
            
            'essayer d'ajouter l'élément au dictionnaire (il n'accepte pas les doublons)
            On Error Resume Next
             monDico.Add curCell.Value, curCell.Value
            On Error GoTo 0
            
        Next curCell
        
        'afficher en colonne C le résultat
        .Range("C1").Resize(monDico.Count, 1).Value = WorksheetFunction.Transpose(monDico.Items)
        
    End With
    
    Set monDico = Nothing
    
End Sub

a+

 

[manulemalin13000]

Re : Eliminer doublons de deux colonnes vers une seule

Un seul mot a dire...
parfait...

merci