Fonction Recherche 2 Criteres ne fonctionne pas

[Amigo]

Bonjour Le Forum,
je viens vers vous aujourd'hui pour solliciter vos lumieres sur une fonction que j'essaie de l'adapter a mon tableau mais elle me renvoie "#VALUE!".
J'ai un tableau en double entree je souhaite trouver la valeur correspondante.
voir fichier joint
Merci par avance
Amigo

 

[pierrejean]

Re : Fonction Recherche 2 Criteres ne fonctionne pas

bonjour Amigo

Ta fonction corrigée

Function Vasavoir(Crt1 As Range, Crt2 As Range)
For n = 2 To Sheets("Valeur").Range("A65536").End(xlUp).Row
For m = 2 To Sheets("Valeur").Range("IV1").End(xlToLeft).Column
 If Sheets("Valeur").Range("A" & n) = Crt1.Value And Sheets("Valeur").Cells(1, m) = Crt2.Value Then
    Vasavoir = Sheets("Valeur").Cells(n, m).Value
    Exit Function
 End If
Next m
Next n
End Function

 

[Amigo]

Re : Fonction Recherche 2 Criteres ne fonctionne pas

Bonjour Pierrejean, le Forum

Merci pour ta reponse rapide mais tres efficace. elle fonctionne a merveille.
Serait - il possible de m'expliquer mon erreur juste pour apprendre.
Merci par avance
Salutations

Amigo

 

[Monique]

Re : Fonction Recherche 2 Criteres ne fonctionne pas

Bonjour,

Par formule
Au choix

=RECHERCHEV(B14;A2:K11;EQUIV(C14;A1:K1;0);0)
=RECHERCHEH(C14;B1:K11;EQUIV(B14;A1:A11;0);0)
=DECALER(A1;EQUIV(B14;A2:A11;0);EQUIV(C14;B1:K1;0))
=INDEX(B2:K11;EQUIV(B14;A2:A11;0);EQUIV(C14;B1:K1;0))

 

[pierrejean]

Re : Fonction Recherche 2 Criteres ne fonctionne pas

Re

Toutes mes amitiés à Monique

@Amigo

Function Vasavoir(Crt1 As Range, Crt2 As Range)
For n = 2 To Sheets("Valeur").Range("A65536").End(xlUp).Row
For m = 2 To Sheets("Valeur").Range("IV1").End(xlToLeft).Column
 If Sheets("Valeur").Range("A" & n) = Crt1.Value And Sheets("Valeur").[COLOR=red]Range(m & 1)[/COLOR] = Crt2.Value Then
    Vasavoir = Sheets("Valeur").[COLOR=red]Range(n & m).[/COLOR]Value
 End If
Next m
Next n
End Function

En rouge les expressions fautives a remplcer respectivement par Cells(1,m) et Cells(n,m)

 

[Amigo]

Re : Fonction Recherche 2 Criteres ne fonctionne pas

Bonjour Pierrejean, Monique, le forum

Merci Monique pour ta reponse et surtout le choix des formules proposees qui fonctionnent a merveille.

Merci a toi aussi Pierrejean pour ton aide et les explications. je veux me documenter un peu plus sur la difference entre Range et Cell.

Merci a vous Tous

Salutations

Amigo