Discussion :

[arnold95]

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.

[Singular]

Ton ComboBox semble être sur une feuille ("données"). Pourquoi le remplis-tu lors de UserForm1.Initialize()?

En fait, je l'ai testé selon deux configurations, Combo dans feuille ou dans UserForm et ça fonctionne bien.

Dans feuille:

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
Sub RemplirComboBox1()
    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

dans UserForm:

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 UserForm_Initialize()
    Dim Cell As Range
     
    'Supprime les données existantes dans le ComboBox
    Me.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")
        Me.ComboBox1 = Cell
        'remplissage sans doublon
        If Me.ComboBox1.ListIndex = -1 Then _
            Me.ComboBox1.AddItem Cell
    Next Cell
End Sub

[arnold95]

Ok Merci, effectivement en prennat ce que tu m'as donné çà marche très bien je ne sais pas ce que j'ai fait.lol.Merci beaucoup et bonne journée.

[pepsiwood72]

Arnold 95, je suis également interessé par la solution à ta question. Malheureusement je n'y suis pas arrivé. Pourrais-tu partager ton Excel pour que je vois directement le code?

Un grand merci!