Bonjour a tous,

Je debute en VBA et j'ai un petit soucis avec une de mes combobox, j'espere que vous pourrez m'aider.

Voila mon probleme:

Je voudrais que en selectionnant un nom dans la liste de ma combobox et en cliquant sur un commandButton ce nom soit supprime de la liste.

Je suis parvenu a le faire pour une petite liste de A1 a A5 par exemple, mais dans mon cas c'est une liste dynamique ou je peux ajouter des entrees (que j'aimerais egalement pouvoir supprimer ^^)

Voila ce que j'ai code:


'Definition de la source de ma combobox

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub UserForm_initialize()
ComboBox1.Clear
With ActiveSheet
ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value
End With
End Sub

'Definition de l'action de mon CommandButton

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub CommandButton1_Click()
On Error Resume Next
Sheet1.Rows(UserForm1.ComboBox1.ListIndex + 1).Delete
UserForm1.ComboBox1.RowSource = "A1:A5"
End Sub
J'aimerais savoir ce que je dois mettre a la place de "A1:A5"

Voila j'espere avoir ete claire.

PS: Desole pour l'ecriture je suis sur un clavier qwerty