Bonjour,
J'ai une question en VBA, ce que je souhaiterai c'est avoir une combox sans doublons.
Dans la FAQ, j'ai trouvé une macro de SilkyRoad sur ce sujet je l'ai adapté à mes données mais la combobox est vide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Private Sub userform1_initialize()
Dim Cell As Range
 
'Supprime les données existantes dans le ComboBox
Worksheets("données").ComboBox1.Clear
 
'Boucle sur les cellules de la plage L2:L9232 pour
'alimenter le ComboBox
For Each Cell In Worksheets("données").Range("L2:L9232")
    Worksheets("données").ComboBox1 = Cell
    'remplissage sans doublon
    If Worksheets("données").ComboBox1.ListIndex = -1 Then _
        Worksheets("données").ComboBox1.AddItem Cell
Next Cell
End Sub
Bonne journée à tous.