soucis avec combobox

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:

---

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:

---

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

Bonjour georgia-jag,

peut-être :

Code:

---

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

bonjour

Code:

---

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

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:

---

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

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:

---

1 2 3 4

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

---

au plaisir

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:

---

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