Je souhaite créer une fonction qui retourne deux valeurs, ci-dessous j'ai développé cette fonction qui ne retourne que la valeur Min et je souhaite également retourner la valeur Recurmin, comment procéder? Merci de votre aide .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
    Public Function MinimumTableau(ByVal Tableau() As Integer, ByVal nbvaleurs As Integer) As Integer
        Dim i, Min, Recurmin As Integer
        i = 0
        Min = Tableau(i)
 
            For i = 0 To nbvaleurs - 1
            If Tableau(i) < Min Then
                Min = Tableau(i)
            End If
        Next
 
        For i = 0 To nbvaleurs - 1
            If Tableau(i) = Min Then
                Recurmin = Recurmin + 1
            End If
        Next
 
        MsgBox(Title:="Résultat", Prompt:="Le minimum est de : " & Min & " - Récurrence : " & Recurmin)
 
 
        MinimumTableau = Min
 
    End Function