LA méthode index equiv fonctionne maois pas en macro

[zbig]

Bonjour

j'ai cette formule en k2 (feuille listing) qui fonctionne bien
=INDEX('List-etab'!$E:$E;EQUIV(Listing!B2;'List-etab'!$A:$A;0);0)

je veux la mettre sous forme de macro avec une boucle "tant que "
mais je n'y arrive pas (cf ci dessous)
merci de bien vouloir me piloter
merci
zbig




Sub Macro2()


i = 2
Do While Cells(i, 1) <> ""
'tant que les cellules de la colonnes A ne sont pas vides
'aller en cellule k2, puis faire une recherche de type index/equiv
Cells(i, 11) = INDEX('List-etab'!C5,MATCH(Listing!RC[-9],'List-etab'!C1,0),0)
'quand c'est fini, descendre d'une ligne
i = i + 1

Loop
'boucle finie

End Sub

 

[Efgé]

Re : LA méthode index equiv fonctionne maois pas en macro

Bonjour zbig,
Une proposition avec ce que j'ai compris:

[COLOR=blue]Sub[/COLOR] zbig()
[COLOR=green]'Avec la feuille listing[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("listing")
   [COLOR=green]'On trouve la dernière cellule remplie en bas de la colonne A[/COLOR]
    LstRow = .Range("A" & Rows.Count).End(xlUp).Row
   [COLOR=green]'La plage K2:K dernière ligne prend la formule[/COLOR]
    .Range("K2:K" & LstRow).FormulaLocal = "=INDEX('List-etab'!$E:$E;EQUIV(Listing!B2;'List-etab'!$A:$A;0);0)"
[COLOR=green]'Arret de l'utilisation de la feuille listing[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[zbig]

Re : LA méthode index equiv fonctionne maois pas en macro

Bonjour Efgé

c'est exactement ça!
ça marche
merci
Zbig