Easy-Micro


ESPACEMEMBRE Tableaux VBA
Tableau unidimensionnel

Tableau VBA unidimensionnel

Définition

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 ]
Jeudi 20 juin 2019 - Semaine 25 - Saint Silvère (Demain: Saint Rodolphe)
Aujourd'hui, c'est l'anniversaire de Nicole Kidman (1967-52 ans), actrice australienne et américaine.
Haut de page Easy-Micro