XL 2010 Difficultés avec un module de classe

[Magic_Doctor]

Bonjour,

Sur une feuille il y a plusieurs ComboBox. Tous ont la même action. Aussi, j’aimerais les regrouper dans un module de classe. Maniant mal ces modules, j’ai fait une tentative, ça ne marche pas très fort. Quand on choisit un item dans la liste d’un ComboBox, celui-ci ne disparaît plus des listes des autres ComboBox.
En PJ, l’application sans module de classe qui marche, elle, bien et la même application avec un essai de module de classe.

Merci d’avance pour m’aider à résoudre ce problème.

 

[job75]

Bonjour Magic_Doctor, le forum,

En PJ, l’application sans module de classe qui marche, elle, bien

Non, chez moi il y a systématiquement un bug Erreur Automation sur la ligne :

Set ListeSolvTriés = CreateObject("System.Collections.ArrayList")

Avant de faire un module de classe il faut que ton projet tienne la route.

A+

 

[job75]

Ce fichier va quand même mieux.

J'ai revu les macros DresseCombosListes et SelectFirstItemCombo qui n'allaient pas du tout.

 

[job75]

Fichier joint avec le module de classe.

La classe CB est initialisée dans la Workbook_Open.

L'évènement GotFocus n'existant pas j'utilise DropButtonClick.

La classe CB permet en outre de simplifier les macros, étudiez-les bien pour comprendre.

 

[job75]

Le module de classe accélère les affichages.

Chez moi pour passer de 1 ComboListe à 7 affichées :

- fichier du post #3 => 0,6 seconde

- fichier du post #4 => 0,06 seconde, c'est 10 fois plus rapide.

 

[Magic_Doctor]

Bonsoir job,

Avant de faire un module de classe il faut que ton projet tienne la route.

Il se trouve que chez moi, avec une version Excel 2007, ça marchait, sinon je n'aurais pas tenté fe faire un module de classe. Mais peut-être est-ce dû à la latitude... même si on se les caille ici.

En effet, faire le tri directement à la "racine" de la BD simplifie singulièrement les choses.

J'ai revu les macros DresseCombosListes et SelectFirstItemCombo qui n'allaient pas du tout.

En effet, ça n'a plus rien à voir, surtout concernant la macro "DresseCombosListes(ComboName$)".

.Sort .Cells(1), xlAscending, Header:=xlNo 'pas indispensable si la liste est triée une fois pour toute

Dans la mesure où l'on voudrait supprimer des solvants ou rentrer de nouveaux solvants (ce qui sera le cas), oui c'est indispensable.
Ce qui m'a bluffé (outre que ça marche maintenant à la perfection), c'est la rapidité d'exécution de la procédure en passant par le module de classe.
DropButtonClick : je découvre !
Je voulais passer par Click ou Change... Bref, je m'y perds un peu.
Enfin, la syntaxe CB(i).CB signifie bien "l'élément CB(i) de la classe CB" ?
En tout cas, un grand merci pour ce grand coup de main.
Buenas noches.

 

[job75]

Tu n'as pas encore compris que mettre en solution un de tes messages est totalement aberrant ?

 

[Magic_Doctor]

On se calme !
C'est pas grave, je me suis trompé de bouton. Maintenant c'est rectifié pour en définitive avoir exactement le même résultat, puisque le problème vient d'être résolu.
Du reste, n'importe quel quidam qui passerait par là comprendrait sans trop d'efforts que c'est bien job75 qui a résolu le problème.
J'ai vu dans mon existence des aberrations pires...