vba:problème formula vba

Version imprimable

bonjour
j'ai un problème avec ce code et je pense que le problème au niveau (;)
est ce que kelkun peut m'aider
Code:

1 2 3 4 5 m = MOYENNE('Feuill3'!N13) lt = Len(m) m = Mid(m, 1, lt - 1) Feuil7.Range("N"13).Formula = m & " ; '" & Feuil1.Name & " '! " & "N13")"

10/09/2007, 17h26
ouskel'n'or

Citation:

Envoyé par yucf_miagiste

bonjour
j'ai un problème avec ce code et je pense que le problème au niveau (;)
est ce que kelkun peut m'aider
m = MOYENNE('Feuill3'!N13)
lt = Len(m)
m = Mid(m, 1, lt - 1)

Feuil7.Range("N"13).Formula = m & " ; '" & Feuil1.Name & " '! " & "N13")"

Voui... Ta formule est en français dans le texte... Tu dois déjà utiliser "FormulaLocal" à la place de "Formula". Ensuite, tu dois commencer ta formule par le signe "=". Ce qui devrait "à peu près" donner :

Code:

Feuil7.Range("N" & 13).FormulaLocal = "=" & m & " ; '" & Feuil1.Name & " '! " & "N13)"

Sans garantie... (tu as beaucoup d'espaces dans ta formule)
10/09/2007, 17h46
yucf_miagiste

merci bq
mais j'ai toujours le même message
10/09/2007, 18h00
ouskel'n'or
M'étonne pas, je n'avais pas vérifié la syntaxe
Code:

1 2 Feuil7.Range("N" & 13).FormulaLocal = _ "=MOYENNE('Feuil3'!N13;" & Feuil1.Name & "'!N13)"
Teste déjà ça.
Pour le nom de feuille, c'est Feuill3 ou Feuil3 ou Feuil13 ? Vérifie
10/09/2007, 18h30
yucf_miagiste

merci mais toujours ca marche pas
10/09/2007, 18h34
yucf_miagiste

j'ai l'erreur "1004" avec le message "erreur definie par l'application ou par l'objet"

Quelle est la différence entre ce que tu veux et :

Code:

1
2
Feuil7.Range("N13").FormulaLocal = _
         "=MOYENNE(Feuil3!N13;Feuil1!N13)"

Voir même :

Code:

1
2
Feuil7.Range("N13").FormulaLocal = _
         "=MOYENNE(Feuil3!N13;" & Feuil1.Name & "!N13)"

merci bq pour votre collaboration

à la fin marche avec ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
m = Feuil7.Range("N" & i).FormulaLocal
    lt = Len(m)
    m = Mid(m, 10, lt - 10)
    n = "'" & Worksheets(v).Name & "'! " & "N" & i & ""
    Feuil7.Range("N" & i).FormulaLocal = "=MOYENNE(" & m & ";" & n & ")"
 
      mm = Feuil7.Range("M" & i).FormulaLocal
    lt = Len(mm)
    mm = Mid(mm, 10, lt - 10)
    nn = "'" & Worksheets(v).Name & "'! " & "M" & i & ""
    Feuil7.Range("M" & i).FormulaLocal = "=MOYENNE(" & mm & ";" & nn & ")"