Discussion :

[GeoTrouvePas]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[parmi]

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

[Menhir]

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 ?

[pijaku]

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.

[GeoTrouvePas]

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.

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[GeoTrouvePas]

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.

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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