Discussion :

[kyros21]

bonjour a tous, je me trouve dans un cas ou une vlookup ne me suffit pas, je vous explique,

dans ma colonne a ( nommé: parent) se trouve plein de ligne, dans ma colonne B ( nommé designation ) pareil, et dans ma colonne C les infos qui m'interessent.

actuellement ma macro fonctionne comme ceci: elle me cherche la 1ere ligne qui contient Pompe dans la colonne designation et me récupere la valeur associé dans la colonne C:

Code :

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

Application.WorksheetFunction.VLookup("*POMPE*", Worksheets(variable1).Range("D2: G65536"), 4, False) * 1000

sauf que je voudrai pouvoir rajouter la contrainte d'une autre vlookup ou par un autre moyen, qu'elle me trouve la ligne qui dans parents contient "habille" et que dans la colonne designation contienne "pompe" et recupere la valeur dans la colonne C associé.


Cela est-il possible via 1 vlookup ? ou 2, ou bien avec une autre fonction?

Merci de votre aide

[Daniel.C]

Bonjour,

Code :

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

1
2
Résultat = _
Evaluate("INDEX(C1:C65536,MAX(IF(NOT(ISERR(SEARCH(""habille"",A2:A65536)))*NOT(ISERR(SEARCH(""pompe"",B2:B65536)))>0,ROW(A2:A65536))))")

[kyros21]

merci pour cette formule, j'aimerai la comprendre, ne fait evaluate retourne quoi comme résultat? si je souhaite spécifier une feuille spécifique, comment je peux spécifier cela ? en passant par une range et une worksheet? comme ceci ?

Code :

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

Evaluate("INDEX(Worksheets("Top20 répartition h MO").Range(C1:C65536),MAX(IF(NOT(ISERR(SEARCH(""habille"",A2:A65536)))*NOT(ISERR(SEARCH(""pompe"",B2:B65536)))>0,ROW(A2:A65536))))")

merci de votre aide

[Daniel.C]

"Evaluate", comme son nom le laisse penser, évalue une formule Excel (dans sa traduction US) et retourne le résultat dans la variable spécifiée (ici "Résultat"). Pour info, la formule française est :

Code :

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

=INDEX($C$1:$C$10;MAX(SI(NON(ESTERR(CHERCHE("habille";$A$2:$A$10)))*NON(ESTERR(CHERCHE("pompe";$B$2:$B$10)))>0;LIGNE($A$2:$A$10))))

(formule matricielle, à valider avec Ctrl+Maj+Entrée).
Comme il s'agît d'une formule Excel, libre à toi d'ajouter le nom des feuilles.=avec la même syntaxe que pour une formule. Si tu veux qu'une plage se réfère à une feuille, tu dois écrire :

Code :

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

INDEX("'Top20 répartition h MO'"!C1:C65536

et non :

Code :

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

INDEX(Worksheets("Top20 répartition h MO").Range(C1:C65536)

Tu dois qualifier chaque plage de cellules comme tu le ferais dans une formule Excel (en n'oubliant pas les apostrophes qui encadrent les noms de feuille contenant des espaces).

Si tu veux que je te détaille la formule Excel, n'hésite pas à le dire.

[kyros21]

merci pour ces explications, je pense avoir compris le fonctionnement de la commande, mais pour autant, j'ai toujours une erreur d'incompatibilité de type..

voici la formule adapté, ( la feuille a top 20... a été remplacé par la variable1, qui contient le placement de la feuille dans le classeur , ex: la feuille placé en 8eme renvoi le numero 8 dans la variable1.

Code :

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

coutpompe=Evaluate("INDEX(variable1!J2:J65536,MAX(IF(NOT(ISERR(SEARCH(""habille"",variable1!B2:B65536)))*NOT(ISERR(SEARCH(""pompe"",variable1!D2:D65536)))>0,ROW(variable1!B2:B65536))))")

[Daniel.C]

Tu ne peux pas mettre de variable entre guillemets, sinon le nom de la variable est pris pour le nom de la feuille; il faut mettre :

Code :

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

1
2
3
coutpompe = Evaluate("INDEX(" & variable1 & "!J2:J65536,MAX(IF(NOT(ISERR(SEARCH(""habille""," & _
    variable1 & "!B2:B65536)))*NOT(ISERR(SEARCH(""pompe""," & variable1 & "!D2:D65536)))>0,ROW(" & _
    variable1 & "!B2:B65536))))")