XL 2019 Index Equiv VBA

[E5kobar]

Bonjour,

Je n'arrive pas à traduire cette fonction excel en VBA :

=INDEX(Tableau6[Adresse mail];EQUIV(J5;Tableau6[Users];0)😉

pour info :
1 - le tableau 6 se trouve dans la feuille Paramètres (je ne sais pas si cette info est utile)
2 - J5 devra être la celluleactive.value

Merci d'avance pour votre aide 🙂

Pierre

 

[sylvanu]

Bonjour E5kobar,
Index c'est Index, EQUIV c'est MATCH.
En utilisant l'enregistreur de macro, vous l'avez automatiquement.

 

[Acher12]

Bonjour,

Je n'arrive pas à traduire cette fonction excel en VBA :

=INDEX(Tableau6[Adresse mail];EQUIV(J5;Tableau6[Users];0)😉

pour info :
1 - le tableau 6 se trouve dans la feuille Paramètres (je ne sais pas si cette info est utile)
2 - J5 devra être la celluleactive.value

Merci d'avance pour votre aide 🙂

Pierre

Un fichier exemple svp?

 

[Dranreb]

Bonjour.
Essayez :

Résultat = [Tableau6[Adresse mail]].Rows(WorksheetFunction.Match(ActiveSheet.[J5].Value, [Tableau6[Users]], 0).Value

 

[E5kobar]

Bonjour @Dranreb ,

Le code ne fonctionne pas. J'ai sans doute oublié une étape?

Bonjour @sylvanu,

Merci pour l'info cependant étant assez débutant en VBA j'ai du mal à l'écrire correctement

Bonjour @Archer12

Ci joint le fichier.

Pour rappel, en feuil1 je souhaiterais plutôt que d'ajouter une colonne (L) contenant l'adresse mail des utilisateurs, récupérer l'adresse mail de l'utilisateur dans l'onglet paramètres via son prénom, en utilisant dans la macro nommée "TestEnvoiEmail_Variables2" la formule index equiv.

Merci d'avance pour votre aide.

Pierre

 

[Dranreb]

Manquait une parenthèse à la fin.

MonDestinataire = [Tableau6[Adresse mail]].Rows(WorksheetFunction.Match(ActiveSheet.[J5].Value, [Tableau6[Users]], 0)).Value

 

[patricktoulon]

re
bonjour a tous
re
en enregistrant la macro tu obtient la formule en vba et il te reste plus qu'a l’évaluer

resultat = Evaluate("INDEX(Tableau6[Adresse Mail],MATCH(J5,Tableau6[Users],0))")

 

[E5kobar]

Merci, c’est parfait!