Discussion :

[Tullium]

Bonjour à tous,

J'ai une problématique qui semble toute bête mais que je n'arrive pas à résoudre :

J'obtiens sous forme de variable une formule définit en texte :
Ex : a (qui est ma variable) = "=1000/690*Racine(3)". Je souhaiterais que VBA me calcul la formule pour envoyer dans un label le résultat. Or, je n'arrive pas à effectuer ce calcul, la formule restant sous forme de Texte.


Pour expliquer plus concrètement, j'ai définit sur une feuille Excel un tableau structuré qui comprend en ligne une liste d'Unité, en Colonne une liste de type d'alimentation. (fichier elec) et dans le corps du tableau une liste de formule (une formule par cellule)
En choisissant l'unité et l'alimentation (donc ligne et colonne), je récupère une formule enregistrée sous forme de texte (ex :cellule D4: '=CONSOMMATION/TENSION*Racine (3))

Sous VBA j'ai défini une variable Conso avec une valeur (qui sera alimentée via un formulaire) et une variable tension (alimentée aussi)

J'utilise la fonction replace pour modifier "CONSOMMATION" par Conso et "TENSION" par Tension.
Cette formule est enregistrée dans une variable a qui me donne par exemple a="=1000/690*racine(3).
Et la j'arrive à mon problème, c'est a dire que je voudrais faire apparaître dans un label la valeur 2,5102.... et non la formule 1000/690*racine (3)

Merci d'avance pour votre aide.

[a_diard]

Bonjour

je pense qu'il faut mettre :

Code :

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

a  =Conso /Tension*Racine(3)

les valeurs des variables fournies et de a

et vérifier a en mode pas à pas

tu demande a VBA de mettre la formule dans la variable, il le fait.

Bonne journée.

[Tullium]

Merci a_diard pour le retour.

La formule n'est pas écrite dans VBA. Je la récupère via le tableau sur une feuille Excel, et sous forme de texte ('=CONSOMMATION / TENSION * RACINE (3)). suivant les lignes et colonnes choisis, les formules ne sont pas les mêmes.

Oui je demande a VBA de mettre la formule dans la variable, mais je souhaiterais passer à l'étape d'après, qui est de demandé à VBA de calculé cette formule.

Dans Excel, la formule est dans une cellule sous forme de Texte : '=CONSOMMATION / TENSION * RACINE (3)
j'envoie cette formule dans une variable VBA ce qui donne a = "=CONSOMMATION/TENSION*RACINE(3)
Je change, avec la fonction replace, les variables par les valeurs numériques : a="=1000/690*1.73..." --> mais la formule reste une chaine de caractère texte

Et l'étape suivante, c'est de transformer cette chaine de caractère en formule pour que VBA la calcule et me renvoie dans un label le résultat.

[halaster08]

Bonjour,

Peut être avec evaluate ? https://docs.microsoft.com/en-us/off...ation.Evaluate

[RyuAutodidacte]

Bonjour,

Pour cela il faut utiliser Evaluate - cf aide vba

Edit : @halaster08 - on a posté quasi en même temps, je confirme pour Evaluate (il faudra enlever le signe = pour utiliser la formule dans Evaluate)

[Tullium]

Bonjour RyuAutodidacte et halaster08,

J'avais trouvé cette fonction sur un forum mais cela me renvoie Erreur 2015, même en enlevant le signe égal.

[halaster08]

J'avais trouvé cette fonction sur un forum mais cela me renvoie Erreur 2015, même en enlevant le signe égal.

Peux-tu nous montrer ton code et préciser la ligne + le descriptif de l'erreur.