Tableau d'integer et valeur max

Bonjour à tous,

Je cherche à créer un tableau d'integer, a y stocker des données dans une boucle puis récupérer la valeur max du tableau de données.

Mais je ne sais pas comment écrire ce code.

Si quelqu'un pouvait me donner un exemple ca serait sympa.

Merci d'avance

A quel étape rencontres-tu une difficulté ?


- pour créer un tableau ?
- pour alimenter le tableau ?
- pour le redimensionner en cas de besoin ?
- pour lire dans le tableau la valeur la plus grande ?

Je voudrais déjà te faire remarquer qu'il serait adroit, pour déterminer la valeur la plus grande, de ne pas attendre d'avoir rempli ton tableau pour y relire dans une boucle !

Il te suffit d'une variable dont la valeur ne change que si la nouvelle donnée lue (avant même de mettre dans un tableau) est d'une valeur supérieure à celle déjà donnée à la variable !

Salut, voici une fonction, t'as qu'à juste modifier la Sub Exemple :


Sub Exemple()
    Dim i As Long
    Dim MyList(1 To 10) As String
   
    MyList(1) = "1"
    MyList(2) = "2"
    MyList(3) = "4"
    MyList(4) = "8"
    MyList(5) = "7"
    MyList(6) = "3"
    MyList(7) = "9"
    MyList(8) = "5"
    MyList(9) = "0"
    MyList(10) = "6"
   
    MsgBox ValMax(MyList)  'retourne 9
End Sub


Function ValMax(ByRef Liste() As String) As Long
    Dim i           As Long, j As Long
    Dim Temp        As String
    Dim ListeTemp() As String: ListeTemp = Liste
   
        For i = LBound(ListeTemp) To UBound(ListeTemp) - 1
            For j = i + 1 To UBound(Liste)
                If ListeTemp(i) > ListeTemp(j) Then
                    Temp = ListeTemp(j)
                    ListeTemp(j) = ListeTemp(i)
                    ListeTemp(i) = Temp
                End If
            Next j
        Next i
        ValMax = ListeTemp(UBound(ListeTemp))
End Function

~ Mortalino ~ Colorisation automatique

@++

---

Je ne comprend pas ta double boucle Mortalino ???

Pour cherche le max, une seule boucle suffit :

ValMax = ListeTemp(LBound(ListeTemp))
For i = LBound(ListeTemp) +1 to UBound(ListeTemp)
    if ListeTemp(i) > ValMax then ValMax = ListeTemp(i)
Next

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

et non Casy, double boucle obligatoire.
Une boucle pour prendre la première valeur, et l'autre boucle pour faire le test avec le restant, ensuite, la première boucle passe à la deuxième valeur, puis le seconde boucle effectue à nouveau une comparaison avec le restant, et ainsi de suite..

Fait le test avec ta boucle, concours de circonstances je pense pour le 0 (en tant que plus petite valeur), mais 6 en tant que plus grande valeur, ça le fait pas trop  ;)

Pour info, il n'apparait pas encore, mais j'en ai fait un snippet (déposé), avec la plus grande ou la plus petite valeur :


Function ExtremValue(ByRef Liste() As String, bValMax As Boolean) As String
' Si bValMax est à True, c'est la plus grande valeur de la liste
' qui est donnée, à false c'est donc la plus petite valeur
    Dim i           As Long, j As Long
    Dim Temp        As String
    Dim ListeTemp() As String: ListeTemp = Liste
    ' ici je double le tableau pour ne pas affecter le tableau d'origine
    
        For i = LBound(ListeTemp) To UBound(ListeTemp) - 1
            For j = i + 1 To UBound(Liste)
                If ListeTemp(i) > ListeTemp(j) Then
                    Temp = ListeTemp(j)
                    ListeTemp(j) = ListeTemp(i)
                    ListeTemp(i) = Temp
                End If
            Next j
        Next i
        If bValMax = True Then ExtremValue = ListeTemp(UBound(ListeTemp)) Else ExtremValue = ListeTemp(LBound(ListeTemp))
End Function

Sub Exemple()
    Dim MyList(1 To 10) As String
    
    MyList(1) = "1"
    MyList(2) = "2"
    MyList(3) = "4"
    MyList(4) = "8"
    MyList(5) = "7"
    MyList(6) = "3"
    MyList(7) = "9"
    MyList(8) = "5"
    MyList(9) = "0"
    MyList(10) = "6"
    
    MsgBox ExtremValue(MyList, True)   'retourne 9
    MsgBox ExtremValue(MyList, False)    'retourne 0
End Sub

~ Mortalino ~ Colorisation automatique

@++

---

Ben chez moi, ma fonction marche nickel, à la différence que je travaille sur des nombres et non pas sur des chaines de caractères

Pour déterminer une valeur max, c'est quand même mieux des nombres. Travaillez sur des chaines ça pervertie le système . Déjà qu'il est assez pervert comme ça......


Ta double boucle est valable si tu veux trier un tableau. Pour récupérer uniquement la (première) valeur max, la double boucle n'est pas utile.

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Ouais...

Attendons qu'Olivier revienne ...
Si ça se trouve, il n'a même pas besoin d'un tableau ...
A moins que ce tableau ne doive lui servir à d'autres choses (bien évidemment), il n'est nul besoin d'en dresser un pour aller chercher la plus grande valeur de données qu'il serait bien forcé de lire quelque part pour alimenter son tableau.
Une autre fois : si tableau destiuné à d'autres fins, oui, sinon : NON ...

Maintenant, tableau pour tableau, je suis d'accord avec Casy, : une seulz boucle suffit, accompagnée d'une variable..

 

Désolé mais j'ai remplacé mon tableau String en Long, c'est pareil, 6 est le gagnant avec ta simple boucle.
As tu bien mélangé les nombres ?
C'est mathématique, il en faut deux.

Voici ce que j'avais avec ta proposition :


Function ExtremValue(ByRef Liste() As Long, bValMax As Boolean) As Long
' Si bValMax est à True, c'est la plus grande valeur de la liste
' qui est donnée, à false c'est donc la plus petite valeur
    Dim i           As Long, j As Long
    Dim Temp        As String
    Dim ListeTemp() As Long: ListeTemp = Liste
    ' ici je double le tableau pour ne pas affecter le tableau d'origine
    
'---------------------
' juste ta boucle :
For i = LBound(ListeTemp) + 1 To UBound(ListeTemp)
    If ListeTemp(i) > ValMax Then ValMax = ListeTemp(i)
Next
'---------------------
        If bValMax = True Then ExtremValue = ListeTemp(UBound(ListeTemp)) Else ExtremValue = ListeTemp(LBound(ListeTemp))
End Function

Sub Exemple()
    Dim i As Long
    Dim MyList(1 To 10) As Long
    
    MyList(1) = 1
    MyList(2) = 2
    MyList(3) = 4
    MyList(4) = 8
    MyList(5) = 7
    MyList(6) = 3
    MyList(7) = 9
    MyList(8) = 5
    MyList(9) = 0
    MyList(10) = 6
    '                                  ---------------------
    MsgBox ExtremValue(MyList, True)   'retourne 6 ?????????
    '                                  ---------------------
    MsgBox ExtremValue(MyList, False)    'retourne 0
End Sub

~ Mortalino ~ Colorisation automatique

@++

---

je reconnais que je suis à côté de la plaque, ton code fonctionne nickel, et tu as raison sur la simple boucle.
Je suis resté ancré sur un code que j'avais, les deux boucles sont obligatoires pour trier les valeurs de la plus petite à la plus grande, et je suis parti de là en cherchant le plus grand ou plus petit indice de cette fameuse liste triée, mais là, pour la ValMax (ou ValMin), ta boucle fait le nécessaire.

Mille excuses !
(pas dormi depuis hier, promis, je sors..)

Ps : bien vu le coup du papier et du calcul à la main  ;)
@++

---