Discussion :

[PascGuil]

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

[Plateforme3]

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

Code :

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

listbox.additem (combobox.text)

Salut

[durdesfois]

Bonjour ,

Je suis d' accord, un truc comme

Code :

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

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+

[zazaraignée]

Bonjour ,

Je suis d' accord, un truc comme

Code :

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

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.

[PascGuil]

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

Risques = ListBox
PhrasesRisques = ComboBox
Ajouter = CommandBoutton

Code :

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

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

[ouskel'n'or]

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.

[zazaraignée]

et si tu enlèves les parenthèses ?

Code :

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

Risques.AddItem PhrasesRisques.Text

[PascGuil]

En faite falait juste enlever le .text

Code :

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

1
2
3
Private Sub Ajouter_Click()
    Risques.AddItem (PhrasesRisques)
End Sub

MERCI A TOUS

Bye