Microsoft 365 VBA transformer une formule au format texte en formule dans excel

[jujulili]

Bonjour, je récupère des formules d'une base de donnée en format texte avec des noms de variable. Dans mon code j'arrive à remplacer les noms de variable par les adresses des cellules qui correspondent et en dernière étape j'ajoute un "=" au début de ma cellule pour transformer le texte en formule.
cells(i,j) = "ma formule en format texte sans = au début". Par exemple cells(i,j)="$J$31*(1-$J$11)"
cells(i,j).formula="=" & cells(i,j)

Cela fonctionne pour les formules qui ne commencent pas par une parenthèse. mais pour celles avec une parenthèse mon code plante. Avez vous une idée de ce qui bloque?
Exemple de formule qui fonctionne: $J$31*(1-$J$11) devient =$J$31*(1-$J$11)
Exemple de formule qui ne fonctionne pas: (0,0336928702890873+(0,0292808301746845-0,0336928702890873)*$J$71)/($J$8*1000*$J$71)
Pourtant si je procède manuellement dans la cellule excel en ajoutant tout simplement un "=", cela fonctionne. Ayant des centaines de formule, je cherche une solution automatique.
Merci beaucoup
Julien

 

[job75]

Bonsoir jujulili, bienvenue sur XLD,

Votre Excel est sans doute une version française.

Dans ce cas pour utiliser Formula les nombres décimaux doivent s'écrire avec le point comme séparateur.

Sinon utilisez FormulaLocal :

Sub a()
Dim f$
f = "(0,0336928702890873+(0,0292808301746845-0,0336928702890873)*$J$71)/($J$8*1000*$J$71)"
[A1].FormulaLocal = "=" & f
End Sub

A+

 

[jujulili]

Bonsoir jujulili, bienvenue sur XLD,

Votre Excel est sans doute une version française.

Dans ce cas pour utiliser Formula les nombres décimaux doivent s'écrire avec le point comme séparateur.

Sinon utilisez FormulaLocal :

Sub a()
Dim f$
f = "(0,0336928702890873+(0,0292808301746845-0,0336928702890873)*$J$71)/($J$8*1000*$J$71)"
[A1].FormulaLocal = "=" & f
End Sub

A+

Merci pour la solution "formulalocal". cela marche très bien.