Index et EQUIV en VB

[youpiyoupa]

Salut tout le monde,
j'ai besoin de traduire cette fonction qui se trouve sur excel

=INDEX(Feuil2!$A$1:$D$855;EQUIV($A$2;Feuil2!$D$1:$D$855;0);1)

et la mettre dans une macro VB.
Merci d'avance pour votre aide.

 

[pierrejean]

Re : Index et EQUIV en VB

bojour youpiyoupa

A tester

=INDEX(Feuil2!$A$1:$D$855,MATCH($A$2,Feuil2!$D$1:$D$855,0),1)

 

[youpiyoupa]

Re : Index et EQUIV en VB

Merci pour la réponse. Ca marche très bien.
Cependant, j'ai besoin de faire cette opération sur un grand nombre de cellule et je voulais utiliser une boucle for pour que l'argument de equiv (le A1) soit incrémenté.
Cela m'évitera d'écrire la même formule une centaine de fois.

 

[pierrejean]

Re : Index et EQUIV en VB

Re

S'il S'agit de modifier A1 !!!

for n= 1 to nb
(........).formula="=INDEX(Feuil2!$A$"  & n  & ":$D$855,MATCH($A$2,Feuil2!$D$1:$D$855,0),1)"
next n