XL 2019 Index Equiv VBA

E5kobar

XLDnaute Nouveau
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
 

Acher12

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour.
Essayez :
VB:
Résultat = [Tableau6[Adresse mail]].Rows(WorksheetFunction.Match(ActiveSheet.[J5].Value, [Tableau6[Users]], 0).Value
 

E5kobar

XLDnaute Nouveau
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
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Manquait une parenthèse à la fin.
VB:
MonDestinataire = [Tableau6[Adresse mail]].Rows(WorksheetFunction.Match(ActiveSheet.[J5].Value, [Tableau6[Users]], 0)).Value
 

patricktoulon

XLDnaute Accro
re
bonjour a tous
re
en enregistrant la macro tu obtient la formule en vba et il te reste plus qu'a l’évaluer
VB:
resultat = Evaluate("INDEX(Tableau6[Adresse Mail],MATCH(J5,Tableau6[Users],0))")
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas