VBA – Effacer un Tableau – Fonction Erase

Ce tutoriel vous apprendra à effacer un tableau en VBA.

Effacer un Tableau Entier

Pour effacer un tableau entier, vous pouvez utiliser la fonction Erase:

Erase arrExemple

En pratique :

Sub EffacerTableau()
    'Création d'un tableau statique
    Dim arrExemple(1 To 3) As String
 
    'Définition des valeurs du tableau
    arrExemple(1) = "Shelly"
    arrExemple(2) = "Steve"
    arrExemple(3) = "Neema"
 
    'Effacer tout le tableau
    Erase arrExemple

    'Vérifier la valeur du tableau
    MsgBox arrExemple(1)
End Sub

Redimensionner et Effacer un Tableau

Si votre tableau est dynamique (un tableau dynamique est un tableau qui peut être redimensionné, par opposition à un tableau statique qui ne peut pas être redimensionné), vous pouvez utiliser la commande Commande ReDim pour redimensionner le tableau, en effaçant toutes les valeurs du tableau.

'Effacer tout le tableau
ReDim arraExemple(1 To 4)

Exemple complet :

Sub EffacerTableau2()
    'Création d'un tableau dynamique
    Dim arrExemple() As String
    ReDim arrExemple(1 To 3)
 
    'Définition des valeurs du tableau
    arrExemple(1) = "Shelly"
    arrExemple(2) = "Steve"
    arrExemple(3) = "Neema"
    
    ' Effacer tout le tableau
    ReDim arrExemple(1 To 4)
    
    'Vérifier la valeur du tableau
    MsgBox arrExemple(1)
End Sub

Effacer une Partie d’un Tableau

Comme nous l’avons mentionné plus haut, la commande ReDim redimensionnera un tableau, effaçant toutes les valeurs du tableau. Au lieu de cela, vous pouvez utiliser la commande ReDim Preserve pour redimensionner le tableau, en préservant toutes les valeurs existantes. En pratique, cela peut être utilisé pour effacer rapidement une partie d’un tableau.

' Effacer les données dans les positions supérieures à 3
ReDim Preserve arrExemple(1 To 2)

Exemple complet :

Sub EffacerTableau3()
    'Création d'un tableau dynamique
    Dim arrExemple() As String
    ReDim arrExemple(1 To 3)
 
    'Définition des valeurs du tableau
    arrExemple(1) = "Shelly"
    arrExemple(2) = "Steve"
    arrExemple(3) = "Neema"
 
    'Effacer les positions 3+
    ReDim Preserve arrExemple(1 To 2)
    
    'Redimensionner à 3 positions
    ReDim Preserve arrExemple(1 To 3)
    
    'Vérifier la valeur du tableau
    MsgBox arrExemple(3)
End Sub

Boucle dans tout le Tableau – Réinitialisation des Valeurs

Au lieu d’effacer les valeurs du tableau en utilisant Erase ou ReDim, vous pouvez parcourir en boucle l’ensemble du tableau et réinitialiser chaque valeur.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!