Effacer dans combox

[stéphanie123]

salut


voilà j'ai une boite de dialogue qui a pour fonction d'apporter une aide à l'utlisateur du programme
par un jeu de question réponse elle est sencée répondre à ces incompréhension

une fois que celui ci a saisi une question dans le combobox et qu'il a eu sa réponse le combo et la listréponse s'initialisent,j'ai rajoutée un bouton qui permet d'initialiser le combo cependant
si l'utilsateur veut une question du même ordre sa ne fonctionne pas

ci joint le fichier

 

[pierrejean]

Re : Effacer dans combox

bonjour stéphanie

2 modifs

Private Sub Boutclear_Click()
Userform6.Listréponse.Clear
Userform6.Cmboquestion.Clear
[COLOR=blue]Call Cmbochoix_Change[/COLOR]
End Sub

Private Sub Cmbochoix_Change()
..........
Next Cellule
   [COLOR=blue]Cmboquestion.Clear[/COLOR]
    For i = 1 To OCollection.Count
        Cmboquestion.AddItem OCollection.Item(i)
    Next i
End Sub

 

[job75]

Re : Effacer dans combox

Bonjour Stéphanie, Pierrejean,

Essayez :

Private Sub Boutclear_Click()
Userform6.Listréponse.Clear
[COLOR="Red"]Userform6.Cmboquestion = ""[/COLOR]
End Sub

En effet, Clear supprime tout dans la ComboBox.

A+

 

[stéphanie123]

Re : Effacer dans combox

merci Pierre-jean

je commence à voir la lumière au fond du tunnel

 

[stéphanie123]

Re : Effacer dans combox

merci job75

J'ai essayer la solution de Pierre-Jean et elle marche

merci encore