Suppression d'un item dans un combobox

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Octobre 2007

• #2

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

 

Vote positif 0 Vote négatif

T

thierrylon

XLDnaute Nouveau

• 15 Octobre 2007

• #3

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.

 

Pièces jointes

• Test.xls

  24.5 KB · Affichages: 71
• Test.xls

  24.5 KB · Affichages: 72
• Test.xls

  24.5 KB · Affichages: 74

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 15 Octobre 2007

• #4

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

 

Vote positif 0 Vote négatif

T

thierrylon

XLDnaute Nouveau

• 18 Octobre 2007

• #5

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

 

Vote positif 0 Vote négatif