Menu deroulant cascade sans doublons à 3 niveaux

[jlp035]

Bonjour,
Je souhaite réaliser un menu déroulant (zone en vert dans l'userform) en cascade sans doublons de la feuille "Destinataires" compatible avec ma textbox1 car je ne trouve pas la solution :
choix à effectuer sur la feuille" Destinataires" colonnes:
- F pour la comboxbox "Domaine"
- G pour la combobox "Sous_Domaine"
- H pour la combobox "Sous_Sous_Domaine"

Merci pour votre aide.

Jean-Luc

 

[chris]

Re : Menu deroulant cascade sans doublons à 3 niveaux

Bonjour

Si tu ouvres ce post, tu verras en bas de la fenêtre plusieurs fils sur ce sujet...

 

[Bebere]

Re : Menu deroulant cascade sans doublons à 3 niveaux

bonjour Jlp,Chris
tu parles de textbox1,pas trouvé
fait avec les données de menus colonnes b,c,d

 

[Dranreb]

Re : Menu deroulant cascade sans doublons à 3 niveaux

Bonjour.
Pourquoi n'utiliseriez vous pas mon module de classe ComboBoxCasc qui se chargerait entièrement de la gestion de ces ComboBox ?
À +

 

[jlp035]

Menu déroulant cascade sans doublons à 3 niveaux ( Résolu )

Bonjour à tous,
Merci encore Bebere, j'ai juste modifier le nom de la feuille et les colonnes, et ça marche.
Pour info le Listbox1 est en partie haute de la feuille ( en dessous des filtres de sélections ).
D'ailleurs si une personne peut arriver à me valider les combobox10,11 et 12 de filtre, je suis preneur car je n'arrive pas à modifier les tous les paramètres et j'ai un message d'erreur.

Merci

Jean-Luc

 

[Bebere]

Re : Menu deroulant cascade sans doublons à 3 niveaux

bonjour Jlp,Chris,Dranreb
un essai avec OutIdx.xls de Dranreb
tu installes OutIdx dans un dossier de ton choix
tu ouvres ton fichier
au lancement de userform tu auras un message
ensuite
menu outils références tu as MANQUANT: devant OutIdx,tu décoches la case
avec parcourir tu vas chercher OutIdx.xls
ensuite menu outils références tu coches la case devant OutIdx
pour plus de détails tu recherches sur le forum
explique ton filtre
je pense qu'il y a moyen de simplifier
Merçi à Dranreb

 

[Dranreb]

Re : Menu deroulant cascade sans doublons à 3 niveaux

Bonjour
Il y a un truc vraiment idiot dans votre code:
MonDico est déclaré As Object alors que vous avez pourtant la "Microsoft Scripting Runtime" dans les références !

En considérant le titre de la discussion, vous devriez quand même vérifier si vous ne trouveriez pas votre bonheur ici.
À +

 

[Bebere]

Re : Menu deroulant cascade sans doublons à 3 niveaux

Dranreb
ce serait bien que tu expliques au lieu de dire que c'est un truc idiot
pour ma part je n'ai aucune formation en programmation
j'aime les remarques qui font progresser

 

[Dranreb]

Re : Menu deroulant cascade sans doublons à 3 niveaux

je n'ai aucune formation en programmation

Ouaou ! Vous vous êtes lancé dans un truc bien costaud alors !
En déclarant vos objets Dictionary As Object au lieu de les déclarer As Dictionary vous perdez tout le bénéfice des liaisons anticipées aux méthodes et propriétés de la bibliothèque Scripting. J'ajouterais que lorsque vous l'avez en ligne, comme c'est le cas dans votre classeur, vous n'avez plus besoin de CreateObject("Scripting.Dictionary") pour leur procurer une instance: il suffit de New Dictionary.

 

[Bebere]

Re : Menu deroulant cascade sans doublons à 3 niveaux

donc en déclaration Dim MonDico As Dictionary
dans le code Set MonDico = New Dictionary à la place de Set MonDico = CreateObject("Scripting.Dictionary")
merçi

 

[Dranreb]

Re : Menu deroulant cascade sans doublons à 3 niveaux

Oui, c'est cela.
Ainsi, en prime, les méthodes et propriétés possibles seront suggérées dans une liste dès la frappe du point derrière MonDico.
Cordialement.

 

[Bebere]

Re : Menu deroulant cascade sans doublons à 3 niveaux

bonjour Jlp
tu trouveras quelques changements dans le code

 

[jlp035]

Bonsoir Berere,
Je te remercie encore pour ton travail, peux tu jeter un oeil sur les combobox "Services, Marques et matériels" car quand j'appuie sur les touches le contenu qui s'affiche de la lisbox1 ce décale vers la gauche et commence donc a la colonne "C" au lieu de "A".
J'ai également remarqué que l'appui sur la touche " Tous " dans le clavier alphabétique, affiche " *Societe" au lieu de "*".
Peux également m'expliquer pour ma culture personnelle pourquoi le morceau de programme "filtre" ne semblait plus fonctionner après 9 colonnes.

Merci