Discussion :

[MrPom_]

Bonjour à tous,

Nouvellement inscrit, je viens vous voir car je après maintes et maintes recherche je bloque sur un problème.
Je souhaite utiliser la valeur d'une cellule pour déclarer (et typer) la variable du même nom à l'aide d'une boucle
J'ai une quarantaine de variable à déclarer et typer d'après un table et dans soucis de lecture, et du fait de l'illogisme total de mon application, je ne veux pas utiliser de variable tableau.

L'idée c'est :

Dans mon module la variable est déjà déclarée et typée (Public IntRap as FONCTION_DATA)
(Mon type FONCTION_DATA comprends diverses propriétés (FctCod, FctMotif,...))

Boucler sur la colonne B (de ligne 3 à N)
Prendre la valeur (string) de la cellule (ligne,colonne B) la première est ici "IntRap", et déclarer les variables IntRap.FctCod, IntRap.FctMotif,...


Avec de l'imagination cela donnerait

Code :

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

1
2
3
4
5
6
7
8
9
10
For LIGNE = 3 To 62
        maVar = sheets("DB").Cells(LIGNE, 2).Value 
 
' La une fonction de conversion un peu comme la fonction INDIRECT() d'Excel
        With indirect(maVar)
                .Design = BASE.Cells(LIGNE, 3).Value
                .FctCod = BASE.Cells(LIGNE, 6).Value
                .FctMotif = BASE.Cells(LIGNE, 7).Value
        End With
Next LIGNE

Je veux donc faire une déclaration de variable dynamique mais pas en utilisant une variable tableau
Si quelqu'un à une idée je suis preneur car je cherche en vain depuis pas mal de temps

Pour plus d'infos voyez le fichier memo.xls, le problème se situe dans le module "M1_Principal" entre les ' ????????????????????
J'ai mis pour l'instant 6 section de déclaration pour que vous voyez un peu la structure actuelle que je souhaite remplacer par une boucle unique.

Merci d'avance à ceux qui me répondront.

[Daniel.C]

Bonjour,

A mon avis, tu ne peux pas, les variables utilisateurs doivent être déclarées à l'extérieur d'une procédure, en tête du module.

[MrPom_]

Bonjour,

Merci d'avoir répondu si rapidement.
En fait je me suis mal exprimé, la variable est déclarée préalablement.
Je veux affecter une valeur à cette variable, comme il est de coutume n'importe, ou dans le code.

J'ai trouvé une méthode qui approche de ce avec l'ajout de la référence MSscriptcontrol et la génération de code dans le code mais cela ne convient pas tout a fait.

Je continu de chercher.

[Philippe Tulliez]

Bonjour,

Merci d'avoir répondu si rapidement.
En fait je me suis mal exprimé, la variable est déclarée préalablement.

Comme Daniel, j'avais compris que tu souhaitais déclarer et typer dynamiquement une variable.

Je veux affecter une valeur à cette variable, comme il est de coutume n'importe, ou dans le code

Qu'entends-tu par là ?
Je n'ai pas compris ton analogie à la fonction INDIRECT
L'affectation de la valeur à la variable dépend de quoi ?

[MrPom_]

Merci Philippe, en effet la fonction indirect n'était peut être pas une analogie adéquate


Je sais pas comment le dire pour synthétiser mais je veux que les valeurs lue dans ma source excel soit prises en tant que variable dans le code (préalablement déclarée Public et avec un typage défini)
Le nom de la variable dépend de la valeur lue dans le tableau par la boucle.
En colonne B (colonne2) j'ai mes noms de variable
En F (colonne6), mon type .fctCod
en G (colonne7), mon type .fctMotif

Exemple:
Je lis les cellules B3,F3,G3 dans le tableau
La valeur de B3 est "IntRap", la valeur de F3 est "G00" et la valeur de G3 est une expression régulière "G0?0[^0-9]
Du coup je veux déclarer dans le code que ma cellule B3 (cells(2,3)) défini une variable à l'aide de la fonction mystère (FCTMYSTERE):

FCTMYSTERE(Sheets("DB").cells(2,3).value).fctCod = Sheets("DB").cells(6,3).value
qui donnerais un équivalent de:
IntRap.fctCod = Sheets("DB").cells(6,3).value

FCTMYSTERE(Sheets("DB").cells(2,3).value).fctMotif = Sheets("DB").cells(7,3).value
qui donnerais un équivalent de:
IntRap.fctMotif = Sheets("DB").cells(7,3).value


Je viens de faire une rapide connaissance avec les fonctions de table de hachage je vais voir si ca peux être plus adéquat à mon besoin.

Merci si vous avez des idées

[Philippe Tulliez]

Bonjour,
Je vois plus clair.
J'ai déjà travaillé avec ce type d'idée mais avec des variables tableaux mais tu as précisé que tu ne souhaitais pas les utiliser.

[MrPom_]

Oui en effet la variable tableau si preterais bien mais je souhaite conserver un code tres lisible car il a destiné à convertir un programme machine (language ISO ou autre) composé d'une codification déja peu explicite.
Il faudra en plus que j'effectue de nombreux calcul avec les variables déterminé afin d'effectuer un tracé sur une application de CAO donc je ne peux me permettre d'avoir une troisième couche de référencement.

Merci pour tes réponses.

Je vous dirais si je trouve mon bonheur a partir d'une table de hachage.