Bonsoir à tous, un mystère de plus pour moi dans le vba:
Quand j'écris ceci
tout fonctionne, et ma colonne L se remplit avec les valeurs sans doublons
Mais si jamais je glisse un end with puis un autre with pour transposer ma liste sur une nouvelle feuille, ça ne fonctionne plus! le code suivant est identique au précédent, excepté les deux lignes de commentaires qui ne sont plus en commentaires.
J'en perds mon latin!
Merci d'avance aux aficionados du code
Quand j'écris ceci
Code:
Dim Dico As Object, c As Range
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Sept-2014")
For Each c In Range("C12", [C65000].End(xlUp))
Dico(c.Value) = ""
Next c
'End With
'With Worksheets("Recap")
[L2].Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End With
Mais si jamais je glisse un end with puis un autre with pour transposer ma liste sur une nouvelle feuille, ça ne fonctionne plus! le code suivant est identique au précédent, excepté les deux lignes de commentaires qui ne sont plus en commentaires.
Code:
Dim Dico As Object, c As Range
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Sept-2014")
For Each c In Range("C12", [C65000].End(xlUp))
Dico(c.Value) = ""
Next c
End With
With Worksheets("Recap")
[L2].Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End With
J'en perds mon latin!
Merci d'avance aux aficionados du code