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

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

patricktoulon

XLDnaute Barbatruc
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))​

 
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
bon ben je reviens au point de départ
evaluate ne fonctionne pas
VB: 
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
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Chez moi sur Excel 2019 Evaluate fonctionne bien à condition de modifier la macro comme ceci :
VB: 
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...
 

Pièces jointes

  • ex exceldownlod(1).xlsm
    22.6 KB · Affichages: 10
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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]
 

Pièces jointes

  • Capture.JPG
    35.8 KB · Affichages: 20
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…