Problème de combobox

Bonjour,

débutant en vba,

J'ai des combobox alimentées en continu par de nouveau ajouts.
Au démarrage de ma from, j'aimerais qu'ils soient vides, mais ils ont déjà une valeur.
J'ai essayé de les vider à l'initialize de la userfrom avec :

Code:

---

combobox.value = ""

---

Mais cela ne fonctionne pas,

D'avance merci de prendre le temps de m'aider.

Cordialement

Bonjour,
pour effacer le contenu d'un combobox il faut utiliser la méthode "Clear".
exemple:

Code:

---

userform1.ComboBox1.Clear

---

re,
j'avais pas vu que tu voulais réinitialiser tous les combobox de ton userform. Voici un code qui boucle sur tous les controls de ton userform et si c'est un combobox alors il le remet à zéro :

Code:

---

1 2 3 4

Dim Ctrl As Control For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl.Object.Clear Next Ctrl

---

Tiens moi au courant...

Bonjour,

Tout d'abord merci de prendre le temps de me répondre aussi rapidement.

J'ai essayé de placer ce que vous m'avez dis mais si je le place après ma boucle comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim ser As Integer   For ser = 1 To Range("A65536").End(xlUp).Row   Serv_ComboBox = Range("K" & ser)   If Serv_ComboBox.ListIndex = -1 And Range("K" & ser) <> "" Then _ Serv_ComboBox.AddItem Range("K" & ser) Next ser userform1.Serv_ComboBox.Clear

---

Dans ce cas je n'ai pas ma liste dans le combobox.
J'ai du mal m'exprimer, je souhaite qu'au démarrage de ma from, le combobox soit vide mais avec la liste déroulante.

Peut-être ai-je mal placé la code que vous m'avez donné??

D'avance merci de prendre le temps de m'aider.

Cordialement

Salut

Clear sert vider donc remplace

Code:

---

userform1.Serv_ComboBox.Clear

---

par

Code:

---

Serv_ComboBox=""

---

bonjour,
j'ai donné cette réponse car tu dis :

Citation:

---

Au démarrage de ma from, j'aimerais qu'ils soient vides

---

donc j'ai pensé à "Clear".
Maintenant si tu veux dire qu'il faut que ta combobox contiennent une liste mais qu'aucun item ne soit sélectionné alors essaye ceci:
Remplace :

Code:

---

userform1.Serv_ComboBox.Clear

---

par:

Code:

---

userform1.Serv_ComboBox.ListIndex = -1

---

ce qui donne d'après ton code :

Code:

---

1 2 3 4 5 6 7 8

Dim ser As Integer   For ser = 1 To Range("A65536").End(xlUp).Row Serv_ComboBox = Range("K" & ser) If Serv_ComboBox.ListIndex = -1 And Range("K" & ser) <> "" Then _ Serv_ComboBox.AddItem Range("K" & ser) Next ser UserForm1.Serv_ComboBox.ListIndex = -1

---

Ce code fonctionne à merveille est réalise ce que je souhaite.

Cordialement