Bonjour, j'ai une colonne A avec différentes valeurs : Cel123 Cel123 Cel456 Cel567
Je voudrais rechercher les valeurs uniques de cette colonne en partant de la cellule A3 jusque la fin de la colonne où les cellules ne sont pas vides.
Je cherche donc à récupérer seulement : Cel123 Cel456 Cel567, et les enregistrer dans une variable où je pourrai faire une boucle For dessus.
Voici ce que j'ai essayé de faire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Set ShTable = ThisWorkbook.Sheets("Table")
    Dim Cel(3) As String
 
    Set MonDico = CreateObject("Scripting.Dictionary")
    For Each c In Range([A3], [A].End(xlUp))
        If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
    Next c
    Cel(c) = MonDico.items
 
   For I=0 To Ubound(Cel)
         FindTable Cel(I)
   Next I