[VBA-E] Liste sans doublons pour remplir cellule

Tiens j'ai modifié mon post précédent pour que ça fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ListerSansDoublon()
Dim NoLigne As Long, NoCol As Byte
Dim Liste As Range, Cell as range
    NoCol = 1
    DerniereLigne = Range("A65535").End(xlUp).Row
 
    Set Liste = Cells(2, NoCol)
    For NoLigne = 2 To DerniereLigne 'en supposant que tu aies une ligne d'entête
      Set Liste = Union(Liste, Cells(NoLigne, NoCol))
      Do While Cells(NoLigne + 1, NoCol) = Cells(NoLigne, NoCol)
        NoLigne = NoLigne + 1
      Loop
    Next
    Debug.print Liste.Address 'affiche la donnée dans la fenêtre Exécution
    For Each Cell In Liste
        Debug.print Cell
        TaListeAtoi.additem Cell
    Next
End Sub

Tu dis
A+

NB - Dans cette ligne

Citation:

DerniereLigne = Range("A65535").End(xlUp).Row

tu mets la colonne des données concernées