affichage de la variable la + forte

Réponse acceptée !
tu peux faire ce genre de choses :


Sub test()
Dim nb1 As Integer
Dim nb2  As Integer
Dim nb3  As Integer
Dim nb4 As Integer
Dim nResult As Long
Dim nIndex As Long

    nb1 = 5
    nb2 = 3
    nb3 = 12
    nb4 = 1

    nResult = Max(nIndex, nb1, nb2, nb3, nb4)
    MsgBox "La valeur max est : " & nResult & " (nb" & (nIndex + 1) & ")"
End Sub

Private Function Max(ByRef vnIndex As Long, ParamArray Values() As Variant) As Long
Dim i As Long
    If UBound(Values) = -1 Then
        vnIndex = -1
    Else
        vnIndex = 0
        Max = Values(0)
        For i = 1 To UBound(Values)
            If Max < Values(i) Then
                vnIndex = i
                Max = Values(i)
            End If
        Next i
    End If
End Function