Instruction dynamique et son application

**lthibert** · 16/08/2007, 17h41

Bonjour,

J'aimerais savoir si on peut générer des instructions dynamiques en VBA.

J'ai un tableau qui me dit que

Indicateur ¦ Formule
GPS ¦ GPSRATE * VOLUME

J'aimerais savoir si VBA peut lire la colonne Formule pour générer l'instruction suivante lors du calcul de l'indicateur GPS :

Code :

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

value = grid.getVal("GPSRATE", colrel) * grid.getVal("VOLUME", colrel)

Bref, j'ai besoin de reconnaitre les "acteurs" de la formule (qui peuvent être plus de deux) et le signe arithmétique entre eux. Mes formules restent simples, c'est rarement plus de deux acteurs sauf lors de sommes. Donc pas de priorité arithmétique en perspective.

Si c'est possible, comment ensuite exécuter cette instruction dynamique ?

Mille mercis
Laurent

**zazaraignée** · 16/08/2007, 19h15

Je ne suis pas certaine d'avoir bien compris. Mais si tu veux récupérer des parties séparées de la formule d'une cellule écrite dans la cellule (qui est une valeur de string, en fait), tu peux séparer tous ces éléments avec la fonction Split et les récupérer dans un tableau. Chaque mot de la phrase qui composent ta formule se trouvent dans un indice de tableau.

En supposant que les formules sont dans la colonne B et que, pour cet exemple, la formule cherchée est sur la ligne 4...

Code :

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

1
2
3
Dim strTabFormule() As String
Dim strFormule As String
strTabFormule = Split(Range("B4").Value)

En supposant que tes formules dans les cellules de ton tableau sont toujours composés de deux opérandes et d'un opérateur...

Code :

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

1
2
strFormule = "grid.getVal(" & strTabFormule(0) & ", colrel)" & _
    strTabFormule(1) & "grid.getVal(" & strTabFormule(2) & ", colrel)"

Et en ajoutant une référence à Microsoft Scripting Runtime dans ton projet VBA (menu Outils, Référence de l'éditeur VBA).

Code :

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

Value = Eval(strFormule)

Ceci dit, j'ai VB6 installé sur ma machine. Alors, je ne sais pas (depuis le temps) si Microsoft Scripting Runtime est venu avec VB6, avec Office ou s'il est présent naturellement avec Windows (éventualité qui me surprendrait fort).