Comment créer un fonction qui renvoie un tableau Fermé

Question

Bonjour, 

Je souhaite créer une fonction qui me renvoie plusieurs valeurs de différents types (integer et variant).
J'ai eu l'idée d'utiliser un tableau mais je n'arrive pas à le mettre en oeuvre quelqu'un peut il m'aider svp???

Voici mon début de code en simplifier:

Function remplissage(site As String, mois As Date)
'La fonction trouve:
'    nb (integer),
'    dose_non_nul (variant)
'    sommedose (variant)
'    dosemax (variant)
    
    tableau = Array(nb, dose_non_nul, sommedose, dosemax)
    
    remplissage = tableau
End function
Configuration: Windows 7 / Chrome 42.0.2311.135

pijaku · Answer

Salut,

Regarde la fonction :
Function remplissage(site As String, mois As Date) As Variant()
'La fonction trouve:
Dim nb As Integer, dose_non_nul As Variant, sommedose As Variant, dosemax As Variant, tableau As Variant
   nb = 3
   dose_non_nul = True
   sommedose = 321.589
   dosemax = 18
   tableau = Array(nb, dose_non_nul, sommedose, dosemax)
   remplissage = tableau
End Function

et la façon de l'appeler :
Sub test()
Dim mesresultats As Variant
mesresultats = remplissage("quoi", Date)
For i = LBound(mesresultats) To UBound(mesresultats)
   Debug.Print mesresultats(i)
Next i
End Sub

Comment créer un fonction qui renvoie un tableau

1 réponse

Discussions similaires