Ecriture de formule par VBA

[DAVIDRUN]

Bonsoir à toutes et à tous,

Je souhaite écrire par VBA la formule suivante dans une cellule (F15 en feuil2),
cependant je rencontre quelques problèmes.

La formule est la suivante:
=INDEX(Feuil1!A2:B15;EQUIV(Feuil2!E15;Feuil1!A2:A17;0);EQUIV("Nb";Feuil1!A1:B1;0))

Quelques précisions sur la formule auparavent:
Une recherche est effectuée sur une base de données (Plage A2:B15) en feuil1
en fonction d'une valeur affichée manuellement en E15 feuil2.

Feuil2.range("F15").formula = "=INDEX....." & "....." etc....??????

Je n'ai pas compléter l'instruction; la mienne ne fonctionne pas.

Merci d'avance pour votre aide.

DAVIDRUN

 

[Lord Nelson]

Salut DavidRun,

Essaie ceci :

Feuil2.Range("F15").FormulaLocal = "=INDEX(Feuil1!A2:B15;EQUIV(Feuil2!E15;Feuil1!A2:A17;0);EQUIV(""Nb"";Feuil1!A1:B1;0))"

- FormulaLocal permet de rédiger la formule en français (pour nous)
Pour utiliser Formula, il faudrait traduire la formule comme ceci :
=INDEX(Feuil1!A2:B15,MATCH(Feuil2!E15,Feuil1!A2:A17,0),MATCH("Nb",Feuil1!A1:B1,0))

- Il te faut doubler les guillemets autour de Nb pour les retrouver dans la chaîne de caractères.

A+
Horatio

 

[DAVIDRUN]

Bonjour Horatio,

Merci pour ta réponse, c'est ce qu'il me fallait.

Bonnes fêtes.

DAVIDRUN