Ce didacticiel montrera comment créer et utiliser des tableaux d'objets en VBA.
En VBA, les tableaux sont des variables qui stockent plusieurs valeurs. Vous pouvez stocker des objets VBA dans des tableaux de la même manière que vous stockeriez n'importe quelle autre donnée.
Déclaration du tableau d'objets
Dans cet exemple, nous allons déclarer un tableau de feuilles de calcul VBA :
| 1 | Dim arWks(3) en tant que feuille de calcul |
Remplissage d'un tableau d'objets statiques
Déclarez le tableau d'objets comme étant statique, puis vous pouvez remplir le tableau avec les feuilles que vous sélectionnez dans votre classeur.
| 12345678 | Sous TestObjArray()'définir le tableau en tant que tableau de feuille de calculDim arWks (1 à 3) en tant que feuille de travail'ajouter 3 feuilles dans le tableauset arWks(1) = Sheets(1)set arWks(2) = Sheets(2)Définir arWks(3) = Sheets(3)Fin du sous-marin |
Remplissage d'un tableau d'objets dynamiques
Vous pouvez déclarer le tableau d'objets comme étant dynamique, puis compter les feuilles du classeur avant d'affecter la taille du tableau au tableau d'objets.
| 1234567891011121314 | Sous TestObjArray()'définir le tableau en tant que tableau de feuille de calculDim arWks() comme feuille de calcul'compter le nombre de feuilles de calcul dans le fichier et re-tamiser le tableauDim n en tant qu'entierDiminuer en tant qu'entier'compter les feuilles et moins un pour définir les limites du tableaun = Nombre.Feuilles.Application - 1ReDim arWks(n)'remplir le tableau de la feuille de calcul avec toutes les feuilles du classeurPour i = LBound(arWks) à UBound(arWks)Définir arWks(i) = ActiveWorkbook.Sheets(i + 1)Ensuite jeFin du sous-marin |
Dans l'exemple ci-dessus, nous déclarons d'abord le tableau Worksheet. Nous comptons ensuite le nombre de feuilles dans le classeur et attribuons cette valeur moins un à l'UBound du tableau. Cela est dû au fait que le LBound du tableau commence par 0. Enfin, nous parcourons les feuilles et ajoutons chaque feuille au tableau.
Utilisation du tableau d'objets dans le code VBA
Une fois que nous avons rempli le tableau Worksheet, nous pouvons utiliser VBA pour parcourir le tableau.
| 123456789101112131415161718 | Sous TestObjArray()'définir le tableau en tant que tableau de feuille de calculDim arWks() comme feuille de calcul'compter le nombre de feuilles de calcul dans le fichier et re-tamiser le tableauDim n en tant qu'entierDiminuer en tant qu'entier'compter les feuilles et moins un pour définir les limites du tableaun = Nombre.Feuilles.Application - 1ReDim arWks(n)'remplir le tableau de la feuille de calcul avec toutes les feuilles du classeurPour i = LBound(arWks) à UBound(arWks)Définir arWks(i) = ActiveWorkbook.Sheets(i + 1)Ensuite je'faire quelque chose à chaque feuille dans le tableauPour i = LBound(arWks) à UBound(arWks)arWks(i).Range("A1:H1").Font.Bold = TrueEnsuite jeFin du sous-marin |
Dans l'exemple ci-dessus, nous parcourons le tableau et mettons en gras la première ligne de chaque feuille du tableau.
