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.