XL 2019 Index Equiv VBA

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Novembre 2019

• #2

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

 

Vote positif 0 Vote négatif

A

Acher12

XLDnaute Nouveau

• 20 Novembre 2019

• #3

E5kobar à dit:

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

Cliquez pour agrandir...

Un fichier exemple svp?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Novembre 2019

• #4

Bonjour.
Essayez :

VB:

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

 

Vote positif 0 Vote négatif

E

E5kobar

XLDnaute Nouveau

• 20 Novembre 2019

• #5

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

 

Pièces jointes

• testequiv.xlsm

  30.8 KB · Affichages: 31

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Novembre 2019

• #6

Manquait une parenthèse à la fin.

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Novembre 2019

• #7

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))")

 

Vote positif 0 Vote négatif

E

E5kobar

XLDnaute Nouveau

• 23 Novembre 2019

• #8

Merci, c’est parfait!

 

Vote positif 0 Vote négatif