Test pour des plages de données

Bonjour,

Je dispose d'un tableau de type "min" "max" "coeff" correspondant à des tranches de valeur pour lesquels un certain coefficient s'applique et j'ai un autre tableau avec mes valeurs.

L'objectif ici est de faire un test tel que ma valeur est multiplié par le coefficient correspondant à la plage de donnée.

Où est le problème me direz vous ?

je dois travailler avec une feuille de calcul unique et je peux être amené aussi bien à modifier les plages de valeur, que les coefficient ou même le nombre de plage de valeur.

Merci de votre aide.

Première chose : réduit ton tableau à deux colonne, avec une première colonne "Critère" qui remplacera tes Min et Max, en supposant que le critère de chaque ligne représente le max de la ligne précédente.

Ensuite, il suffira que tu utilises une fonction RECHERCHEV, en oubliant pas de mettre VRAI en quatrième paramètre.
Si tes critères sont en A1:A10, tes coefs en B1:B10 et la valeur à traitée est en C1 :

Code:

---

=C1*RECHERCHEV(C1;A1:B10;2;VRAI)

---

La fonction recherchev n'est pas sensée ressortir le résultat le plus proche dans ce cas la ? (Par exemple si mon premier max est 20 et mon deuxième 200 et que je cherche le coefficient pour 21, ne risque-t-il pas de me sortir la valeur correspondant à la ligne du 20 ?
(après un test rapide il me ressort bien le coefficient du 20 et non celui du 200)

J'aimerai aussi savoir s'il est possible de "variabiliser" le tableau pour avoir une fonction recherchev du type recherchev(A1;maVariable;2;VRAI) (dans une macro bien sur)

et si c'est possible, quelle est la commande pour entrer le tableau actuellement sélectionné dans la variable.

Je commence mon code vba par

Code:

---

1 2	Dim Ligne As Integer Ligne = activcell.Row

---

pour garder en mémoire la ligne de la cellule sélectionnée au moment du lancement de la macro mais cela ne fonctionne pas et je ne comprends pas pourquoi

Réussi avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Function Comparer(N As Double, Ligne As Integer)   If N < Range("A" & Ligne).Value Then Comparer = Range("B" & Ligne).Value Else Comparer = Comparer(N, Ligne + 1) End If   End Function

---