Easy-Micro


ESPACEMEMBRE Tableaux VBA
Tableau unidimensionnel

Tableau VBA unidimensionnel

Un tableau (array - matrice) est un ensemble de valeurs disposées dans plusieurs dimensions. On accède à une variable particulière dans le tableau en utilisant le nom du tableau ainsi qu'un numéro d'index.

Dim MonTableau (index_inf to index_sup) as Choisir_Type

Par exemple, un tableau comportant 100 nombres entiers est déclaré :

Dim MonTableau (1 to 100) as Integer

Le chiffre 100 ci-dessus n'est pas le nombre d'élément mais le numéro d'index le plus haut (Le nombre d'élément changera si l'index inférieur est à 0 ou 1)

On peut n'indiquer que l'index supérieur; l'index inférieur par défaut est alors 0 :

Dim MonTableau (0 to 100) as Integer 'ou bien
Dim MonTableau (100) as Integer

Il est possible de modifier l'index inférieur par défaut à 1 (plutôt que 0) par l'ajout de l'instruction suivante en début du module : Option Base 1

Exemple
Dim i As Byte
Dim int_nombre_de_pays As Byte
Dim GroupeA(5) As String

Sub proc_Coupe_du_monde()
' Remplissage manuel du tableau
GroupeA(0) = "Nouvelle Zélande"
GroupeA(1) = "France"
GroupeA(2) = "Tonga"
GroupeA(3) = "Canada"
GroupeA(4) = "Japon"


' Remplissage dynamique du tableau (la liste du Groupe A est dans la colonne A)
int_nombre_de_pays = Range("A1").End(xlDown).Row ' Numéro de la dernière ligne

For i = 0 To int_nombre_de_pays
GroupeA(i) = Range("A" & i + 1).Value
Next i

'Affichage d'un élément (dans la cellule C1)
Range("c1").Value = GroupeA(2)

' Affichage du tableau complet
For i = 0 To UBound(GroupeA) 'Numéro d'indice supèrieur du tableau GroupeA
Range("A" & i + 1).Value = GroupeA(i)
Next i
End Sub

Autre syntaxe de création de tableau : on utilise la fonction Array.
Attention : le type Variant est ici obligatoire
Dim GroupeA As Variant
GroupeA = array("Nouvelle Zélande", "France", "Tonga", "Canada","Japon")

-> Voir aussi: Developpez.com


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