Discussion :

[JesuhsXVII]

Bonjour,



J'utilise une boucle pour créer une String.

Code :

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

1
2
3
4
5
6
7
formul = "="
 
Do
formul = formul & "+" & ActiveCell.Value & "!" & Plage.AddressLocal & "*" & ActiveCell.Offset(0, 1).Value
 
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = ""

A ce moment là : formul = "=Actual!$O$97*0,8+B!$O$97*1+C!$O$97*1"

Et quand j'essaye de l'insérer dans une cellule
ex: Range("A1").Formula = formul
Il génère une erreur...
Par contre si je passe A1 en format Texte, pas d'erreur, mais la formule ne fonctionne pas et reste ainsi dans la cellule.
Je suis obligé, après, de redéfinir la cellule en format Standard, de double cliquer sur la cellule, puis de taper entrée pour que la formule fonctionne.

Quelqu'un sait-il pourquoi cela ne fonctionne pas ?

Merci.

[Gorfael]

Salut
donne un fichier d'exemple. ça doit être une conn...rie mais pour la trouver sans le fichier, ça va être dur
A+

[Singular]

Tu fais une itération dans la colonne de ActiveCell et cette colonne semble devoir contenir des noms de feuilles.

Cependant, d'après le résutat dans ta String, il semble que tu a B comme valeur plutôt qu'un nom de feuille dans la case en-dessous (mais peut-être que "B" est un nom de feuille après tout, je ne peux pas savoir sans exemple).

Mais le problème est probablement dû au fait que tu essaies d'entrer une formule contenant des valeur formatées en français dans la propriété de forme anglaise. Essayes plutôt de faire:

Code :

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

Range("A1").FormulaLocal = formul