Discussion :

[lilou31330]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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.

[lilou31330]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[jfontaine]

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

[lilou31330]

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

[Philippe Tulliez]

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.

[lilou31330]

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