Si la taille de votre tableau augmente et que vous ne souhaitez pas fixer la taille du tableau, vous pouvez utiliser le Mot clé ReDim. Excel VBA puis modifie automatiquement la taille du tableau.
Ajoutez des nombres à la colonne A.
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :
1. Tout d'abord, nous déclarons le tableau nommé numbers. Déclarez également deux variables de type Integer. Une taille nommée et une nommée i.
Dim numbers () en tant qu'entier, taille en tant qu'entier, i en tant qu'entier
Remarque : le tableau n'a pas encore de taille. les nombres, la taille et moi sont choisis au hasard ici, vous pouvez utiliser n'importe quel nom. N'oubliez pas de faire référence à ces noms dans le reste de votre code.
2. Ensuite, nous déterminons la taille du tableau et la stockons dans la taille variable. Vous pouvez utiliser la fonction de feuille de calcul CountA pour cela. Ajoutez la ligne de code suivante :
taille = WorksheetFunction.CountA(Worksheets(1).Columns(1))
3. Nous connaissons maintenant la taille du tableau et nous pouvons le redimensionner. Ajoutez la ligne de code suivante :
Numéros ReDim (taille)
4. Ensuite, nous initialisons chaque élément du tableau. Nous utilisons une boucle.
Pour i = 1 À la taille
nombres(i) = Cellules(i, 1).Valeur
Ensuite je
5. Nous affichons le dernier élément du tableau à l'aide d'une MsgBox.
Numéros de MsgBox (taille)
6. Quittez Visual Basic Editor et cliquez sur le bouton de commande sur la feuille.
Résultat:
7. Maintenant, pour voir clairement pourquoi cela s'appelle un tableau dynamique, ajoutez un nombre à la colonne A.
8. Cliquez à nouveau sur le bouton de commande.
Conclusion : Excel VBA a automatiquement modifié la taille de ce tableau dynamique.
9. Lorsque vous utilisez le mot-clé ReDim, vous effacez toutes les données existantes actuellement stockées dans la baie. Par exemple, ajoutez les lignes de code suivantes au code créé précédemment :
Numéros ReDim(3)
Numéros de MsgBox(1)
Résultat:
Le tableau est vide.
10. Si vous souhaitez conserver les données du tableau existant lorsque vous le redimensionnez, utilisez le mot clé Preserve.
ReDim Conserver les numéros(3)
Numéros de MsgBox(1)
Résultat:
