Fonctions Index Equiv en VBA
Bonjour,
Je coince encore en VBA et j'ai besoin de votre aide !!
Comment utiliser les fonction "Index" et "Equiv" en VBA ?? Voila ce que j'ai fait et qui ne fonctionne pas :
ActiveCell.Value = Application.Index(Range("Tableau223[Famille]"), Application.Match(Sheets("Liste").Cells(i, 2).Value, Range("Tableau223[Référence]"), 0))Ce qui fonctionne :
Fonction Excel
=INDEX(Tableau223[Famille];EQUIV(A2;Tableau223[Référence];0))
Enregistrement Macro
Cells(2, 3).Select
ActiveCell.FormulaR1C1 = _
"=INDEX(Tableau223[Famille],MATCH(RC[-2],Tableau223[Référence],0))"
Je trouve pas la solution !
Merci pour votre précieuse aide
Salut uzu,
si tu nous expliquais ce que tu cherches avec un fichier, mmmh ?
Vraisemblablement avec FIND...
A+
Merci pour la réponse. En fait j'ai résolu le problème ! Je me trompais de colonne
ActiveCell.Value = Application.Index(Range("Tableau223[Famille]"), Application.Match(Sheets("Tarifs").Cells(i, 1).Value, Range("Tableau223[Référence]"), 0))Encore merci