Microsoft 365 xlookup 2 criteres dont dans fourchette de valeurs

[eric72]

Bonjour à tous,
Et oui encore un nouveau problème, je souhaite avec ce code

essai = 11 * _
Application.WorksheetFunction.XLookup("NANTES" & CDbl("11"), Range("Externalisee[SITE]") & Range("Externalisee[Externalisee Nb Salariés (Siège)]"), _
Range("Externalisee[Externalisee Prix global (cabinet)]"), "", -1)

de faire un xlookup avec deux critères SITE et Nombre de salariés dans une tranche, j'ai donc essayé avec une formule en "d15", cela fonctionne en partie (sauf quend je met 10 ou 20, allez savoir pourquoi) fin de pouvoir reproduire en VBA mais je ne m'en sors pas alors que...
S'il vous vient une idée géniale pour m'aider!!!
Merci beaucoup

 

[eric72]

Bonjour à tous,
Compte tenu du nombre de consultation, j'ai du encore m'exprimer comme un peintre
Je reformule, j'aimerais en fonction d'un nom de SITE et un Nombre de salariés trouver le cout total du cabinet
Exemple si je recherche NANTES pour 9 personnes, résultat 13 (entre 6 et 11), mais en VBA.
L'essai avec recherchex est uniquement un essai pour pouvoir la reproduire en VBA mais la formule ne fonctionne pas si on met 10 ou personnes, je suis perdu.
Merci à tous et belle journée.

 

[JHA]

Bonjour à tous,

Je te propose cette formule

=INDEX(Externalisee[Externalisee Prix global (cabinet)];EQUIV(B15;SI(Externalisee[SITE]=$A$15;Externalisee[Externalisee Nb Salariés (Cabinet)]);1))

JHA

 

[eric72]

Bonjour à tous,

Je te propose cette formule

=INDEX(Externalisee[Externalisee Prix global (cabinet)];EQUIV(B15;SI(Externalisee[SITE]=$A$15;Externalisee[Externalisee Nb Salariés (Cabinet)]);1))

JHA

Bonjour JHA,
C'est juste génial, par contre si je veux la traduire en vba dans ma macro, comment dois je l'écrire?
Merci beaucoup

 

[JHA]

Bonjour à tous,

Désolé, je suis un nul en VBA.

Patience, les pros du code vont te donner une solution.

JHA

 

[eric72]

Bonjour à tous,

Désolé, je suis un nul en VBA.

Patience, les pros du code vont te donner une solution.

JHA

Pas de souci je vais attendre , merci beaucoup et belle journée à toi

 

[eric72]

Bonjour à tous,
Voilà la formule de JHA qui fonctionne

=INDEX(Externalisee[Externalisee Prix global (cabinet)];EQUIV(B15;SI(Externalisee[SITE]=$A$15;Externalisee[Externalisee Nb Salariés (Cabinet)]);1))

mais je ne parviens pas à l'adapter en VBA!!!

 

[eric72]

j'ai essayé de cette manière

 Application.Index(Range("Externalisee[Externalisee Prix global (cabinet)]"), Application.Match(Sheets("Feuil1").Range("b15").Value, if(Range("Externalisee[SITE]")=sheets("feuil1").range("a15").value,Range("Externalisee[Externalisee Nb Salariés (Cabinet)]"), 1))

mais j'ai une erreur de compilation attendu Expression sur le "IF"

 

[JHA]

Bonjour à tous,

Regarde du côté formula.local en VBA

JHA

 

[eric72]

Bonjour à tous,

Regarde du côté formula.local en VBA

JHA

j'ai fait et cela me donne ça

ActiveCell.Formula2R1C1 = _ "=INDEX(Externalisee[Externalisee Prix global (cabinet)],MATCH(R[-2]C[-2],IF(Externalisee[SITE]=R15C1,Externalisee[Externalisee Nb Salariés (Cabinet)]),1))" c'est avec ça que j'ai essayé d'adapter comme ça Application.Index(Range("Externalisee[Externalisee Prix global (cabinet)]"), Application.Match(Sheets("Feuil1").Range("b15").Value, if(Range("Externalisee[SITE]")=sheets("feuil1").range("a15").value,Range("Externalisee[Externalisee Nb Salariés (Cabinet)]"), 1)) mais cela ne fonctionne pas, il n'aime pas le "if"

 

[cp4]

Pas de souci je vais attendre , merci beaucoup et belle journée à toi

Bonjour @eric72 ,@JHA , le forum

@eric72 : Démarre l'enregistreur de macro, sélectionne la cellule qui contient la formule,
dans la fenêtre de formule, tu sélectionnes la formule, tu fais un Ctrl+C, touche Entrée et tu arretes l'enregistreur. Dans la macro, tu trouveras la formule avec la syntaxe anglaise. Tu fais un peu le ménage des lignes inutiles.

 

[cp4]

VB:

ActiveCell.Formula2R1C1 = _
        "=INDEX(Externalisee[Externalisee Prix global (cabinet)],MATCH(R[-2]C[-2],IF(Externalisee[SITE]=R15C1,Externalisee[Externalisee Nb Salariés (Cabinet)]),1))"

Au lieu de

ActiveCell.Formula2R1C1=

C'est une formule matricielle

ActiveCell.FormulaArray =

Il y a peut-être un autre moyen en VBA. Je n'ai pas compris ce que tu veux obtenir.

 

[eric72]

Au lieu de

C'est une formule matricielle

ActiveCell.FormulaArray =

Il y a peut-être un autre moyen en VBA. Je n'ai pas compris ce que tu veux obtenir.

Bonjour CP4,
Merci pour ta réponse, j'aimerais l'équivalent de

=INDEX(Externalisee[Externalisee Prix global (cabinet)];EQUIV(B15;SI(Externalisee[SITE]=$A$15;Externalisee[Externalisee Nb Salariés (Cabinet)]);1))

en VBA et quand j'essaie ce code

 Application.Index(Range("Externalisee[Externalisee Prix global (cabinet)]"), Application.Match(Sheets("Feuil1").Range("b15").Value, if(Range("Externalisee[SITE]")=sheets("feuil1").range("a15").value,Range("Externalisee[Externalisee Nb Salariés (Cabinet)]"), 1))

il me renvoie une erreur, j'aimerais juste pouvoir le corriger mais je n'y parviens pas!!!
Merci

 

[eric72]

Au lieu de

C'est une formule matricielle

ActiveCell.FormulaArray =

Il y a peut-être un autre moyen en VBA. Je n'ai pas compris ce que tu veux obtenir.

j'ai bien fait ce que tu dis mais cela copie juste la formule dans la cellule, c'est bien une solution VBA que je souhaite
Merci

 

[cp4]

Si j'ai bien compris dans un userform, ton fichier en retour.