Discussion :

[tools]

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 :

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

combobox.value = ""

Mais cela ne fonctionne pas,

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

Cordialement

[rvtoulon]

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

Code :

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

userform1.ComboBox1.Clear

[rvtoulon]

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 :

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

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...

[tools]

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 :

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

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

[OrDonc]

Salut

Clear sert vider donc remplace

Code :

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

userform1.Serv_ComboBox.Clear

par

Code :

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

Serv_ComboBox=""

[rvtoulon]

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

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 :

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

userform1.Serv_ComboBox.Clear

par:

Code :

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

userform1.Serv_ComboBox.ListIndex = -1

ce qui donne d'après ton code :

Code :

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

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