listbox dynamiques/liées c'est possible ?

Bonjour,

Après avoir écumé le web du mieux possible, je bloque. Je suis assez débutant en vba mais j'ai de bonnes connaissances dans d'autres langages de programmation (php).

Je voudrais créer des listbox "dynamiques/liées". Je m'explique:

1) Imaginons une première ListBox (à sélection simple) prenant comme source de données la plage de cellules A1:A3 qui contient toto, titi et tata.

2) Et une deuxième ListeBox qui prend aussi la MEME plage de cellules.

Ce que je voudrais faire c'est que si avec la première ListBox je sélectionne titi (par exemple) et bien la deuxième listbox se mette à jour automatiquement et ne propose plus que les deux autres éléments (soit toto et tata).

merci bien

F.

Slt,
voici un exemple avec 2 listbox dans un userform :
le code ci-dessous dans l'évènement initialize de l'userform

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() For i = 1 To 3 ListBox1.AddItem (Range("A" & i).Value) Next i End Sub

---

et le code ci-dessous dans l'évènement Click de la listbox1:

Code:

---

1 2 3 4 5 6

Private Sub ListBox1_Click() ListBox2.Clear For i = 1 To 3 If ListBox1.Value <> Range("A" & i).Value Then ListBox2.AddItem (Range("A" & i).Value) Next i End Sub

---

pour la plage de cellule "A1:A3".

A+

merci, ca a l'air super sympa mais je n'aimerais pas utiliser de userform ....

Comment faire pour que la listbox que j'ai ajouté avec la barre d'outil "formulaires" soit remplie avec la plage A1:A3 ???

Re,
dans l'éditeur vba directement dans la feuil mettre ceci pour que la listbox se remplisse lorsque la feuile est activée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Activate() ListBox1.Clear For i = 1 To 3 ListBox1.AddItem (Range("A" & i).Value) Next i ListBox2.Clear End Sub   Private Sub ListBox1_Click() ListBox2.Clear For i = 1 To 3 If ListBox1.Value <> Range("A" & i).Value Then ListBox2.AddItem (Range("A" & i).Value) Next i End Sub

---

attention ceci fonctionne avec les controles de la boite à outils "controle activex" (zone de liste) et pas avec les "controles de formulaires".

A+

oula, ou est ce que l'on trouve "controle activeX" (zone de liste) ?

Là je suis sur Office 2003 en anglais (je suis au taf). Est ce que la barre d'outil "control activex" est celle la :
View ---> toolbars ---> control toolbox ?
Cette barre d'outil ressemble beaucoup à celle des formulaires mais les "objects" crées, si on click dessus on a qq chose comme: =EMBED("Forms.ComboBox.1";"")


Néamoins, j'ai essayé de faire marcher ton code avec des listbox crées avec "control toolbox ou formulaires et ... sans succès (certainement due à mon ignorance du vba).

je me permet de re-clairifier au maximum ma demande: dans la mesure du possible, ne pas utiliser de user form.

Voila un exemple (voir fichier joint) de ce que j'aimerais faire, mon post avec les list dynamiques liées est pour faire du tri multiple:

- Liste box 1: je choisi la clé 1 pour le tri d'un tableau (Ex: AAA BBB CCC). Je choisi BBB comme clé pour le tri.

- Liste box 2: je choisi la clé 2 (mais dans cette liste je n'ai le choix qu'avec les elements restants et pas la clé 1 précédemment choisie, soit AAA et BBB uniquement).

.... merci pour votre aide et je cherche encore a faire marcher tout ca.

F.

slt,

Citation:

---

Là je suis sur Office 2003 en anglais (je suis au taf). Est ce que la barre d'outil "control activex" est celle la :
View ---> toolbars ---> control toolbox ?
Cette barre d'outil ressemble beaucoup à celle des formulaires mais les "objects" crées, si on click dessus on a qq chose comme: =EMBED("Forms.ComboBox.1";"")

---

oui c'est çà.

Je vais regarder ton fichier
A+

Bien,
je met ton fichier avec la modification dis moi ce que tu en penses!

Lorsque tu actives la feuille 1, cela remplie la listbox1, lorsque tu choisi un élements de la listbox1, la listbox2 affiche les deux autres (j'avais bien compris..... lol)

si tu veux voir le code appuie sur "ALT+F11", cela va ouvrir l'éditeur VBA et dans la fenêtre de gauche click sur feuille1 (sheet1).

si tu veux qu'a l'ouverture la listbox soit chargé met ceci :

Code:

---

1 2 3 4

Private Sub Workbook_Open() Sheets(2).Activate Sheets(1).Activate End Sub

---

dans "thisworkbook" en cliquant dessus dans la fenêtre de gauche de l'éditeur.
Tiens moi au courant.

Bonjour à tous,

Un grand merci pour vos aides. Voici mon fichier excel "finalisé".

Le but initial du post était la mise en place de "listbox liées" (cad dont la selection d'un item dans la premiere listbox modifie les choix possible dans les suivantes).

Au final je voulais coder un script permettant de faire du tri de données sans avoir a utiliser la fonction tri dans excel (le tableau à trier étant plutot volumineux, les users pourraient se tromper en voulant selectionner la plage de données.

Si vous allez regarder le code, vous constaterez sans doute que ce dernier pourrait être certainement allégé ou simplifié. En l'état actuel des choses, cela fonctionne mais ce n'est pas très propre ... je serais pas du tout contre tout genre de remarques pour optimiser ce dernier.

Encore merci et bonne journée,

F