VBA - INDEX EQUIV dans une variable

Bonjour à tous,

Je suis en train de réaliser une macro qui me sert à réaliser un publipostage entre mon tableau Excel et des documents Word (en utilisant la cellule active de ma feuille je créé un dossier et je rempli les documents word)

J’ai des informations sur plusieurs onglet de mon tableau Excel et pour contourner le fait de ne pouvoir utiliser les signets que sur une seule feuille j’ai fait cette formule :

Code:

---

avis = "=INDEX(avis!$A:$A;EQUIV(Données!O" & ActiveCell.Row & ";avis!$B:$B;0))"

---

Actuellement le résultat que j’obtiens est la formule (logique) et je souhaite obtenir la valeur retournée par la formule.

J'ai trouvé plusieurs solutions sur le forum mais je n’arrive pas à les mettre en application :
- passer la formule en anglais (MATCH à la place du EQUIV), changer les cellules et utiliser WorksheetFunction.Match
- utiliser un formulalocal

Mais je ne suis pas sur de me poser les bonnes questions ni prendre le problème dans le bon sens, si une personne à une idée ou peut me conforter dans la solution à utiliser

Merci d’avance

diplos

Bonjour,

Citation:

---

Envoyé par diplos

je souhaite obtenir la valeur retournée par la formule.

---

Avec ce code tu obtiens dans la variable 'avis' le résultat de ta formule si la feuille "Données" est active

Code:

---

1 2 3 4 5 6

Dim avis Dim ws As Worksheet Set ws = Sheets("avis") With Application avis = .Index(ws.Range("$A:$A"), .Match(Range("O" & ActiveCell.Row), ws.Range("$B:$B"), 0)) End With

---

Merci beaucoup c'est exactement ce que je voulais obtenir :)