Discussion :

[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

Code :

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

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")"

[ouskel'n'or]

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 :

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

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

Sans garantie... (tu as beaucoup d'espaces dans ta formule)

[yucf_miagiste]

merci bq
mais j'ai toujours le même message

[ouskel'n'or]

M'étonne pas, je n'avais pas vérifié la syntaxe

Code :

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

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

[yucf_miagiste]

merci mais toujours ca marche pas

[yucf_miagiste]

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