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"

[Solkien]

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

Code :

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

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

Voir même :

Code :

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

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

?

[yucf_miagiste]

merci bq pour votre collaboration

à la fin marche avec ce code

Code :

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

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