bonjour à tous,

j'ai une colle pour vous ; je cherche à insérer une formule dans une cellule en vba, car un des champs dépend du contenu d'une autre formule. (ça parait un peu compliqué, mais le code est relativement simple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Bouton1_Clic()
    Dim formule, feuille As String
    n = Worksheets("Feuil1").Range("K4").Value
    feuille = Worksheets("Feuil1").Range("G2").Value
    formule = "=IF(H2=" & """tournage""" & ";VLOOKUP(H5;" & feuille & "!B:F;1;FALSE);VLOOKUP(H5;" & feuille & "!I:J;1;FALSE))"
    For i = 1 To n
    MsgBox (formule)
    Worksheets("Feuil1").Range("J" & i + 4).FormulaR1C1 = formule
    Next i
End Sub
en fait, la valeur feuille désigne la feuille de calcul du classeur dans laquelle la fonction recherchev doit aller chercher la valeur.

j'ai essayé de rentrer le code en langage US et FR, avec ou sans le R1C1 (et le local quand le code est en français), mais rien n'y fait, j'ai toujours l'erreur 1004...


je vous remercie d'avance de vos réponses