Valeur initiale combobox

Bonjour,

Mon code actuel permet d'ouvrir un userform dans lequel une combobox est alimentée par une colonne d'un onglet de mon classeur Excel (avec End(xlUp))
Mon souci est que malgré un combobox1.clear inscrit dans Userform_Initialize, l'userform s'ouvre avec la liste attendue mais sa valeur n'est pas nulle...

Est-ce normal ?

Bonjour,

difficile de te répondre sans voir le code d'alimentation et d'effacement.

En faisant un .Clear sur un combobox et en le réalimentant, je n'ai aucun souci de mon côté, le .Value est une valeur nulle

Voici le code alimentant ma Combobox1 inscrit dans Userform_Initialize :

Code:

---

1 2 3 4 5 6

Dim i As Integer   For i = 1 To Sheets("Database").Range("A65536").End(xlUp).Row ComboBox1 = Sheets("Database").Range("A" & i) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Database").Range("A" & i) Next i

---

Avec un combobox1.Clear au préalable

Bonjour,

Oui, c'est normal.
Ceci devrait vous aider et convenir :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub UserForm_Initialize() Dim i As Integer ComboBox1.Clear For i = 1 To Sheets("Database").Range("A65536").End(xlUp).Row ComboBox1 = Sheets("Database").Range("A" & i) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Database").Range("A" & i) Next i 'Pas de valeur initiale ComboBox1.ListIndex = -1 'valeur initiale = premier item 'ComboBox1.ListIndex = 0 'valeur initiale = troisième item 'ComboBox1.ListIndex = 2 'etc End Sub

---

Ca marche super !!

Merci beaucoup, sujet résolu.

Je ne comprend pas pourquoi tu fais un .Clear alors qu'on est sur l'initialisation du userform, où normalement ton combobox est vide ?

Et je n'arrive pas non plus à reproduire le comportement

En évitant d'alimenter par une boucle, ça ne va pas mieux ? Attention, s'il y a des doublons, ils ne seront pas évités ... le but est ici de trouver pourquoi tu as ce comportement là

Code:

---

1 2 3

Private Sub UserForm_Initialize() Me.ComboBox1.List = Application.Transpose(Sheets("Database").Cells(1, 1).CurrentRegion.Value) End Sub

---

EDIT : décidemment, je suis pas réveillé moi aujourd'hui, j'avais pas vu qu'avant de faire un AddItem tu plaçais l'élément dans le .Value !

tournée de :plusser: pour me faire pardonner

Citation:

---

Envoyé par joe.levrai

EDIT : décidemment, je suis pas réveillé moi aujourd'hui, j'avais pas vu qu'avant de faire un AddItem tu plaçais l'élément dans le .Value !

---

Faute avouée est à moitié pardonnée ==> je te mets également un pouce levé !