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
J'aimerais savoir ce que je dois mettre a la place de "A1:A5"
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
Voila j'espere avoir ete claire.
PS: Desole pour l'ecriture je suis sur un clavier qwerty
Partager