Calvus
XLDnaute Barbatruc
Bonsoir le forum,
Je ne parviens pas à effacer le contenu d'un Combobox ! (Combobox3)
Je n'arrive pas à comprendre pourquoi.
Le code de remplissage :
Le code d'effacement (il y a même 2 boucles pour le combobox3)
Les Combobox 1 et 2 s'effacent, mais pas le 3.
Et pourtant il renvoie bien une valeur dans la Msgbox.
Une idée du problème ?
Merci
Je ne parviens pas à effacer le contenu d'un Combobox ! (Combobox3)
Je n'arrive pas à comprendre pourquoi.
Le code de remplissage :
VB:
Private Sub ComboBox2_Change()
ComboBox3.List = Application.Transpose(Range("B1:I1"))
End Sub
Le code d'effacement (il y a même 2 boucles pour le combobox3)
VB:
Private Sub CommandButton4_Click()
Dim i As Integer
For i = 1 To 3
Me("ComboBox" & i).Clear
Me.ComboBox3.Clear
MsgBox UserForm3("ComboBox" & i)
Next
End Sub
Les Combobox 1 et 2 s'effacent, mais pas le 3.
Et pourtant il renvoie bien une valeur dans la Msgbox.
Une idée du problème ?
Merci