LA méthode index equiv fonctionne maois pas en macro

zbig · 30 Novembre 2010

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é · 30 Novembre 2010

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

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

Code:

[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 · 30 Novembre 2010

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

Bonjour Efgé

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

LA méthode index equiv fonctionne maois pas en macro

zbig

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

zbig

XLDnaute Occasionnel

Discussions similaires

LA méthode index equiv fonctionne maois pas en macro

zbig

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

zbig

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency