Renvoyer la plus grande valeur d'un tableau VBA

Bonsoir,

Quelqu'un par hasard saurait comment renvoyer la plus grande valeur d'un tableau VBA ?

Merci d'avance

Bonjour et bienvenue,

Un premier exemple à adapter !...

Cdlt.

Option Explicit

Dim val_max

Public Sub template()
Dim tbl
    tbl = Array(100, 99, 76, 124, 43)
    Array_max (tbl)
    MsgBox "valeur max : " & val_max
End Sub

Private Sub Array_max(tbl)
Dim i As Long, r
    For i = LBound(tbl) To UBound(tbl)
        If IsNumeric(tbl(i)) Then
            r = tbl(i)
            If val_max = "" Then
                val_max = r
            ElseIf r > val_max Then
                val_max = r
            End If
        End If
    Next i

Bonjour à tous,

tu m'as mis le doute jean-eric, mais en fait ça passe :
maxi = Application.Max(tbl)
testé aussi sur un tableau 2D, c'est bon.
eric

Re,

Bonjour Eriiic,

Pourquoi faire simple quand on peut compliquer !

Bonne fêtes de fin d'année.

Cdlt.

Bonsoir,

Merci à tous, en effet je dois demander à l'utilisateur de me donner 1000 nombres différents et donc je dois lui renvoyer le nombre max parmi ces nombres, comment faire dans le cas de tbl(i) au lieu de tbl, vu que j'ai beaucoup de valeurs ?

merci d'avance

Bonnes fêtes aussi

usanas, je ne vois pas trop le rapport avec ta question initiale.
Le max d'un tableau il n'y en a qu'un, c'est ce que retourne nos propositions...
Tu peux préciser ta question ?
eric

Re,

Pour Eriiic

Ah, s'il peut y avoir des valeurs d'erreur, c'est mort oui
Mais un texte ou un booléen ne gênent pas.
Allez, j'ai quand même mérité ma couette qui m'attend

Bonsoir eriiic & Jean-Eric,

Désolé pour le remerciement tardif, je suis pris par la préparation à mes examens, merci beaucoup pour votre aide c'est gentil :)

bonne soirée à vous