VBA : Comment renvoyer un tableau à partir d’une fonction

Vous pouvez utiliser la syntaxe de base suivante pour renvoyer un tableau à partir d’une fonction dans VBA :

Function GenerateRandom() As Integer()

    Dim RandValues(2) As Integer
     
    'generate three random integers and store them in array 
    RandValues(0) = Int(Rnd * 100)
    RandValues(1) = Int(Rnd * 100)
    RandValues(2) = Int(Rnd * 100)
    
    'return array as a result of the function
    GenerateRandom = RandValues

End Function

Cet exemple particulier génère trois entiers aléatoires, les stocke dans un tableau, puis renvoie le tableau à la suite de la fonction appelée GenerateRandom() .

Les exemples suivants montrent comment renvoyer les valeurs de cette fonction de deux manières différentes :

• Renvoie les valeurs dans une boîte de message
• Renvoie les valeurs dans les cellules

Allons-y !

Exemple 1 : renvoyer un tableau à partir d’une fonction et afficher les valeurs dans la boîte de message

Nous pouvons utiliser la syntaxe suivante pour créer une fonction appelée GenerateRandom() qui génère un tableau de trois entiers aléatoires, puis afficher les entiers dans une boîte de message à l’aide de la fonction MsgBox :

'define function to generate array of three random integers
Function GenerateRandom() As Integer()

    Dim RandValues(2) As Integer
     
    RandValues(0) = Int(Rnd * 100)
    RandValues(1) = Int(Rnd * 100)
    RandValues(2) = Int(Rnd * 100)
    
    GenerateRandom = RandValues

End Function

'define sub to display values from function in a message box
Sub DisplayRandom()

     Dim WS As Worksheet
     Dim RandomValues() As Integer
     Dim i As Integer

     Set WS = Worksheets("Sheet1")
     RandomValues = GenerateRandom()

     j = "Array values: "
     For i = 0 To 2
          j = (j & RandomValues(i) & " ")
     Next i
     MsgBox j

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

On peut voir que la fonction renvoie les entiers aléatoires de 96 , 87 et 5 dans une boîte de message.

Exemple 2 : renvoyer un tableau à partir d’une fonction et afficher les valeurs dans les cellules

Nous pouvons utiliser la syntaxe suivante pour créer une fonction appelée GenerateRandom() qui génère un tableau de trois entiers aléatoires, puis afficher les entiers commençant dans la cellule A1 dans Excel :

'define function to generate array of three random integers
Function GenerateRandom() As Integer()

    Dim RandValues(2) As Integer
     
    RandValues(0) = Int(Rnd * 100)
    RandValues(1) = Int(Rnd * 100)
    RandValues(2) = Int(Rnd * 100)
    
    GenerateRandom = RandValues

End Function

'define sub to display values from function starting in cell A1
Sub DisplayRandom()

     Dim WS As Worksheet
     Dim RandomValues() As Integer
     Dim i As Integer

     Set WS = Worksheets("Sheet1")
     RandomValues = GenerateRandom()

     For i = 0 To 2
          WS.Range("A1").Offset(i, 0).Value = RandomValues(i)
     Next i

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Nous pouvons voir que la fonction renvoie les entiers aléatoires de 96 , 87 et 5 à partir de la cellule A1 de notre feuille de calcul.

Remarque : Pour renvoyer les valeurs du tableau commençant dans une cellule différente, remplacez simplement A1 dans le code par une référence de cellule différente.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

Comment renvoyer une valeur à partir d’une fonction VBA
Comment obtenir la valeur d’une cellule à partir d’une autre feuille dans VBA
Comment utiliser IsNumeric pour vérifier si la cellule est un nombre dans VBA