Trouver la valeur minimumRésolu

Question

Bonjour a tous,

mon problème est que j'ai mis des poids peser sur une balance dans une table et que par la suite je n'arrive pas a trouver le minimum. Le problème est que ma table peu contenir jusqu'a 200 valeurs mais lorsque j'en n'ai que 3 mon minimum est toujours de 0 parce qu'il prends les 3 premières valeurs que j'ai entrer et que ensuite il continue dans ma table jusqua 200 et ce n'est que 0 jusqu'a 200 donc c'est toujours plus petit que la valeur que je cherche.

Voici mon code: 

Dim ABrute(200) As Double
Dim Max As Double
Dim Min As Double

         Min = ABrute(LBound(ABrute))
         Max = ABrute(LBound(ABrute))
      For i = LBound(ABrute) + 1 To UBound(ABrute)
       If Max < ABrute(i) Then
        Max = ABrute(i)
       End If
       If Min > ABrute(i) Then
        Min = ABrute(i)
       End If
      Next i

cs_ShayW · Accepted Answer

Salut

Pourquoi definir un tableau de 200
dim ABrute() As Double 

pour chaque pesée 
redim preserve ABrute(I)

ucfoutu · Answer

Bonjour,
- Il n'est pas normal d'avoir des valeurs nulles dans ta "table". Le mieux et le plus normal serait de les éliminer
- si tu tiens à les garder, ignore-les donc dans ta boucle (au demeurant assez curieuse !)



____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

23max23 · Answer

Non je ne tiens pas à garder es valeurs null je veux seulement celles que j'ai entrer peu importe le nombres sa peu être 3,4,5.....et non tout les 200 du tableau. Comment est-ce que je fais pour m'en débarasser?

cs_Jack · Answer

Salut

Si les valeurs sans signification sont toujours des zéros parfait, il te suffit de les éluder dans la boucle en ajoutant une condition avant de faire le test :
If ABrute(i) <> 0 Then

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

23max23 · Answer

Oui, mais il est possible que ma valeur min soit 0 donc cette condition créerais une erreur non?

23max23 · Answer

Merci beaucoup à tous ! Effectivement en sauvegardant une valeur à une cela va bien mieux.

Maxim

us_30 · Answer

Bonjour,

Juste une autre alternative...
Une autre solution si tu veux garder un tableau avec 200 éléments pré-définis c'est tout simplement de garder dans une variable le nombre d'élément rentré (NbElement). Et par la suite, ne faire la boucle de recherche que de zéro à NbElement.

Amicalement,
Us.

23max23 · Answer

Merci beaucoup. C'est toujours bon d'avoir plus d,alternative que pas assez.

Trouver la valeur minimum

8 réponses

Votre réponse

Discussions similaires