Discussion :

[Dereck07]

Bonsoir,

j'ai fait une routine qui ecrit une formule dans des celules en fonction de leurs possitions. voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim R As String, L As String
Dim i as integer
'...
    L = Trim(Str(i))
    R = "W" & L
    W_book.Sheets("Foreseeable Tasks").Range(R).Formula = "=U" & L & "+V" & L & "-SOMME(Z" & L & ":BY" & L & ")" 'V19=T19+U19-SOMME(Z19:BY19)
    R = "X" & L
    W_book.Sheets("Foreseeable Tasks").Range(R).Formula = "=X" & Trim(Str(i - 1)) & "+W" & L 'W19=X18+W19
    R = "Y" & L
    W_book.Sheets("Foreseeable Tasks").Range(R).Formula = "=(NB.JOURS.OUVRES($E$1;D" & L & "))*$C$1" 'Y19=(NB.JOURS.OUVRES($E$1;D19))*$C$1
'...

Les formules que je veux se mettent bien dans les cellules mais ne se calculent pas. Au lieu d'avoir le resultat dans la cellule j'ai #NOM?
Si apres l'execution de la maco je met la souris sur la formule et que j'appuis sur entré alors la excel me calcule le resultat.
Ma question est quel est l'instruction qui permet de lance le calcule d'une formule dans une cellule?

Merci d'avance

[tirex28]

Bonsoir,

Etant donné que tu utilise des noms de fonctions en français j'essaierais bien FormulaLocal en lieu et place de Formula.

A tester.

Cordialement,

Tirex28/

[Dereck07]

Effectivement, Ca marche!

Merci Tirex28