Suppression d'un item dans un combobox

[thierrylon]

bonsoir,
j'aimerais savoir si je peux supprimer à l'aide d'un bouton de commande un item d'une combobox.
J'ai une combobox sur ma feuille excel, je choisi un item dans la combobox.
La combobox affiche donc cet item. J'aimerais supprimer l'item afficher dans la liste de la combobox.
Merci d'avance.

 

[BOISGONTIER]

Re : Suppression d'un item dans un combobox

Bonsoir,

Private Sub B_enlève_Click()
If Me.Dest.ListCount > 0 And Me.Dest.ListIndex <> -1 Then
Me.Source.AddItem Me.Dest
Me.Dest.RemoveItem Me.Dest.ListIndex
End If
End Sub

Transfert liste

JB

 

[thierrylon]

Re : Suppression d'un item dans un combobox

Ca marche pas. Je joint un fichier pour l'exemple.
J'aimerais que quand je clique sur Supprime l'item dans la combobox disparait.

 

[Spitnolan08]

Re : Suppression d'un item dans un combobox

Bonsoir le fil,

Pour t'aider efficacement, il faudrait savoir comment tu remplis ta combo!
Donc un exemple réel dans sa configuration d'utilisation serait utile.

Cordialement

 

[thierrylon]

Re : Suppression d'un item dans un combobox

Private Sub Worksheet_Activate()
If Sheets("Feuil1").Range("A1").Value = "" Then Exit Sub
If Sheets("Feuil1").Range("A1").Value <> "" Then
nom = Sheets("Feuil1").Range("A1").Value
With ComboBox1
.ADDITEM (nom)
End With
End If
End Sub