Insérer le texte d'une ComboBox dans une ListBox

Bonjour,

Je souhaiterai insérer le texte d'un combobox dans une zone listbox et ce, plusieurs fois de suite en cliquant sur un bouton ajouter (/supprimer).

Merci
Pascale

Bonjour
Je n'ai peut être pas bien saisi ton problème mais en mettant dans ton bouton "Ajouter" le code suivant:

Code:

---

listbox.additem (combobox.text)

---

Salut

Bonjour ,

Je suis d' accord, un truc comme

Code:

---

ListBox additem ComboBox

---

Ca doit fonctionner.

Euh,.. par contre, tu risques de récupérer pas mal de Doublons dans ta ListBox, si tu as un Utilisateur un peu nerveux....

A+

Citation:

---

Envoyé par durdesfois

Bonjour ,

Je suis d' accord, un truc comme

Code:

---

ListBox additem ComboBox

---

Ca doit fonctionner.

Euh,.. par contre, tu risques de récupérer pas mal de Doublons dans ta ListBox, si tu as un Utilisateur un peu nerveux....

A+

---

Bof! Il y a toujours la méthode RemoveItem...

Et puis, Plateforme3 a donné exactement la réponse que j'aurais donné, soit la réponse à la question posée et rien de plus.

Bonjour,
J'ai essayé mais cela ne fonctionne pas, Voici le code

Risques = ListBox
PhrasesRisques = ComboBox
Ajouter = CommandBoutton

Code:

---

1 2 3

Private Sub Ajouter_Click() Risques.AddItem (PhrasesRisques.Text) End Sub

---

Cela ne fonctionne pas, il ne reconnait pas le .AddItem
Que dois-je faire?
MERCI

Pascale

Si ta liste est renseignée par RowSource (ce que je suppose n'ayant pas mieux que les réponses ci-dessus) la méthode Additem ne fonctionne pas.
La solution consisterait à renseigner ta liste par additem au départ.

et si tu enlèves les parenthèses ?

Code:

---

Risques.AddItem PhrasesRisques.Text

---

En faite falait juste enlever le .text

Code:

---

1 2 3

Private Sub Ajouter_Click() Risques.AddItem (PhrasesRisques) End Sub

---

MERCI A TOUS

Bye