création d'une fonction min sur vba

bonjour j'ai crée une fonction max sur vba qui fonctionne, j'ai donc voulu créer une fonction MIN juste en inversant le comparateur mais cela ne fonctionne pas, pouvez-vous m'aidez à la corriger ? (il s'agit de trouver la note minimale dans une liste). je vous remercie

Code:

---

1 2 3 4 5 6 7 8 9 10

Function notemin(plage As Object) As Double Dim parc As Object Dim note As Double For Each parc In plage If parc < note Then note = parc End If Next parc notemin = note End Function

---

Bonjour,

Pourquoi ne pas utiliser la formule "min" d'excel ?

Pour ton problème, à la déclaration, la variable note est égal à 0. Difficile de trouver une note inférieur.

parce que l'on devait ecrire une fonction en cours, pour trouver la note maximale j'avais écrit :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function notemax(plage As Object) As Integer Dim parc As Object Dim note As Double For Each parc In plage If parc > note Then note = parc End If Next parc notemax = note End Function

---

et cela marchait, je ne comprends pas pourquoi pour la note minimale ça ne fonctionne pas ... pourquoi la variable est-elle égale à 0 ici ?

Citation:

---

pourquoi la variable est-elle égale à 0 ici ?

---

Une variable de type numérique est par défaut à 0 et une variable de type Alpha (String) est une chaine vide.

Analyse ton code et tu verras que le problème se situe au niveau de la valeur de cette variable au démarrage de la boucle.

NB: le code est bon, tu y es presque :P

je n'arrive toujours pas à voir mon erreur ...
je déclare la variable "note" comme un réel pourtant :(

Bonjour,
Comme te l'a dit Jérôme, ta variable note étant au départ égal à zéro, jamais sauf si tu as une valeur négative dans ta plage de cellules nommée Plage, ton test logique ne trouvera une valeur inférieure.
Donc tu devrais donner comme valeur de départ la valeur de la première cellule de la plage et ensuite tester.
Tu peux aussi démarrer avec une valeur très haute pour la variable note mais ce n'est pas très orthodoxe.

je vous remercie beaucoup pour votre aide, je n'avais pas pensé à donner une valeur initiale à la variable !! :)