Comment transposé une formule INDEX + EQUIV en macro VBA

Bonsoir à tous.

Après avoir mené des recherches (infructueuses) depuis 2 jours je me décident à poser directement ma question.

Je cherche à transposer ce type de formule :
"=INDEX('non-métalliques'!B2:F15;EQUIV($E$1;liste;0);EQUIV(D2;element;0))" en macro VBA. Les différents exemples trouvés (ici et sur le net ne m'ont pas paru être bien adaptés...).

C'est en fait une recherche 2 critères (colonnes et lignes) et je cherche l'intersection de ces critères (dans une autre page).

Si quelqu'un a une petite idée je suis preneur:D

Merci

Bonjour Mandrake, bonjour le forum

Peurt-être comme ça (à adapter je suis tellement nul en formule) :

Code:

---

1 2 3 4 5 6

Dim LI As Integer Dim COL As Integer   LI = Range("liste").Find(Range("E1").Value, ,xlValues, xlWhole).Row COL = Range("element").Find(Range("D2").Value, ,xlValues, xlWhole).Column Activecell.Value = sheets("non-métalliques").Cells(LI, COL).Value

---

Bonjour,
Dois-tu écrire cette formule en VBA dans une plage de cellules ?
Dans l'affirmative, à lire Ecrire une formule dans Excel à l'aide d'une procédure VBA et Comment écrire une formule plus complexe dans une cellule ?
Si l'idée est d'exploiter le résultat dans une variable, plusieurs options s'offrent à toi, la fonction Evaluate ou utiliser les méthodes Index et Match de la propriété WorksheetFunction de l'objet Application

Citation:

---

Envoyé par Thautheme

Bonjour Mandrake, bonjour le forum

Peurt-être comme ça (à adapter je suis tellement nul en formule) :

Code:

---

1 2 3 4 5 6

Dim LI As Integer Dim COL As Integer   LI = Range("liste").Find(Range("E1").Value, ,xlValues, xlWhole).Row COL = Range("element").Find(Range("D2").Value, ,xlValues, xlWhole).Column Activecell.Value = sheets("non-métalliques").Cells(LI, COL).Value

---

---

Bonsoir Thautheme, je viens voir ta proposition je vais tenter de la tester et après de l'adapter au projet global.

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Dois-tu écrire cette formule en VBA dans une plage de cellules ?
Dans l'affirmative, à lire Ecrire une formule dans Excel à l'aide d'une procédure VBA et Comment écrire une formule plus complexe dans une cellule ?
Si l'idée est d'exploiter le résultat dans une variable, plusieurs options s'offrent à toi, la fonction Evaluate ou utiliser les méthodes Index et Match de la propriété WorksheetFunction de l'objet Application

---

Pour être un peu plus précis je souhaite récupérer les valeurs et non pas inscrire la formule dans une plage de cellule.

Mon fichier contient 3 feuilles une de travail et les 2 autres de données. Lorsque je choisi une référence et un paramètre je souhaite dans la feuille de données choisie au départ récupérer la valeur correspondante à la référence et au pramètre choisi.

Bonjour,

Citation:

---

Pour être un peu plus précis je souhaite récupérer les valeurs et non pas inscrire la formule dans une plage de cellule.

---

Donc, comme je l'ai écritt

Citation:

---

Si l'idée est d'exploiter le résultat dans une variable, plusieurs options s'offrent à toi, la fonction Evaluate ou utiliser les méthodes Index et Match de la propriété WorksheetFunction de l'objet Application

---

et s'il faut écrire les formules avec des paramètres lire les deux billets que j'ai référencé.

Exemple avec la fonction Evaluate et un paramètre de l'affichage du résultat de la formule SOMME(A2:A11) de la feuille nommée [Feuil1] du classeur où se trouve la procédure VBA,

Code:

---

1 2 3 4 5 6

Sub t() Const myFormula As String = "=SUM(<Address>)" With ThisWorkbook.Worksheets("Feuil1") MsgBox Evaluate(Replace(myFormula, "<Address>", .Range(.Cells(2, 1), .Cells(11, 1)).Address)) End With End Sub

---