Fonction le plus proche

[fabian_]

Bonjour à tous,

Avant toute chose, je n'y connais rien en VBA, donc si on peut faire autrement pour résoudre mon problème :

J'ai une série de valeurs. Je cherche à afficher, dans la case au bout de cette série, quelle valeur est la plus proche d'un nombre donné. Cette même valeur devant être supérieur au même ou à un autre nombre.

Un exemple :
26 27 29,5 31 39
Je cherche à afficher dans une cellule le nombre qui est le proche de 30 dans cette série sachant que ce nombre doit être supérieur à 30. => 31
Quelle fonction pour l'automatiser ?

J'espère avoir été clair,
Merci d'avance.

 

[Staple1600]

Re : Fonction le plus proche

Bonjour

Tu as essayé du côté de : GRANDE.VALEUR ?

=GRANDE.VALEUR(A1:A5;2)

renvoie 31

 

[fabian_]

Re : Fonction le plus proche

Je ne connaissais pas cette formule, mais ça ne fonctionne pas car cette série est en fait calculée selon d'autres valeurs. Elle est donc très changeante et on ne peut pas dire qu'une k-ième soit supérieur à 30 dans mon exemple.

 

[Staple1600]

Re : Fonction le plus proche

Re


Dans ce cas

Essayes cette formule de Tibo (issue de ce post : 127141 )
en A1:A5 : 26 27 29,5 31 39
en B1: 30

=INDEX(A1:A5;EQUIV(B1;A1:A5)+1-NB.SI(A1:A5;B1))

 

[hoerwind]

Re : Fonction le plus proche

Bonjour, salut Staple,

A1:A5 trié par ordre croissant (comme l'exemple)
=DECALER(A1;;EQUIV(B1;A1:E1))

 

[fabian_]

Re : Fonction le plus proche

Merci, je vois le fonctionnement.
Par contre, il y a une erreur avec la fonction NB.SI.
Je n'arrive pas à faire >B1, Excel ne reconnaît pas. C'est moi qui ait fait une bêtise ?
Si je laisse B1, il cherche quelles valeurs ont exactement la valeur B1 (aucune) et me fait une erreur.

 

[hoerwind]

Re : Fonction le plus proche

Re,

Cette syntaxe devrait fonctionner :
NB.SI(A1:A5;">"&B1)

 

[BOISGONTIER]

Re : Fonction le plus proche

Bonjour,

=MIN(SI(champ-30>0;champ))
Valider avec Maj+ctrl+entrée

JB

 

[JHA]

Re : Fonction le plus proche

Bonjour à tous,

Il faut toujours la liste triée et pour gérer les mini & maxi:
A30: "30"
B27:G27: liste

=SI(OU(A30<MIN(B27:G27);A30>MAX(B27:G27));A30;INDEX(B26:G26;EQUIV(A30;B26:G26)+1-NB.SI(B26:G26;A30)))
Plage à adapter,

Edit: Bonjour et bravo à JB et Hoerwind pour la solution apportée mais lorsque l'on tombe sur un nombre de la liste, les formules renvoient la valeur sup, "notre ami voulait au plus près de".

JHA

 

[fabian_]

Re : Fonction le plus proche

Re,

Cette syntaxe devrait fonctionner :
NB.SI(A1:A5;">"&B1)

La syntaxe fonctionne, merci à tous !