Easy-Micro


ESPACEMEMBRE Tableaux VBA
Tableau dynamique

Tableau VBA dynamique

Un tableau dynamique n'a pas un nombre de dimensions et d'éléments fixes. Il est ainsi possible, de façon dynamique, de le redimensionner selon les besoins. Les tableaux dynamiques sont créés de la façon suivante:

Dim MonTableau() as Choisir_Type_des_Variables

Avant d'utiliser ce tableau, il faut ensuite définir sa dimension par l'instruction:
ReDim MonTableau(Nb_elements)

Dim i As Integer
Dim tableaudefeuille() As String

Sub proc_recupe_nom_feuille_ds_tableau()

' Permet de redimentionner le tableau dynamiquement
' Cela évite de donner absolument un nombre précis dans les parenthèses
ReDim tableaudefeuille(Sheets.Count)

'Remplissage
For i = 1 To Sheets.Count
tableaudefeuille(i) = Sheets(i).Name
Next

'Exemple d'affichage
'Range("A10").Value = tableaudefeuille(1)

'Affiche tout le tableau
Dim h As Byte
For h = 1 To UBound(tableaudefeuille)
Range("A" & h).Value = tableaudefeuille(h)
Next h

End Sub

Autre exemple: Remplissage dynamique de tableau
Option Explicit
Option Base 1
Dim int_nbre_de_pays As Byte
Dim i As Byte
Dim GroupeA()

Sub proc_Coupe_du_monde()

'Numéro de la dernière ligne
int_nbre_de_pays = Range("A1").End(xlDown).Row

'Taille dynamique
ReDim GroupeA(int_nbre_de_pays)

'Remplissage dynamique
For i = 1 To UBound(GroupeA)
GroupeA(i) = Range("A" & i).Value
Next i

End Sub

Il est à noter qu'il est possible de redimensionner la taille du tableau aussi souvent que nécessaire.


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Mardi 22 janvier 2019 - Semaine 04 - Saint Vincent (Demain: Saint Barnard)
Aujourd'hui, c'est l'anniversaire de Frank Leboeuf (1968-51 ans), footballeur français (défenseur). Autre 22 janvier: 1981 - Début de la série américaine Dallas sur les écrans français (TF1).
Haut de page Easy-Micro