Remplir un comboBox en cliquant dans un listBox

Bonjour a tous,

je suis tout juste débutant en vba et j'ai quelques questions à propos d'un code que je dois modifier.

Dans un userform, j'ai un listbox remplit avec les éléments d'une base de donnée. J'aimerais remplir un comboBox avec les éléments du listBox sur lesquels je click puis boucler sur tous ces items en executant une fonction prenant en argument l'item courant à chaque passage dans la boucle.

Comme je me suis mis à VBA il y a 1 ou 2 heures, je ne sais pas comment m'y prendre :)

Pourriez vous m'aider ?

Edit: quelle fonction permet de stocker l element sur lequel je click dans la listbox dans une variable (pour ne plus passer par *.List(i) ) ?

Code:

---

1 2 3 4 5 6 7

Dim i As Long For i = 1 To ListBox1.Count ListBox1.ListIndex = i ComboBox1.AddItem ListBox1.List FonctionBidon ListBox1.List Next

---

Ca te parle ? :P

bonjour,
commençons par le début..
dans l'événement clic de la listBox tu ajoute

Code:

---

ComboBox1.AddItem ListBox1.Text

---

Essaye déjà cela.
A+
EDIT: il est vrai que la question est ambiguë
EDIT2: dans l'exemple de Solkien il faut rectifier une ligne par

Code:

---

ComboBox1.AddItem ListBox1.List(i)

---

A oui merci, ca manquait en effet :)

Mais en réalité je souhaiterais plutot ajouter les items un par un en cliquant dans la listbox manuellement.
Y a t il une fonction qui permette de verifier qu'on n'insere pas un doublon ? je me demandais aussi s'il etait possible de faire apparaitre tous les elements ajoutés sans etre obligé de cliquer sur la petite fleche ? (avec un scroll si trop d item)

En y repensant, ca pourrait etre plus simple de faire une textBox dans laquelle on n'a pas le droit de taper des caractères.

Enfin dernier détail, comment pourrai je faire pour supprimer un element de la combo/textBox rien qu en cliquant dessus ?

En vous remerciant d'avance :D

Bonsoir,

Les exemples ne manquent pas sur ce forum pour éviter les doublons que ce soit par utilisation de la foncdtion SendMessage de la librairie User32 sz Windows ou par le jeu d'une boucle (que je de conseille de préférence à ton niveau)

Pour ce qui est du déroulement automatique : un sous-classement permettrait d'y parvenir, mais, là également je ne te conseille pas d'utiliser cette méthode à ton niveau.
Use d'astuce, en lieu et place :

Tiens : essaye et adapte à ton besoin :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Command1_Click() Dim i As Integer For i = 1 To 10 ' juste pour remplir la combo pour un essai... Combo1.AddItem i Next Combo1.SetFocus SendKeys "%{DOWN}", False End Sub

---

en gardant à l'esprit que, de toutes manières, seule une portion sera déroulée, hein ... (bon, là encore on pourrait sous-classer et augmenter la hauteur, mais tout cela serait démesuré et... jusqu'où ainsi ?)

Bonne continuation...

EDIT :
Tiens dépatouille-toi un peu en adaptant ce complément (l'envoi d'un PAGEDOWN pour positionner avant le déroulement)
Je te laisse quand même le soin d'écrire le tout petit code de calcul du nombre de pages à "descendre" par des PGDN avant déroulement en fonction du nombre total de tes rajouts, hein (facile, non ?)

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command1_Click() Dim i As Integer For i = 1 To 50 ' ici j'insère 50 items de sorte à "dépasser" la zone visible Combo1.AddItem i Next Combo1.SetFocus   SendKeys "{PGDN}", False 'je saute une page (je pourrais en sauter plusieurs) SendKeys "%{DOWN}", False End Sub

---

Voilà ... j'espère que tu capteras au vol...

Bonne nuit.

Ok cool merci je testerai demain au boulot.

Mais ce code me permettra de faire quoi précisément dans ce que j'ai cité ?

Pour les methodes dont tu parles peut etre que mes compétences en c et en java pourraient m aider a comprendre de quoi il s agit :)

Ce que je t'ai donné te suffit (pour le déroulement)

Pour ce qui est des doublons à éviter : tu as ce qu'il te faut sur ce forum (les exemples ne manquent pas) . Fais une petite recherche...
Bonne nuit.

Oui j ai repondu avant ton edit dsl :D

Je vais regarder ca, merci beaucoup

edit: Comme ca je capte rien mais je testerai demain. Je ne vois pas quelle partie du code permet a l'utilisateur d'inserer un element dans la combobox en cliquant dans la listbox... Dsl mais je n'ai jamais eu de cour de vba alors c est un peu fastidieu :)

edit2: Ok faut rajouter le additem mais quelle fonction permet de stocker l element sur lequel je click dans la listbox dans une variable (pour ne plus passer par *.List(i) )