Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 xlookup 2 criteres dont dans fourchette de valeurs

E

eric72

XLDnaute Accro
Bonjour à tous,
Et oui encore un nouveau problème, je souhaite avec ce code
VB: 
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
 

Pièces jointes

  • TEST.xlsm
    33.9 KB · Affichages: 9
Solution
E
Re bonjour à tous,
Après réflexion, j'ai changé ma méthode, l'autre paraissait un peu trop complexe, je vais donc clore ce sujet.
J'en profite pour remercier tous ceux qui se sont intéressés à mon problème, CP4, JHA, TooFatBoy qui sont toujours prêts à aider, sans eux on ne ferait pas grand chose!!!
Belle soirée à tous
Eric
Trier par date Trier par votes
E

eric72

XLDnaute Accro
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.
 
Vote positif 0 Vote négatif
J

JHA

XLDnaute Barbatruc
Bonjour à tous,

Je te propose cette formule
VB: 
=INDEX(Externalisee[Externalisee Prix global (cabinet)];EQUIV(B15;SI(Externalisee[SITE]=$A$15;Externalisee[Externalisee Nb Salariés (Cabinet)]);1))

JHA
 

Pièces jointes

  • TEST (5).xlsm
    23.4 KB · Affichages: 6
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
JHA à dit:
Bonjour à tous,

Je te propose cette formule
VB: 
=INDEX(Externalisee[Externalisee Prix global (cabinet)];EQUIV(B15;SI(Externalisee[SITE]=$A$15;Externalisee[Externalisee Nb Salariés (Cabinet)]);1))

JHA
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
Bonjour à tous,
Voilà la formule de JHA qui fonctionne
VB: 
=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!!!
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
j'ai essayé de cette manière
VB: 
 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"
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
JHA à dit:
Bonjour à tous,

Regarde du côté formula.local en VBA

JHA
Cliquez pour agrandir...
j'ai fait et cela me donne ça
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))"
c'est avec ça que j'ai essayé d'adapter comme ça
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))
mais cela ne fonctionne pas, il n'aime pas le "if"
 
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
eric72 à dit:
Pas de souci je vais attendre , merci beaucoup et belle journée à toi
Cliquez pour agrandir...
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.
 
Dernière édition:
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
eric72 à dit:
VB:
Code: 
ActiveCell.Formula2R1C1 = _
        "=INDEX(Externalisee[Externalisee Prix global (cabinet)],MATCH(R[-2]C[-2],IF(Externalisee[SITE]=R15C1,Externalisee[Externalisee Nb Salariés (Cabinet)]),1))"
Cliquez pour agrandir...
Au lieu de
ActiveCell.Formula2R1C1=
Cliquez pour agrandir...
C'est une formule matricielle
VB: 
ActiveCell.FormulaArray =
Il y a peut-être un autre moyen en VBA. Je n'ai pas compris ce que tu veux obtenir.
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
cp4 à dit:
Au lieu de

C'est une formule matricielle
VB: 
ActiveCell.FormulaArray =
Il y a peut-être un autre moyen en VBA. Je n'ai pas compris ce que tu veux obtenir.
Cliquez pour agrandir...
Bonjour CP4,
Merci pour ta réponse, j'aimerais l'équivalent de
VB: 
=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
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…