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

patricktoulon · 29 Avril 2020

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))

patricktoulon · 29 Avril 2020

j'ai donc pris une serpette scalpé tout les fichiers que j'ai fait depuis hier et réinstaller office
je remercie amadzi pour ca

patricktoulon · 30 Avril 2020

bonjour a tous
je n'arrive pas a piger ou est l'erreur pour la ligne "orange"

VB:

Sub test()
    Dim I&
    ColumnIndex = "Feuil1!N1:N100"
    colonnes = Array("Feuil1!K3:K100", "Feuil1!L3:L100", "Feuil1!M3:M100")
    For I = 2 To 11
        valeurs = Array(Cells(I, 2).Value, Cells(I, 3).Value, Cells(I, 4).Value2)
        MsgBox GetValInMatch(ColumnIndex, colonnes, valeurs)
    Next
End Sub
Function GetValInMatch(CI, c, v)
    formule = "=INDEX(" & CI & ",MATCH(1,"
    formule = formule & "(" & c(0) & "=""" & v(0) & """)*(" & c(1) & "=""" & v(1) & """)*(" & c(2) & "=" & v(2) & "),0))"
Debug.Print formule
GetValInMatch = Evaluate(formule)
End Function

num

couleur

qual

date

données1

données2

1

bleu

xx

22/05/2015

orange

hh

04/03/2017

ee

af

2

rouge

yy

15/03/2018

rouge

yy

15/03/2018

bb

ac

3

vert

dd

03/07/2020

vert

dd

12/09/2017

ll

vv

4

jaune

aa

06/02/2019

jaune

aa

06/02/2019

dd

ae

5

orange

hh

04/03/2017

bleu

xx

22/05/2015

aa

ab

6

violet

qq

12/11/2016

bleu

xx

26/05/2015

mm

gi

7

cyan

uu

22/04/2016

cyan

uu

22/04/2016

gg

ah

8

marron

jj

18/06/2020

marron

jj

18/06/2020

hh

aj

9

bleu

xx

26/05/2015

vert

dd

03/07/2020

cc

ad

10

vert

dd

12/09/2017

violet

qq

12/11/2016

ff

ag

laurent950 · 1 Mai 2020

Patrick cela fonctionne.

************************************************************************************************
Code Faux : Correction ci-dessous :
Sub test()
Dim I&
ColumnIndex = "Feuil1!N1:N100"
colonnes = Array("Feuil1!K3:K100", "Feuil1!L3:L100", "Feuil1!M3:M100")
For I = 2 To 11
valeurs = Array(Cells(I, 2).Value, Cells(I, 3).Value, Cells(I, 4).Value2)
MsgBox GetValInMatch(ColumnIndex, colonnes, valeurs)
Next
End Sub
Function GetValInMatch(CI, c, v)
formule = "=INDEX(" & CI & ",MATCH(1,"
formule = formule & "(" & c(0) & "=""" & v(0) & """)*(" & c(1) & "=""" & v(1) & """)*(" & c(2) & "=" & v(2) & "),0))"
Debug.Print formule
GetValInMatch = Evaluate(formule)
End Function

************************************************************************************************
Correction : Module TestPatrickToulon

VB:

Sub test()
    Dim I&
    ColumnIndex = "Feuil1!N1:N100"
    colonnes = Array("Feuil1!K1:K100", "Feuil1!L1:L100", "Feuil1!M1:M100")
    For I = 3 To 11
        valeurs = Array(Cells(I, 2).Value, Cells(I, 3).Value, Cells(I, 4).Value2)
        MsgBox GetValInMatch(ColumnIndex, colonnes, valeurs)
    Next
End Sub
Function GetValInMatch(CI, c, v)
    formule = "=INDEX(" & CI & ",MATCH(1,"
    formule = formule & "(" & c(0) & "=""" & v(0) & """)*(" & c(1) & "=""" & v(1) & """)*(" & c(2) & "=" & v(2) & "),0))"
Debug.Print formule
'[A18] = formule
GetValInMatch = Evaluate(formule)
End Function

************************************************************************************************
Les lignes de ta matrice (doivent commencer à la ligne N°1) cf ci-dessous :
Array("Feuil1!K3:K100", "Feuil1!L3:L100", "Feuil1!M3:M100")
Array("Feuil1!K1:K100", "Feuil1!L1:L100", "Feuil1!M1:M100")

La première recherche de ton tableau c'est : Rouge + Qualité + 12/05/2015
// Soit ton tableau référence en (B3,C3,D3) et en correspondance dans ta matrice en (K1,L1,M1)

entité	processus	date
rouge	qualité	12/05/2015

NB : Impossible a trouvé car ta matrice commencer a K3,L3,M3 (Inexistant dans la matrice)

Problème de départ Boucle :
QUI COMMENCE A LA LIGNE : Numéro 2

ref

entité

processus

date

Priorité

Etat

Responsable

Rapporteur

Donc la première ligne de code est fausse : (Ramènes les titres = Introuvable dans la matrice)
entité + processus + date
CAUSE MAUVAIS DEPART BOUCLE = For I = 2 To 11
C'est pour cela que la Formule est fausse !
=INDEX(Feuil1!N1:N100;EQUIV(1;(Feuil1!K1:K100="entité")*(Feuil1!L1:L100="processus")*(Feuil1!M1:M100=date);0))

Modification départ de la Boucle = For I = 3 To 11
Donc la première ligne de code est Bonne : (Ramènes les INFOS = qui sont dans la matrice)
Rouge + Qualité + 12/05/2015
=INDEX(Feuil1!N1:N100;EQUIV(1;(Feuil1!K1:K100="rouge")*(Feuil1!L1:L100="qualité")*(Feuil1!M1:M100=42136);0))

La Formule est Correcte et la Fonction Evaluate est opérationnelle.

Ps : Patrick j'ai trouvé ce lien sur la fonction Index Equiv qui est pas inintéressante.

Les fonctions Index et Equiv

silkyroad.developpez.com

Ps : Tu auras toujours 1 comme resultat car dans la colonne N1:N100 (Toutes les premieres sont remplis à 1 donc c'est normal si tu changes le résultat suit)

Laurent950

patricktoulon · 1 Mai 2020

bonjour Laurent

merci j'avais trouvé entre temps mais étant constamment dérangé par un excité des tableaux et classe et autre cochonnerie je n'ai pas conclu le post

ps:mais j'ai toujours des résultats pas bon ci tu etait observateur tu l'aurais vu
voila mon code

VB:

Sub test()
    Dim I&
    colonnes = Array("Feuil1!K1:K100", "Feuil1!L1:L100", "Feuil1!M1:M100")
    For I = 3 To 11
        valeurs = Array(Cells(I, 2).Value, Cells(I, 3).Value, Cells(I, 4).Value2)
        Debug.Print "ligne " & I
        ColumnIndex = "Feuil1!Q3:Q100"
        Cells(I, "H") = GetValInMatch(ColumnIndex, colonnes, valeurs)

        ColumnIndex = "Feuil1!P3:P100"
        Cells(I, "G") = GetValInMatch(ColumnIndex, colonnes, valeurs)
    Next
End Sub
Function GetValInMatch(CI, c, v)
    formule = "=INDEX(" & CI & ",MATCH(1,"
    formule = formule & "(" & c(0) & "=""" & v(0) & """)*(" & c(1) & "=""" & v(1) & """)*(" & c(2) & "=" & v(2) & "),0))"
    Debug.Print formule
    '[A18] = formule
    GetValInMatch = Evaluate(formule)
End Function

voila les formule que j'obtiens dans le debug

Code:

ligne 3
=INDEX(Feuil1!Q3:Q100,MATCH(1,(Feuil1!K1:K100="rouge")*(Feuil1!L1:L100="qualité ")*(Feuil1!M1:M100=42136),0))
=INDEX(Feuil1!P3:P100,MATCH(1,(Feuil1!K1:K100="rouge")*(Feuil1!L1:L100="qualité ")*(Feuil1!M1:M100=42136),0))
ligne 4
=INDEX(Feuil1!Q3:Q100,MATCH(1,(Feuil1!K1:K100="orange")*(Feuil1!L1:L100="RH")*(Feuil1!M1:M100=42137),0))
=INDEX(Feuil1!P3:P100,MATCH(1,(Feuil1!K1:K100="orange")*(Feuil1!L1:L100="RH")*(Feuil1!M1:M100=42137),0))
ligne 5
=INDEX(Feuil1!Q3:Q100,MATCH(1,(Feuil1!K1:K100="vert")*(Feuil1!L1:L100="RH")*(Feuil1!M1:M100=42138),0))
=INDEX(Feuil1!P3:P100,MATCH(1,(Feuil1!K1:K100="vert")*(Feuil1!L1:L100="RH")*(Feuil1!M1:M100=42138),0))
ligne 6
=INDEX(Feuil1!Q3:Q100,MATCH(1,(Feuil1!K1:K100="bleu")*(Feuil1!L1:L100="SI")*(Feuil1!M1:M100=42139),0))
=INDEX(Feuil1!P3:P100,MATCH(1,(Feuil1!K1:K100="bleu")*(Feuil1!L1:L100="SI")*(Feuil1!M1:M100=42139),0))
ligne 7
=INDEX(Feuil1!Q3:Q100,MATCH(1,(Feuil1!K1:K100="bleu")*(Feuil1!L1:L100="qualité ")*(Feuil1!M1:M100=42140),0))
=INDEX(Feuil1!P3:P100,MATCH(1,(Feuil1!K1:K100="bleu")*(Feuil1!L1:L100="qualité ")*(Feuil1!M1:M100=42140),0))
ligne 8
=INDEX(Feuil1!Q3:Q100,MATCH(1,(Feuil1!K1:K100="violet")*(Feuil1!L1:L100="environnement")*(Feuil1!M1:M100=42141),0))
=INDEX(Feuil1!P3:P100,MATCH(1,(Feuil1!K1:K100="violet")*(Feuil1!L1:L100="environnement")*(Feuil1!M1:M100=42141),0))
ligne 9
=INDEX(Feuil1!Q3:Q100,MATCH(1,(Feuil1!K1:K100="rouge")*(Feuil1!L1:L100="environnement")*(Feuil1!M1:M100=42142),0))
=INDEX(Feuil1!P3:P100,MATCH(1,(Feuil1!K1:K100="rouge")*(Feuil1!L1:L100="environnement")*(Feuil1!M1:M100=42142),0))
ligne 10
=INDEX(Feuil1!Q3:Q100,MATCH(1,(Feuil1!K1:K100="rouge")*(Feuil1!L1:L100="sécurité")*(Feuil1!M1:M100=42143),0))
=INDEX(Feuil1!P3:P100,MATCH(1,(Feuil1!K1:K100="rouge")*(Feuil1!L1:L100="sécurité")*(Feuil1!M1:M100=42143),0))
ligne 11
=INDEX(Feuil1!Q3:Q100,MATCH(1,(Feuil1!K1:K100="jaune")*(Feuil1!L1:L100="RH")*(Feuil1!M1:M100=42144),0))
=INDEX(Feuil1!P3:P100,MATCH(1,(Feuil1!K1:K100="jaune")*(Feuil1!L1:L100="RH")*(Feuil1!M1:M100=42144),0))

aperçu du résultat

faut dormir la nuit

mapomme · 1 Mai 2020

Bonjour à tous,

Je cite @patricktoulon dans son titre :

patricktoulon à dit:
qui ne trouve pas de l'eau a la mer

La réponse est dans le titre. Je viens d'une région où "cela coule de source" depuis bien des décennies.

C'est tout à fait normal. L'amer ne se trouve qu'à la bière jamais à l'eau!

On pourrait aussi citer l'amer (issu du normand) qui a un léger rapport avec la mer et surtout la navigation. Mais dans le pays d'où je viens, il n'y a pas de mer et de plus l'amer de la mer ne se boit pas. Il est donc inutile.

Désolé, bon, je sors...

patricktoulon · 1 Mai 2020

re
bonjour @mapomme ké'poet' celui là

jmfmarques · 1 Mai 2020

SALUT mapomme
de lame à vague à vague à l'âme, ton âme erre (et en plein confinement, en plus ?) sans qu'on puisse en déterminer l'erre
prends soin de toi.

mapomme · 1 Mai 2020

patricktoulon à dit:
bonjour @mapomme ké'poet' celui là

Tu es le premier à l'écrire. J'ai bien envie de croire

jmfmarques à dit:
ton âme erre

Originale, je ne l'avais pas encore trouvée celle la.

Et pour le 1ier mai (trouvé Lien supprimé), pour vous tous,

Prenez soin de vous comme je prends soin de moi

patricktoulon · 1 Mai 2020

purrée la vous me prenez par les sentiments

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

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

Les fonctions Index et Equiv

Pièces jointes

patricktoulon

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

mapomme

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc