XL 2013 tri suivant bouton option et combobox

[misteryann]

Bonsoir à toutes et tous.

Mon souhait:
En fonction des boutons d'options, alimenter la combo, puis en cliquant dans la combo filtrer la listBox.

Merci à celles et ceux qui vont se pencher sur cela.
Bien cordialement.
Misteryann

 

[misteryann]

Précision: E pour entreprise, Q pour Quartier et D pour Demandeur Dsl

 

[Dranreb]

Bonjour.
Pourquoi ne mettriez vous pas 3 ComboBox, Une pour l'entreprise, une pour le quartier, une troisième pour le demandeur ?

 

[misteryann]

Bonjour.
J'y ai pensé mais je trouve que la USF est "plus légère" comme ça

 

[Dranreb]

Soit. Mais je pense que vous vous trompez. C'est en ayant autant de ComboBox que de critères de recherche que ce serait le plus léger à tout point de vue.

Après installation de CBxl.xlam, corrigez la référence à CBxl dans CBxLiéesMisteryann.

 

[misteryann]

J'ai déjà vu ce CBxl.xlam
Cependant je ne serai pas le seul à utiliser ce fichier.
Cela signifie qu'il faudra "installer" ce fichier sur chaque PC (un vingtaine)...

 

[Dranreb]

Bon, alors je joins la version équipée des 3 modules de service.
Gardez quand même précieusement le CBxL.xlsm, pour sa feuille Aide CBxL

 

[misteryann]

Merci beaucoup Dranreb.
Exactement ce que je cherchais.

 

[misteryann]

Re.
J'ai copié les modules, les codes et lorsque je veux lancer l'USF j'ai le message:
"Erreur de compilation
type défini par l'utilisateur non défini"

 

[Dranreb]

Cochez la référence Microsoft Scripting Runtime
Elle définit le type Dictionary renvoyé par la fonction DicoSujet du module MSujetCBx

Vous devriez quand même faire un essai avec 3 ComboBox. Ça simplifierait la programmation dans l'UserForm (juste deux lignes à ajouter dans l'UserForm_Initialize), ça permettrait moins de manœuvres pour spécifier un critère et ça ouvrirait la possibilité de circonscrire la liste à une combinaison de plusieurs.

 

[misteryann]

Cocher la référence Microsoft Scripting Runtime, fait mais cela ne marche pas.
J'ai fait l'inverse en fait: j'ai importé mes USF, modules, etc dans votre fichier mais même message d'erreur.
Si vous avez le code avec 3 Combo je vais prendre je pense

 

[Dranreb]

Feuil1 est-il bien toujours le nom de l'objet Worksheet qui assume auprès de VBA la représentation de l'entité Excel formée de la bonne feuille contenant vos données ?
Vous auriez du m'indiquer l'instruction qui provoque cette erreur.

La version avec 3 ComboBox.

 

[Dranreb]

Important. J'ai découvert un Bogue dû à une nouvelle version d'une Function SujCBxFiltré insuffisamment testée. Désolé. Je joins provisoirement une version avec l'ancienne remise en service.

 

[misteryann]

Merci.
Je vais tester

 

[Dranreb]

Bonjour.
Alors, est-ce bon ?
Info: la nouvelle version de SujCBxFiltré marche maintenant aussi. L'erreur venait d'une Function IlEnResteFiltrés qu'elle utilise. Celle ci fait If TConsult(L) Then R = R + 1: TLong(R) = L, TConsult étant une liste de Boolean. Je savais pertinemment que l'indice L pouvait être en dehors des limites, et je faisais donc On Error Resume Next devant pour que ça ne plante pas. Mais je ne m'attendais vraiment pas à ce que l'exécution se poursuive alors, à tort, comme si ç'avait été True…
Si vous avez besoin d'autres aménagements j'en profiterai pour joindre ça avec le dispositif corrigé.