Discussion :

[NEC14]

Bonjour à tous,

Dans un formulaire (FrmOp), j'ai une ComboBox (Cb2) qui s'alimente avec les données ci-dessous provenant de la colonne A de la feuille "Données".
Comme vous pouvez le constater, il y a des doublons dans la colonne et c'est normal, par contre je souhaiterai que dans ma ComboBox (Cb2) n'apparaisse qu'une seule fois chaque élément. Quel est le code pour cela ?
Précision : On ne peut ajouter aucune données à partir de la ComboBox.
Je vous remercie par avance
ACEA
Aide Classe Environnement
Aide Classe Environnement
Allocation
Allocation
Allocation
Allocation
Allocation
Allocation

[zandru]

La reponse Comment remplir une combobox sans doublon

.

[NEC14]

Bonjour zandru,

J'ai fait ce code, mais la ComboBox reste vide
Quel est le problème ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Cb2_Initialize()
Dim Cell As Range
'Supprime les données existantes dans le ComboBox
FrmOp.Cb2.Clear
'Boucle sur les cellules de la plage A1:A70 pour
'alimenter le ComboBox
For Each Cell In Sheets("Données").Range("A1:A70")
    FrmOp.Cb2 = Cell
    'remplissage sans doublon
    If FrmOp.Cb2.ListIndex = -1 Then
        FrmOp.Cb2.AddItem Cell
Next Cell
End Sub

[zandru]

A première vue je ne vois pas.

essai comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Cb2_Initialize()
'Supprime les données existantes dans le ComboBox
FrmOp.Cb2.Clear
'Boucle sur les cellules de la plage A1:A70 pour
'alimenter le ComboBox
For lig=1 to 70
    FrmOp.Cb2 = Sheets("Données").cells(i,1)
    'remplissage sans doublon
    If FrmOp.Cb2.ListIndex = -1 Then
        FrmOp.Cb2.AddItem (Sheets("Données").cells(i,1))
    Endif
Next
End Sub

C'est plus simple.

[NEC14]

Non ça ne marche pas non plus, la Combo reste vide.
J'ai mis ce code dans le formulaire au niveau de la Combo

[pgz]

Bonjour.

Il n'y a pas d'évènement Initialize Pour une liste de choix. Mais il y en a un pour le userform. Il y a aussi Activate.
Tu n'es même pas obligé d'utiliser un évènement...
A toi de voir. Ce qui est sûr c'est qu'il faut exécuter les lignes de codes.

PGZ