Fonctions et tableaux

Voir aussi

Push

Function Push(Valeur As Variant, Tabl As Variant)
    If IsEmpty(Tabl) Then
        Tabl(0) = Valeur
    Else
        ReDim Preserve Tabl(UBound(Tabl) + 1)
        Tabl(UBound(Tabl)) = Valeur
    End If
End Function

Si on appelle cette fonction comme ceci :

    Tableau = Array()
    For Each Cellule In ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(DerniereLigne, 1))
        Push Cellule.Value, Tableau
    Next

...il faut déclarer le tableau comme variable globale (au-dessus du premier sub) : Dim Tableau

Affiche tableau

Function AfficheTableau(Tabl As Variant)
    If UBound(Tabl) > 0 Then
        Dim Chaine
        Chaine = Join(Tabl, ",")
        MsgBox (Left(Chaine, Len(Chaine) - 1))
    End If
End Function

La fonction Join ajoute une virgule à la fin. Left(Chaine, Len(Chaine) - 1) n'affiche pas le dernier caractère.