Amélioration d'un module de classe

Bonjour tout le monde,

Dans le cadre d'un gros chantier, je dispose d'un classeur qui fait office de base de données.
Pour effectuer mes calculs, j'ai besoin de déterminer le numéro de chaque colonne en me basant sur un code indicateur.

Pour cela, j'avais décidé de passer par un module de classe (que je maîtrise encore très mal) dont voici un exemple :

Code:

---

1 2 3 4 5 6 7 8

'Module de classe "cDATA_PERSONNEL" Property Get LOGIN() As Long LOGIN = ThisWorkbook.Sheets("DATA_PERSONNEL").Rows(Const_General_Lig_CodeIndic).Find("LOGIN", LookAt:=xlWhole).Column End Property Property Get NOM() As Long NOM = ThisWorkbook.Sheets("DATA_PERSONNEL").Rows(Const_General_Lig_CodeIndic).Find("NOM", LookAt:=xlWhole).Column End Property ...

---

Cela fonctionne très bien sauf que je me suis rendu compte que la valeur de ces propriétés est recalculée à chaque fois que j'y fais appel dans une macro. Cela ralenti donc considérablement l'exécution de mon code.

Existerait - il une solution ?

Je vous remercie par avance de votre aide.

Edit : J'ai bien évidemment pensé à passer par des constantes mais cette base de données est appelée à évoluer (ajout / suppression de colonnes) et vu que j'ai une quinzaines d'onglets comportant des dizaines de colonnes, ça sera très rapidement le foutoir dans les déclarations.

Bonjour,

Pourquoi ne pas mettre ces 2 variables en Public dans un module ?
Tu les calcules au Workbook_Open() ou ailleurs et tu as leurs valeurs durant ta session...

Un numéro de colonne suite à un Find : ce que tu as fait là ressemble beaucoup à ce que fait la fonction EQUIV().
https://support.office.com/fr-FR/art...9-533f4a37673a

Ne serait-il pas plus simple et moins lourd d'utiliser cette fonction ?

Bonjour,
L'intérêt d'un module de classe est d'avoir 1000 instance avec une variable LOGIN pour chaque et avec des valeurs différentes

Mais effectivement une variable publique en l'espèces ferait l'affaire!

Code:

---

1 2 3 4 5 6

Private LOGIN_ as long Property Get LOGIN() As Long If LOGIN_=0 then LOGIN_= ThisWorkbook.Sheets("DATA_PERSONNEL").Rows(Const_General_Lig_CodeIndic).Find("LOGIN", LookAt:=xlWhole).Column LOGIN=LOGIN_ End Property

---

Une Property peut être en lecture écriture ce que ne fait pas un fonction!

Citation:

---

Envoyé par parmi

Pourquoi ne pas mettre ces 2 variables en Public dans un module ?
Tu les calcules au Workbook_Open() ou ailleurs et tu as leurs valeurs durant ta session...

---

C'est ce que j'avais fait au départ. Le soucis c'est que mon classeur devient conséquent. J'ai plusieurs dizaines de numéro de colonnes à définir sur plusieurs dizaines d'onglets. Du coup je me retrouve avec plus d'une centaine de variables à calculer. Ça me fait une macro imbuvable et pénible à maintenir, ça doit bouffer de la mémoire pour rien etc....

Du coup je me suis dit que ça serait peut être plus pratique, léger et mieux organisé de créer un module de classe par onglet et d'y définir mes variables.

Citation:

---

Envoyé par Menhir

Ne serait-il pas plus simple et moins lourd d'utiliser cette fonction ?

---

Si ça fait exactement la même chose qu'un Equiv. Le soucis n'est pas la formule en elle même. Le soucis est de stocker les résultats et de les réutiliser ces valeurs dans le code

Citation:

---

Envoyé par dysorthographie

Bonjour,
L'intérêt d'un module de classe est d'avoir 1000 instance avec une variable LOGIN pour chaque et avec des valeurs différentes

Mais effectivement une variable publique en l'espèces ferait l'affaire!

Code:

---

1 2 3 4 5 6

Private LOGIN_ as long Property Get LOGIN() As Long If LOGIN_=0 then LOGIN_= ThisWorkbook.Sheets("DATA_PERSONNEL").Rows(Const_General_Lig_CodeIndic).Find("LOGIN", LookAt:=xlWhole).Column LOGIN=LOGIN_ End Property

---

Une Property peut être en lecture écriture ce que ne fait pas un fonction!

---

Si je comprends bien ton code, tu sors de la routine si une valeur a déjà été attribuée. Je vais modifier mon code pour voir si cela à un impact intéressant en temps d'exécution.

Merci à tous les trois

Bonjour,

Question surement idiote, mais pourquoi ne pas nommer tes colonnes?
Onglet Formules/gestionnaire de noms.

Avec des colonnes nommées, tu peux ajouter ou supprimer des colonnes et toujours les "retrouver" en les appelant dans ton code par leur nom.

Citation:

---

Envoyé par pijaku

Question surement idiote, mais pourquoi ne pas nommer tes colonnes?

---

Pour deux raisons :
- Pour ne pas éparpiller les éléments de mon code. Cela obligerait, lors de la maintenance, à jongler entre VBE et Excel pour identifier les soucis, modifier les paramètres etc...
- Il me paraît difficile de gérer autant de variables via le gestionnaire de noms. Ça serait très vite illisible.