Effacer une valeur dans Combobox vba

[chloe1992]

Bonjour à tous,

J'ai de nouveau besoin de vous, voilà je travaille sur Excel avec des Userforms, et notamment avec des combobox, et j'aimerai savoir comment vider une combobox. Pas la vider entièrement mais effacer la valeur que l'on a sélectionné une fois que j'ai appuyé sur mon bouton: voici le code

Private Sub CommandButton1_Click()

Dim lig As Long, x As Range
Dim rep
Dim enreg As String

Sheets("Client").Select

With Sheets("Client")

lig = .Range("A65536").End(xlUp).Row

If ComboBox3.Text = "" Then Exit Sub
Set x = Sheets("Client").Range("A:A").Find(ComboBox3.Text)
If Not x Is Nothing Then

enreg = x.Row
rep = MsgBox("Voulez vous supprimer ce client? ", vbYesNo)

If rep = vbYes Then

.Rows(enreg).Delete Shift:=xlUp
ClientUser.ComboBox3.Clear
End If

End If

End With


End Sub

 

[Pierrot93]

Re : Effacer une valeur dans Combobox vba

Bonjour,

regarde peut être ceci, si combo alimentée par "additem" ou "list" :

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

bon après midi
@+