XL 2013 tri suivant bouton option et combobox

misteryann

XLDnaute Occasionnel

• 29 Juin 2017

• #2

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Juin 2017

• #3

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

 

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 30 Juin 2017

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Juin 2017

• #5

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.

 

Pièces jointes

• CbxLiéesMisteryann.xlsm

  21.5 KB · Affichages: 36
• CBxL.xlsm

  132.6 KB · Affichages: 31

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 30 Juin 2017

• #6

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)...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Juin 2017

• #7

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

 

Pièces jointes

• CbxLiéesMisteryann.xlsm

  74.6 KB · Affichages: 35

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 30 Juin 2017

• #8

Merci beaucoup Dranreb.
Exactement ce que je cherchais.

 

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 30 Juin 2017

• #9

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"

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Juin 2017

• #10

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.

 

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 30 Juin 2017

• #11

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Juin 2017

• #12

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Juin 2017

• #13

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.

 

Pièces jointes

• CbxLiéesMisteryann.xlsm

  72.7 KB · Affichages: 42

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 1 Juillet 2017

• #14

Merci.
Je vais tester

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Juillet 2017

• #15

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é.

 

Vote positif 0 Vote négatif