Fonction VBA : array_empty

La fonction VBA array_empty renvoie True si le tableau (array) est vide ou False si ce n'est pas le cas.

Si le tableau contient des valeurs "" ou des 0, il n'est pas considéré comme vide par la fonction.

Utilisation :

array_empty(tableau)


Exemple de cas et valeurs renvoyées

Exemples simples avec Array() et différentes valeurs :

Sub exemple1()

    tableau = Array()
    MsgBox array_empty(tableau) 'Renvoie TRUE
   
    tableau = Array(Empty)
    MsgBox array_empty(tableau) 'Renvoie TRUE
   
    tableau = Array(0)
    MsgBox array_empty(tableau) 'Renvoie FALSE
   
    tableau = Array(1)
    MsgBox array_empty(tableau) 'Renvoie FALSE
   
    tableau = Array("")
    MsgBox array_empty(tableau) 'Renvoie FALSE
   
    tableau = Array("XLP", 4, "exemple")
    MsgBox array_empty(tableau) 'Renvoie FALSE

End Sub

Exemples avec des tableaux de taille fixe :

Sub exemple2()

    'Exemple : tableau vide
    Dim tableau_1(10)
    MsgBox array_empty(tableau_1) 'Renvoie TRUE
   
    'Exemple : tableau non vide
    Dim tableau_2(10)
    tableau_2(2) = 0
    MsgBox array_empty(tableau_2) 'Renvoie FALSE
   
    'Exemple : tableau vidé
    Erase tableau_2 'Suppression du contenu
    MsgBox array_empty(tableau_2) 'Renvoie TRUE
   
    'Exemple : tableau vide (tableau_3(2) vaut Empty à la fin)
    Dim tableau_3(10)
    tableau_3(2) = 1
    tableau_3(2) = Empty
    MsgBox array_empty(tableau_3) 'Renvoie TRUE
   
End Sub

Exemples avec des tableaux dynamiques :

Sub exemple3()

    'Exemple : tableau vide
    Dim tableau_1()
    ReDim tableau_1(10)
    MsgBox array_empty(tableau_1) 'Renvoie TRUE
   
    'Exemple : tableau non vide
    Dim tableau_2()
    ReDim tableau_2(10)
    tableau_2(2) = 0
    MsgBox array_empty(tableau_2) 'Renvoie FALSE
   
    'Exemple : tableau vidé
    Erase tableau_2 'Suppression du tableau
    MsgBox array_empty(tableau_2) 'Renvoie TRUE
   
    'Exemple : tableau redimensionné
    ReDim tableau_2(100)
    MsgBox array_empty(tableau_2) 'Renvoie TRUE
   
    'Exemple : tableau vide (tableau_3(2) vaut Empty à la fin)
    Dim tableau_3()
    ReDim tableau_3(10)
    tableau_3(2) = 1
    tableau_3(2) = Empty
    MsgBox array_empty(tableau_3) 'Renvoie TRUE
   
End Sub
Cette fonction est prévue pour les tableaux à 1 dimension uniquement.

Remarque : cette fonction nécessite l'installation du pack de fonctions XLP (un add-in gratuit pour Excel qui ajoute 81 nouvelles fonctions).