Discussion :

[georgia-jag]

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

[tototiti2008]

Bonjour georgia-jag,

peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.ComboBox1.RowSource = "A1:A"& sheet1.Range("A65536").End(xlUp).Row

mais les Rowsource ne sont pas trés conseillées pour les combobox de Userform, surtout si elles sont amenées à évoluer

C'est mieux de travailler avec AddItem, a priori

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub ComboBox1_Enter()
 
ComboBox1.Clear
Dim tableau As Variant
 
tableau = Sheets(1).Range("A1:a" & Sheets(1).Range("A65536").End(xlUp).Row)
ComboBox1.List() = tableau
 
End Sub

ta combobox sera vidée et reremplie a chaque fois que tu va entrer dedans donc si il y a eu de modification dans le sheet(1) ta combobox sera toujours a jour


au plaisir

[georgia-jag]

Merci a vous de vous etre penche sur mon probleme.

patricktoulon, j'avais pense a une solution de se type la mais moi ca ne fonctionnais pas je ne sais pas pourquoi.

En tout cas vos deux solutions fonctionnent, apres quelques modifications.

Merci bien d'avoir resolu mon probleme, et j'espere que vous pourrez m'aider a resoudre les prochains sur lesquels je vais surement tomber d'ici peu ^^

Euhh rectification ca ne fonctionne pas

En fait ca a fonctionne dans un petit fichier que j'avais cree a cote pour tester des macros, mais quand je veux l'injecter dans mon tableau final ca ne fonctionne plus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub CommandButton1_Click()
On Error Resume Next
Sheet1.Rows(UserForm5.ComboBox1.ListIndex + 1).Delete
UserForm5.ComboBox1.RowSource = "AD11:AD" & Sheet1.Range("AD65536").End(xlUp).Row
Unload Me
End Sub

Je pense que le probleme viens de la ligne du DELETE, mais je n'en suis pas sure.
La macro s'execute bien mais quand je click sur "effacer" rien ne se passe

[patricktoulon]

bonjour
oui en effet ca vient de la

ca n'est pas
Sheet1.Rows (UserForm5.ComboBox1.ListIndex + 1)

deja quand tu precise le sheet tu dois metre son index ou son nom entre parenthezes

exemple :
par son index
sheets(1)
ou par son nom
sheets("feuil1") si le nom de la feuille est "feuil1"



et quand tu utilise rows pour une ligne entiere il faut metre deux fois le chiffre entre parenthezes


ecris putot ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim ligne As Long
ligne = UserForm5.ComboBox1.ListIndex + 1
Sheets(1).Rows(ligne & ":" & ligne).Delete Shift:=xlUp

au plaisir

[georgia-jag]

Bonjour,

Encore merci Patricktoulon, ca fonctionne maintenant.
J'ai juste eu un soucis pour juste supprimer le contenu d'une cellule et non pas toute la ligne.

Je post le code final des fois que cela interresse quelqu'un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub CommandButton1_Click()
On Error Resume Next
Dim line As Long
line = UserForm5.ComboBox1.ListIndex + 11
Sheets("Sheet1").Range("AD" & line).Delete Shift:=xlUp
UserForm5.ComboBox1.RowSource = "AD11:AD" & Sheet1.Range("AD65536").End(xlUp).Row
Unload Me
End Sub

Voila, merci et bonne journee