Discussion :

[ilhami]

Bonjour,

Je souhaite opérer sur 2 listbox. Listbox2 se chargera en fonction du choix de listbox1.
J'ai fait de nombreuses recherches sur google mais aucun resultat convenable.

Je n'ai aucune difficulté à le faire dans un userform.

Je souhaite le faire sur une feuille excel; c'est la difficulté
Toutes les aides et tutos que je trouve utilsent userform.

Je dois absolument avoir 2 listbox dans une feuille excel.

Je n'arrive pas à faire interagir ces 2 listbox.

Si vous avez une idée ...

Merci

[Theze]

Bonjour,

Il nous faudrait plus de précisions, les listbox sont des contrôles "Formulaire" ou "ActiveX" ? Les sources sont dans une feuille du classeur, une base de données externe ?

Hervé.

[casefayere]

Bonjour,

Comme je ne connais pas trop, ci-joint, un exemple à ma sauce

Bonne journée

[ilhami]

Bonjour
Merci aux personnes qui m'ont répondu

C'est un contrôle activeX

J'ai justement avancé un peu sur le sujet donc je livre pour les gens que ça peut intéresser.

Donc j'ai 2 listbox sur une feuille excel (PAS DE USERFORM, hélas, c'est bien plus simple).

Pour faire communiquer les 2 listbox, je joue sur l'evenement :
Sub Worksheet_Change(ByVal Target As Range)

Je place donc un écouteur en gros sur la feuille où sont positionnées mes listbox.

Maintenant je vais préciser la colonne, supposons c'est la colonne D, à la ligne 10 :

Code :

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

1
2
3
4
5
6
If Target.Count / Target.Rows.Count <> 256 Then
 
 
        If (Target.Row = 10) Then
                 Select Case Target.Column
                     Case 4

Donc là on detecte que la listbox 1 est activéé.

Et pour charger la listbox2; je créé un gestionnaire de nom où j'ai des items.

Je me positionne sur listbox2

Code :

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

ActiveSheet.Range("H" & Target.Row).Select

et pour cette selection :

Code :

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

1
2
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                            xlBetween, Formula1:="=LaListeDesItems"

Voilà,

qui sait quelqu'un peut être tombera dessus lol