Salut , je fais un programme avec des procédures et des fonctions et je voudrais savoir s'il est possible de retourner un tableau dans une fonction ? ou encore 2 varaibles passées en paramètres ?

Voilà ma procédure que je voudrais transformer en fonction :
Celle-ci par dans un fichier texte pour faire des stats

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
Public Sub CalculStats()
Public TabStats(1 To 49) As Integer
'on initialise le tableau à 0
For i = 1 To 49
TabStats(i) = 0
Next
 
Open "archives.txt" For Input As #1
 
Do
' on lit les lignes une par une
Input #1, Bo.Bdate, Bo.Bheure, Bo.Bnb1, Bo.Bnb2, Bo.Bnb3, Bo.Bnb4, Bo.Bnb5, Bo.Bnb6, Bo.Bnb7
  For p = 1 To 49 ' Le nombre de boules
     ' Si un numéro correspond à une boule du fichier alors...
     If p = Bo.Bnb1 Or p = Bo.Bnb2 Or p = Bo.Bnb3 Or p = Bo.Bnb4 Or p = Bo.Bnb5 Or p = Bo.Bnb6 Or p = Bo.Bnb7 Then
     ' le tableau prend + 1
     TabStats(p) = TabStats(p) + 1
     End If
  Next
 
Loop Until EOF(1)
Close #1
End Sub