Fonction (ou macro) pour chercher valeur dans plage variable et 2 conditions

Bonjour à tous,

J'ai un souci de fonctions! je n'arrive pas à bricoler une fonction qui permettrait de rechercher dans une bdd (excel) selon 1 critère de vitesse moteur qui se situe dans des limites et qui donne un résultat recherché variable en function de ces limites (inf et sup).

Je m'explique :
En fonction de la vitesse moteur, j'aurai une valeur à remonter (par ex colonne "ok") qui sera donnée par la ligne de la plage encadrant la vitesse de rotation

ex :
GR2; 1482 trs/min --> acceleration : [ limite inf 1250, limite sup [ 1500; --> valeur recherché = 0.8 mm.s-²

GR2; 2980 trs/min --> acceleration : [ limite inf 2500, limite sup [ 3000; --> valeur recherché = 1.2 mm.s-²

ci-dessous : copie des valeurs pour les 3 colonnes

>= < Accélération en g(mm.s-²) rms

0	500	0.2
500	750	0.35
750	1000	0.5
1000	1250	0.6
1250	1500	0.8
1500	1750	0.9
1750	2000	1
2000	2500	1
2500	3000	1.2
3000	3500	1.35
3500	4000	1.5
4000	5000	2
5000	7500	3
7500	10000	4.5
10000	600000	4.5

J'ai tenté index equiv et rechercheV mais n'arrive pas à remonter la valeur (ça remonte la valeur de la ligne inférieure) en cas de valeur approximative (pas valeur = valeur limite).

Je ne sais pas si le problème est soluble avec fonctions ou s'il faut créer une petite macro?

Merci d'avance de vos conseils.
JC

Etant donné que la seconde colonne est la copie de la première avec une ligne de décalage, il est inutile de la faire participer à la recherche.
En mettant le quatrième paramètre de RECHERCHEV() à vrai, cette fonction pourra faire ce que tu souhaites sans tenir compte de la seconde colonne.
Il est également possible de faire ça avec la fonction EQUIV() (à associer à INDEX) qui a en plus l'avantage, en fonction de son troisième paramètre, de permettre de choisir entre la valeur sup et la valeur inf quand on tape entre deux valeurs.

A lire :
RECHERCHEV : https://support.office.com/fr-FR/art...8-93a18ad188a1
EQUIV : https://support.office.com/fr-FR/art...9-533f4a37673a

J'ai fait un test avec tes valeurs d'exemple. Il n'y a pas de problème avec RECHERCHEV.

Pièce jointe 534402

La saisie est en E1.
La formule en F1.

Bonjour

Dans l'hypothèse suivant :
colonne A : Valeur Min
Colonne B : valeur Max
Colonne C : La valeur correspondante
Valeur à chercher se trouve en F7
1 / sans VBA
tu peux ajouter une colonne (Colonne D) et tu mentionne un X si la valeur comprise entre le min et le max :

Code:

---

SI(ET($F$7>=A2;$F$7<B2);"X";"")

---

dans la cellule G7 ou va s'inscrire le résultat tu mets :

Code:

---

INDEX(C2:C16;EQUIV("X";D2:D16;0))

---

2/ avec VBA
un petit code et le résultat sera en H7

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ChercherValeur() Dim F As Worksheet Dim Dligne As Long Set F = Sheets("Feuil1") ' à adapter le nom de l'onglet Dim plage As Range Dim c As Range Set plage = F.Range("A2:A16") F.Range("H7").ClearContents X = F.Range("F7").Value For Each c In plage If c.Value <= X And F.Cells(c.Row, 2) > X Then F.Range("H7") = F.Cells(c.Row, 3) Next c End Sub

---

un fichier test à adapter
Bonne continuation

Je m'étais perdu dans des bricolages alambiqués avec les 2 colonnes!!!

Merci Menhir et Zoltar_x de m'avoir mis sous le nez l'évidence! :ptdr::roll:

JC

Citation:

---

Envoyé par BENNASR

Bonjour

Dans l'hypothèse suivant :
colonne A : Valeur Min
Colonne B : valeur Max
Colonne C : La valeur correspondante
Valeur à chercher se trouve en F7
1 / sans VBA
tu peux ajouter une colonne (Colonne D) et tu mentionne un X si la valeur comprise entre le min et le max :

dans la cellule G7 ou va s'inscrire le résultat tu mets :


2/ avec VBA
un petit code et le résultat sera en H7

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ChercherValeur() Dim F As Worksheet Dim Dligne As Long Set F = Sheets("Feuil1") ' à adapter le nom de l'onglet Dim plage As Range Dim c As Range Set plage = F.Range("A2:A16") F.Range("H7").ClearContents X = F.Range("F7").Value For Each c In plage If c.Value <= X And F.Cells(c.Row, 2) > X Then F.Range("H7") = F.Cells(c.Row, 3) Next c End Sub

---

un fichier test à adapter
Bonne continuation

---

Merci Bennasr, qui m'avait déjà apporté un précieux conseil il y a quelques temps!
JC