Microsoft 365 ajouter une formule dans une ligne de code

[pascal21]

bonjour à tous, je galère pour trouver la syntaxe exacte pour rajouter une formule de recherche dans une ligne de code
Je voudrais remplacer ça

 ActiveCell.Offset(0, 7) = Application.Proper(TextBox10)

par

ActiveCell.Offset(0, 8) = =SI(A11="";"";RECHERCHEV(A11;STOCK!C$6:H$121;6;0))

j'ai essayé de copier la formule avec l'enregistreur mais ça marche pas la première condition (si) donne faux alors que la condition est vraie

 = FormulaR1C1 = "IF(RC1="""","""",VLOOKUP(RC1,STOCK!R[-8]C[-18]:R[110]C[-12],6,0)"

dans la feuille la formule recherche fonctionne très bien pourtant
comment faire?
merci

 

[mapomme]

Bonjour @pascal21🙂,

Essayez : ActiveCell.Offset(0, 8).FormulaLocal = "=SI(A11="""";"""";RECHERCHEV(A11;stock!C$6:H$121;6;0))"

 

[pascal21]

FormulaLocal = "=SI(A11="""";"""";RECHERCHEV(A11;stock!C$6:H$121;6;0))"

bonjour
ca ne change rien ça renvoie toujours faux dans la cellule meme si je supprime la condition si (a11=""
alors a11 est une variable en fait puis que la formule recherchev ligne 12 par exemple doit aller chercher les infos de la cellule a12

 

[mapomme]

Re,

a11 est une variable en fait puis que la formule recherchev ligne 12 par exemple doit aller chercher les infos de la cellule a12

Il fallait le dire dès le début !
Envoyez donc un petit classeur représentatif et anonymisé pour qu'on sache ce que vous voulez exactement et où.

nota : avec ce que vous aviez énoncé dans votre premier message, la formule fonctionne pour la ligne 11 (voir classeur joint).
Après il suffit de la recopier 😉 pour que ça fonctionne pour d'autres lignes. Mais sans classeur de votre part, je passe mon tour.

 

[Dranreb]

Bonjour.
Une question que je me pose: Pourquoi en FormulaR1C1 mous mettiez des références relatives là où la formule que vous vouliez installer avait des références absolues et inversement ?
En B11 :

=SI(A11="";"";RECHERCHEV(A11;STOCK!C$6:H$121;6;0))

.[B11].FormulaR1C1 = "=IF(RC[-1]="""","""",VLOOKUP(RC[-1],STOCK!R6C[1]:R121C[6],6,0))"

 

[Dranreb]

Notez que personnellement je mettrais aussi des références absolue aux colonnes :

.[B11].FormulaR1C1 = "=IF(RC1="""","""",VLOOKUP(RC1,STOCK!R6C3:R121C8,6,0))"