XL 2010 VBA - Lier trois listbox en cascade

elx · 13 Avril 2021

Bonjour à tous,

Je me permets de créer une énième discussion à ce sujet, car je n'ai pas réussi à appliquer les exemples des autres discussions à mon cas...

Ma problématique est relativement simple : j'aimerais lier ma listbox1 (listbox des types d'exercice) avec les listbox 3 et 5 (listbox des objectifs généraux et spécifiques).
C'est-à-dire que lorsque que je choisis un type les objectif correspondant s'affiche.
Par exemple : Sélectionner "tester l'alerte" génère automatiquement les objectifs correspondant ; c'est-à-dire "Test alerte + mobilisation communale". Et ainsi de suite pour "exercice partielle"="test alerte, mobilisation + armement" et "exercice général"= "test alerte+mobilisation+armement+ mesures de sauvegardes".

Actuellement, rien n'est lié et le contenu des lisbox est afficher entièrement au lancement du formulaire. Les listbox sont alimenter par rowsource.

Je vous joins le fichier ici, excusez le "bordel" apparent du code ; je débute et je me dépatouille comme je peux ^^
En vous remerciant d'avance pour votre aide/conseils

Erwan

Dan · 14 Avril 2021

Votre fichier en retour pour test
attention que pour que les informations à mettre dans une combobox sur base du choix d'une combobox précédente, vous ne pouvez pas avoir de retour à la ligne dans les données de cellule.
Dans la colonne G (combobox 6) par exemple, j'ai supprimé les retours à la ligne dans les infos car la combobox suivante (combobox 7) ne prenait pas les valeurs.

Les rowssource sont supprimées pour la plupart, evitez cette instruction qui posent parfois des soucis
J'ai aussi supprimé quelques noms dans le gestionnaire de noms (ils n'allaient nulle part ou ne sont plus d'actualité suite au code)

Edit : je n'ai pas adapté la combobox 2 mais si vous me donnez les valeurs que l'on peut trouver, je vous donne...

Dan · 13 Avril 2021

Bonjour,

SI vous voulez faire un choix dans votre listbox, il faut éviter la sélection multiple ou alors mieux mettre une combobox à la place. Dès que vous allez faire votre choix dans la combobox, on pourra alimenter les listsbox 3 et 5.
Vous etes d'accord sur ce point ?

Si oui, votre colonne E peut avoir plusieurs fois l'option tester Alerte ? (là je ne la vois qu'une seule fois

Cordialement

elx · 14 Avril 2021

Bonjour,

Oui tout à fait j'ai favoriser les listbox mais si il est plus adaptée ici de prendre une combobox alors soit faisant ca ! J'applique la modification et je reupload le fichier ?

Concernant la colonne E (type exo), oui elle peut avoir plusieurs fois "tester l'alerte" en fonction de ce qui est choisie par l'utilisateur, mais ce sera pour deux exercice distinct ; un sera pour tester l'alerte et un autre pour tester l'alerte + autres choses, par exemple. Donc la colonne E peut avoir plusieurs fois tester l'alerte mais dans des cellules distinctes. Je ne sais pas si je suis très claire ou si c'est la réponse que tu attendez..

Cordialement,

Erwan

Dan · 14 Avril 2021

Ok. je pense avoir saisi
Je suppose que c'est la même chose pour la listbox3. Vous pouvez avoir aussi plusieurs valeurs identiques. Idem pour ce qui concerne la listbox5. Juste ?

Je vais déjà amender le fichier sur base de votre 1er commentaire

En attendant votre retour sur l'aspect doublons dans les colonnes G (Listbox 3) et H (Listbox 5)

elx · 14 Avril 2021

Oui tout à fait vous avez juste sur l'aspect doublons des deux list !

Dan · 14 Avril 2021

En colonne J et K, vous pouvez avoir aussi des doublons ?
Car vos deux combobox reprennent uniquement les deux premières lignes
je parle de Cinétique et condition meteo.
Si vous me donnez les valeurs, je modifie les combobox également
Exemple : Cinetique, je vois 3 valeurs (Rapide, lente, temps compressé). Y a-t-il d'autres valeurs ?

elx · 14 Avril 2021

Merci pour le temps que vous me consacrez !

Concernant ces deux colonnes(J et K) non pas de doublons ; si seulement un choix est possible c'est l'idéal.
Concernant les valeurs il n'y en pas d'autres en effet, il n'y a rien à rajouter normalement

Dan · 14 Avril 2021

si seulement un choix est possible c'est l'idéal.

Oui mais le choix se fait dans les 3 valeurs comme j'ai indiqué dans l'exemple ?
Ce que je souhaite savoir c'est ce que les combobox 3 cinétique et 4 Méteo, doivent contenir au départ. Pour la 3, on a les 3 données que je vous ai données avant. Pour la 4, quelles sont les données
Attention ce sera figé, donc vous ne pourrez choisir que dans les données de ces deux combobox

elx · 14 Avril 2021

Ah oui pardon j'ai répondu a coté de la plaque ^^"

Oui le choix se fait dans une des valeurs proposer. Donc dans une des trois valeurs pour reprendre votre exemple.

Au départ la combobox cinétique peut contenir rapide ou compresser ou lente ; l'un ou l'autre ce n'est pas très important, c'est l'utilisateur qui choisira se qu'il a besoins. Ce qui est afficher au départ n'est qu'un exemple en soit.
Idem pour la météo au départ elle doit contenir soit réel soit fictive et l'utilisateur choisie ce qu'il lui convient.

J'ai cependant du mal a me représenter ce qu'implique le fait que soit "figé" les combobox ?

Dan · 14 Avril 2021

Votre fichier en retour pour test
attention que pour que les informations à mettre dans une combobox sur base du choix d'une combobox précédente, vous ne pouvez pas avoir de retour à la ligne dans les données de cellule.
Dans la colonne G (combobox 6) par exemple, j'ai supprimé les retours à la ligne dans les infos car la combobox suivante (combobox 7) ne prenait pas les valeurs.

Les rowssource sont supprimées pour la plupart, evitez cette instruction qui posent parfois des soucis
J'ai aussi supprimé quelques noms dans le gestionnaire de noms (ils n'allaient nulle part ou ne sont plus d'actualité suite au code)

Edit : je n'ai pas adapté la combobox 2 mais si vous me donnez les valeurs que l'on peut trouver, je vous donne le code plutot que d'utiliser le rowssource

elx · 14 Avril 2021

Et le test c'est avéré concluent ! Merci encore pour le temps consacré à mon problème

Concernant le retour à la ligne supprimé pas de problèmes ; je vais adapter la taille de mes combobox ou de mes phrases pour palier à ce soucis.

Une bonne journée à vous,
Cordialement,

Dan · 14 Avril 2021

Je vais regarder. c'est dans la macro Private Sub CommandButton1_Click() ?

Et concernant ma remarque sur la combobox 2 ?

Edit : Oui c'est normal pour cette erreur car la Listbox1 est devenue Combobox5. Donc remplacez toutes les LISTBOX1 par COMBOBOX5
D'ailleurs en regardant le code complet, on pourrait adapter plus justement le code vu que votre base de données est mise en forme en tableau structuré

elx · 14 Avril 2021

Oui en effet j'ai trouver la solution et j'ai corrigé cela, merci encore ca fait plaisir d'avancer rapidement comme ca !

Je ne veux pas monopoliser votre temps tout fonctionne correctement ne vous embêtez a tout réadapter ; même si je sais que mes lignes sont assez "bordélique" ^^

Concernant la Combobox2 les valeurs sont : Inondation; Incendie de Forêt ; Transport de Matières Dangereuses (TMD). C'est vrai que éviter le row sources est préférable c'est bien mieux ainsi merci pour ce conseils

Dan · 14 Avril 2021

"Bordéliques" ... non du tout mais avec les tableaux structuré les codes changent

Pour la combobox2, faites ceci
- Supprimer Theme dans rowssource
- Supprimer le nom associé dans le gestionnaire de noms
- Supprimer "Transport de Matières Dangereuses" dans la rubrique "text" associé à l'objet
- Dans la macro Private Sub UserForm_Initialize(), ajouter cette ligne juste avant Combobox3.list...

VB:

ComboBox2.List = Array("Inondation", "Incendie de Forêt", "Transport de Matières Dangereuses (TMD)")

elx · 14 Avril 2021

Dan à dit:
"Bordéliques" ... non du tout mais avec les tableaux structuré les codes changent

Pour la combobox2, faites ceci
- Supprimer Theme dans rowssource
- Supprimer le nom associé dans le gestionnaire de noms
- Supprimer "Transport de Matières Dangereuses" dans la rubrique "text" associé à l'objet
- Dans la macro Private Sub UserForm_Initialize(), ajouter cette ligne juste avant Combobox3.list...

VB:

ComboBox2.List = Array("Inondation", "Incendie de Forêt", "Transport de Matières Dangereuses (TMD)")

Ca fonctionne parfaitement encore une fois ! Au top

XL 2010 VBA - Lier trois listbox en cascade

elx

XLDnaute Nouveau

Pièces jointes

Dan

Dan

XLDnaute Barbatruc

elx

XLDnaute Nouveau

Dan

XLDnaute Barbatruc

elx

XLDnaute Nouveau

Dan

XLDnaute Barbatruc

elx

XLDnaute Nouveau

Dan

XLDnaute Barbatruc

elx

XLDnaute Nouveau

Dan

XLDnaute Barbatruc

Pièces jointes

elx

XLDnaute Nouveau

Dan

XLDnaute Barbatruc

elx

XLDnaute Nouveau

Dan

XLDnaute Barbatruc

elx

XLDnaute Nouveau

Discussions similaires