XL 2016 Menu en cascade

[JORDAN]

bonjour le Forum, tout le monde,

j'ai créé un USF afin d'avoir un menu en cascade avec des checkbox pour choisir tel ou tel option
je n'arrive pas à déplier ou replier automatiquement les menus si ce n'est de rentrer un code fastidieux, vu le nombre d'options ça serait la galère

comment pourrai je créer un code qui me permette de déplier et replier plus facilement le menu
ci-joint mon début de fichier
merci pour vos idées

au plaisir

 

[laetitia90]

bonjour JORDAN🙂
je viens de regarder ton fichier oups!!
a mon avis tu devrais t'orienter sur des comboboxs & listbox bien plus simple a manipuler

un exemple "brut" quand méme😳 avec ta presentation seulement le debut je sais pas ou tu positionnes les autres contrôls
le code en fin de compte........ je manipule des frames visible ou non.... dans lequel j'ai mis les controls un peu plus simple

 

[mapomme]

Bonsoir JORDAN, laetitia90 🙂,

Une autre piste, intéressante selon moi, serait d'utiliser un contrôle de type TreeView. Voir l'exemple joint. Le code pour peupler le TreeView1 est dans le module de code du UserForm1. Les cases à cocher sont optionnelles (c'est une propriété de TreeView1).

Edit : version v1bis avec les données de JORDAN.

 

[Si...]

Bon_soir

Une autre piste, intéressante selon moi, est d'utiliser un contrôle de type TreeView..

oui mapomme 🙂 mais à condition d'avoir accès à ce contrôle 😳!
On retrouve les problèmes de portabilité avec les différentes versions du MSCOMCTL.OCX (comme pour les DTPicker, MonthView …) 😱.
Si l'arbre est déjà dressé dans un onglet, on peut à coup de contrôles 'ListBox', 'Frame' … comme le suggère Laetitia 😀 s'en sortir ; mais avec un arbre de ramification importante, bonjour les étapes.

Voici un exemple qui remonte à quelques années.

 

[mapomme]

Bonsoir Si... 🙂

mais à condition d'avoir accès à ce contrôle 😳!
On retrouve les problèmes de portabilité avec les différentes versions du MSCOMCTL.OCX (comme pour les DTPicker, MonthView …) 😱.
Si l'arbre est déjà dressé dans un onglet, on peut à coup de contrôles 'ListBox', 'Frame' … comme le suggère Laetitia 😀 s'en sortir ; mais avec un arbre de ramification importante, bonjour les étapes.

Je plussois à toutes tes remarques. Les problèmes de compatibilité des contrôles sont une vraie plaie (entre les différentes versions des contrôles, d'Excel et version 32 ou 64 bits, on a du mal s'y retrouver).
Quant à vouloir gérer la chose avec des contrôles de base, je ne m'y lancerai pas 😵. Ou alors faire une classe reproduisant le treeview ; je ne m'y lancerai pas non plus 😵. Ou bien en gérant l'arbre directement dans des cellules d'une feuille de calcul. Je me demande si je n'ai pas vu des choses de ce type du côté de chez Boisgontier 😎 ==> c'est bien ça, dans la rubrique Arborescence et récursivité

 

[Si...]

Re 😕

mes corrections en mode édition ne sont pas toujours prises en compte 😡 et pis même, le fichier que j'avais joint à disparu donc je viens d'essayer de le remettre pour ceux qui seraient intéressés

 

[JORDAN]

bonjour tout le monde,

merci pour toutes vos solutions et commentaires
j'analyse tout ca et reviens vers vous pour vous dire

encore merci à vous

 

[JORDAN]

Re,
après un rapide tout d'horizon,

Laetitia90, ton fichier est top, il y a quelques bugs si les champs déplier n'ont pas tous le même nombre de champs, il y a des vides dans l'arbre, superbe boulot merci

Mapomme, superbe également, certainement beaucoup plus simple à mettre en place et avec les cases à cocher actives c'est tout à fait ce que je cherchais. J'ai un msg d'erreur au lancement de l'USF "impossible de charger l'objet", certainement que je n'ai pas la même version d'Excel (2016 SP6 64 bits pour ma part) en recréant un USF et en y ajoutant tout simplement un Treeview et ton code bien sur, ca fonctionne

Si..., intéressante ta solution mais lourde à mettre en place, j'ai environ 5000 ref à rentrer dans 5 niveaux horizontaux différents, en tout cas merci pour cette option

Je pense que je vais partir sur la propo de Mapomme

merci à vous 3 pour m'avoir très bien orienté, je ne pensais pas trouver aussi vite mon bonheur