Macro sans doublons deux colonnes vers une seule

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier une macro...comme demander dans le titre. lol

voir fichier joint.

Merci pour votre aide.
Bien à vous.
Christian

 

[phlaurent55]

Bonjour Christian,

avec ce code:

Sub SansDoublonsTrié1()
  Dim temp()
  Set f = Sheets("Feuil1")
  Set MonDico = CreateObject("Scripting.Dictionary")
  a = Range("F2:G" & Range("F65535").End(xlUp).Row).Value
  For Each C In a
     MonDico(Application.Proper(C)) = ""
  Next C
  Set dest = f.Range("AX2")
  dest.Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
  dest.Resize(MonDico.Count, 1).Sort Key1:=dest, Order1:=xlAscending
  Set MonDico = Nothing    ' libère mondico
End Sub

à+
Philippe

 

[Christian0258]

Re, le forum, Philippe

Merci infiniment, Philippe, c'est impec...

Bien à toi.
Christian