Discussion :

[bzh.floriane]

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

[Patrice740]

Bonjour,

Quand je vois :
For Each c In Range([A3], [A].End(xlUp)).
Je t'invite à lire ce billet : https://www.developpez.net/forums/bl...se-bonne-idee/

[bzh.floriane]

For each c in Range("A1:A10").Cells

[Patrice740]

For each c in Range("A1:A10").Cells

Plutôt :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Sub Test()
Dim shTable As Worksheet
Dim c As Range
Dim MonDico As Object
Dim tbl As Variant
     Set shTable = ThisWorkbook.Sheets("Table")
    Set MonDico = CreateObject("Scripting.Dictionary")
    For Each c In shTable.Range("A3", shTable.Cells(shTable.Rows.Count, "A").End(xlUp))
        MonDico(c.Value) = ""
    Next c
    tbl = MonDico.Keys
End Sub

[bzh.floriane]

Merci beaucoup !