Index et EQUIV en VB

youpiyoupa · 6 Juillet 2009

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 · 6 Juillet 2009

Re : Index et EQUIV en VB

bojour youpiyoupa

A tester

Code:

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

youpiyoupa · 6 Juillet 2009

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 · 6 Juillet 2009

Re : Index et EQUIV en VB

Re

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

Code:

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

Index et EQUIV en VB

youpiyoupa

Guest

pierrejean

XLDnaute Barbatruc

youpiyoupa

Guest

pierrejean

XLDnaute Barbatruc

Discussions similaires

Index et EQUIV en VB

youpiyoupa

Guest

pierrejean

XLDnaute Barbatruc

youpiyoupa

Guest

pierrejean

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency