combobox VBA ComboBox1.RemoveItem

[pwolff]

Bonjour,
J'ai un userform avec une combobox qui comprend une liste (les 12 mois)
Je sélectionne dans la liste un mois et je lance une macro par un bouton et je souhaiterais enlever de la liste le mois selectionné.
J'ai essayé ceci :

Option Explicit
Dim mois As String

Private Sub CommandButton1_Click()
mois = ComboBox1.Value

ComboBox1.RemoveItem mois



End Sub

Private Sub UserForm_Initialize()
Sheets("Feuil1").Select
Range("a1").Select
Do Until ActiveCell.Value = 0
mois = ActiveCell.Value
ComboBox1.AddItem mois

ActiveCell.Offset(1, 0).Select

Loop
End Sub

Merci pour tout aide

PS : l'exemple est dans le fichier joint

 

[Pierrot93]

Re : combobox VBA ComboBox1.RemoveItem

Bonjour,

regarde peut être ceci :

With ComboBox1
     If .ListIndex <> -1 Then .RemoveItem .ListIndex
End With

la m"thode "RemoveItem" attends un numéro d'index et non du texte...

bonne soirée
@+

 

[pwolff]

Re : combobox VBA ComboBox1.RemoveItem

Vous êtes trop fort, ça marche. Un très grand merci.

 

[pwolff]

Re : combobox VBA ComboBox1.RemoveItem

Re bonjour,
existe-t-il une commande pour effacer tous les items d'une combobox ?

 

[laetitia90]

Re : combobox VBA ComboBox1.RemoveItem

bonjour tous 🙂🙂🙂

 ComboBox1.Clear