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 :
en fait, la valeur feuille désigne la feuille de calcul du classeur dans laquelle la fonction recherchev doit aller chercher la valeur.
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
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
Partager