XL 2013 une formule simple index equiv qui ne trouve pas de l'eau a la mer

[patricktoulon]

Bonjour a tous
j'utilise depuis pas mal de temp déjà des formule index equiv (x colonnes) que ce soit en formule ou en vba avec evaluate
mais la un truc simple ne fonctionne pas et la le mur me supplie d’arrêter de lui filer des coup de boules

qui sait ou est le bouton de la lumiere SVP
ni celle ci

=INDEX(J3:J100;EQUIV(1;(K3:K100=B6)*(L3:L100=C6)*(M3:M100=D6);0))

ni celle la

=INDEX(Feuil1!J3:J10;EQUIV(1;(Feuil1!K3:K10=Feuil1!B6);0))​

 

[job75]

je ne l'ai jamais fait et ça a toujours fonctionner

Mais que t'arrive-t-il ? Avec 1 ça ne peut pas fonctionner, il faut VRAI sur la 2ème formule !

 

[patricktoulon]

re
pourtant je t'assure qu'avec 2007 j'ai toujours mis 1

 

[patricktoulon]

bon ben je reviens au point de départ
evaluate ne fonctionne pas

Sub Macro1()
    Dim I&, r1, r2, r3
    For I = 3 To 3 '   10
        r1 = Cells(I, 2).Value
        r2 = Cells(I, 3).Value
        r3 = Cells(I, 4).Value
        formule = "=INDEX(P3:P100,MATCH(1,(Feuil1!K3:K100=" & Chr(34) & r1 & Chr(34) & ")*(Feuil1!L3:L100=" & Chr(34) & r2 & Chr(34) & ")*(Feuil1!M3:M100=" & Chr(34) & r3 & Chr(34) & "),0))"
        Debug.Print formule
        MsgBox Evaluate(formule)
    Next
End Sub

 

[job75]

La matrice (Feuil1!K3:K10=Feuil1!B6) ne peut contenir que des VRAI ou FAUX, jamais des 1.

 

[patricktoulon]

re
tu le vois job75 que ça fonctionne dans l’animation
tu est sur que c'est un bouleen ?
je viens d'essayer vrai,"vrai",true,"true",-1
ben non ca indique bien que l'on cherche le le 1 er match

 

[job75]

Il me semble que dans l'animation ce n'est pas la 2ème formule du post #1 mais la 1ère.

Bien sûr quand il y a plus d'un critère le produit des matrices donne des 1 ou des 0.

 

[patricktoulon]

oui moi c'est la 1ere qui m’intéresse
c'est un match multi colonnes par ligne qui m’intéresse

mais avec evaluate sur 2013 ca ne fonctionne plus
purée qu'est ce que je pleure misère avec ce 2013
je m'en mord les doigts
je fait un fichier exemple et reviens

 

[patricktoulon]

voici un exemplaire

 

[Dranreb]

Bonjour.
Information: chez moi la formule marche, en Excel 2016, dans le classeur joint.

 

[patricktoulon]

Bonjour Dranreb
oui en formule ça fonctionne mais plus avec evaluate dans vba

 

[sylvanu]

Re,
Sous XL2007, il y a erreur 13 sur la ligne MsgBox Evaluate(formule), donc pas spécifique à 2013.

 

[job75]

Chez moi sur Excel 2019 Evaluate fonctionne bien à condition de modifier la macro comme ceci :

Sub Macro1()
    Dim I&, r1, r2, r3
    For I = 6 To 6 '   10
        r1 = Cells(I, 2).Value
        r2 = Cells(I, 3).Value
        r3 = Cells(I, 4).Value2 'nombre
        formule = "=INDEX(P3:P100,MATCH(1,(Feuil1!K3:K100=" & Chr(34) & r1 & Chr(34) & ")*(Feuil1!L3:L100=" & Chr(34) & r2 & Chr(34) & ")*(Feuil1!M3:M100=" & r3 & "),0))"
        Debug.Print formule
        MsgBox Evaluate(formule)
    Next
End Sub

Pour les dates le critère doit être la valeur numérique et il ne faut pas ajouter des guillemets.

Noter que le fichier du post #23 est vérolé, il y a une Feuil1 de type ThisWorkbook...

 

[patricktoulon]

ah merci job 75
je me demandais si il ne l’était pas justement car il me fait des choses bizarre

et pour la date oui d'habitude je fait un clng(cdate(r3)) mais value2 c'est simple( je prends )
mais étonnamment ça fonctionne que pour la ligne 6 et pas les autres

 

[job75]

mais étonnamment ça fonctionne que pour la ligne 6 et pas les autres

Tu ne sais plus tester ?

La macro fonctionne très bien avec For I = 5 To 11

La macro étudie en effet les colonnes K L M à partir de la ligne 3.

A+

 

[patricktoulon]

je teste de 3 à 11 et la 1 2 3 4 restenet en rade alors que les données sont bonne meme dans un new fichier

[ petite parenthèses] il y a longtemps que je n'avais pas vu ca
sur mon bureau tout les fichier que je créée depuis hier ont comme icon une mini feuille et plus l'icon de excel
quelqu’un sait pourquoi?
[ petite parenthèses]