Discussion :

[sambrook]

Bonjour,

je veux inserer la formule YEILD dans mon code VBA, et calculer le Yeil sur toute ma colonne, mais j'ai tourjours une erreur de syntaxe sur mon code, je comprend pas pourquoi, si vous pouvez m'aider n'hesitez surtout pas
Merci bcp

Code :

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

1
2
3
 For i = 8 To Worksheets("Feuil2").Cells(8, 1).End(xlDown).Row
    Worksheets("Feuil2").Cells(i, 13).Formula = "=YEILD(Worksheets("Feuil2").Cells(i, 4).Value, Worksheets("feuil2").Cells(i, 5).Value, Worksheets("feuil2").Cells(i, 8).Value, Worksheets("feuil2").Cells(i, 9).Value, 100, 1)
    Next

[COCONUT2]

Bonjour SAM

Ta fonction comporte un loupé.

lorsque tu notes cells(i,13).formula = , il attend une chaine de caractere telle que tu la noterais dans la cellule or tu ne peux pas y noter une chaine de caractere incluant des elements VB comme worksheet ou la variable i.

Il attend quelque chose du type A16 + B18 par exemple ou alors si tu es en relatif, RC(1) + RC(3)

Il faut retravailler ta fonction en ce sens en la notant comme une chaine de caractere

formula ="=YIELD (" & cells(i,3).value & " , " ...

[Invité]

Bonjour,
Tu as un trait bon didacticiel dans Excel :
Tu enregistre une macro A1= ma formule.
Tu vas dans vb [ALT]+[F11]
Tu ouvres la fenêtre d’exécution [CTRL]+[G]
Et tu écris ?range("A1").FormulaR1C1
Et la réponse arrive.

[sambrook]

merci bcp pour votre aide

le code que j'ai utilisé est

Code :

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

1
2
3
 For i = 8 To Worksheets("Feuil2").Cells(8, 1).End(xlDown).Row
    Worksheets("Feuil2").Cells(i, 13).FormulaR1C1 = "=YIELD(RC[-9],RC[-8],RC[-5],RC[-4],100,1)"
   Next

encore merci et bonne journée les amis