Discussion :

[mandrake57]

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

Merci

[Thautheme]

Bonjour Mandrake, bonjour le forum

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[mandrake57]

Bonjour Mandrake, bonjour le forum

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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.

[Philippe Tulliez]

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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