Faire un index EQUIV mais en MACRO (sans coller la formule) est ce jouable?

Hello ,

J'ai deux tableaux et j'aimerais reporter les résultats du tableau 1 (bleu) de l'onglet 1

sur le tableau 2 (noir) qui est dans l'onglet 2

Les animaux sont volontairement dans le désordre. Je souhaiterais ne pas utiliser cette formule qui pourtant fonctionne

=INDEX(Feuil1!$A$1:$B$10;EQUIV(C3;Feuil1!$A$1:$A$10;0);2)

mais plutôt le faire uniquement en code VBA. Est ce réalisable ? Merci d'avance pour la moindre aide que vous pourrez m'apporter

Bonjour Temprano,

Sinon il existe aussi la formule rechercheV qui fonctione à coller en D3 et faire défiler.

=RECHERCHEV(C3;Feuil1!$A$1:$B$10;2;FAUX)

Sinon en VBA cela donnerai quelque chose comme cela: (à tester)

Sub ReportResult()
Dim cel As Range
Dim celbis As Range
For Each cel In Sheets("Feuil2").Range("C3:C11")
    For Each celbis In Sheets("Feuil1").Range("A2:A10")
        If cel = celbis Then cel.Offset(0, 1) = celbis.Offset(0, 1)
    Next celbis
Next cel
End Sub

A+

Bonjour,

Voici la fonction rechercheV en VBA:

Public Sub TestVLookup()
    MsgBox Application.WorksheetFunction.VLookup("a", Sheets("Feuil1").Range("A1:Z100"), 2, 0)
End Sub

• "a" est la valeur recherchée
• Sheets("Feuil1").Range("A1:Z100") représente ta plage de recherche
• 2 la colonne du résultat
• 0 recherche la valeur exacte

Bonjour à tous

Une variante en pur VBA :

Bye

Super !! Un grand merci à vous trois, j'ai capté le truc