Tableaux VBATableau 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
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"
'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
' Remplissage du tableau à partir d'une liste Excel (la liste du Groupe A est dans la colonne A)
For i = 0 To 4
GroupeA(i) = Range("A" & i + 1).Value
Next iAutre syntaxe de création de tableau : on utilise la fonction Array.
Attention : le type Variant est ici obligatoire
Dim GroupeA(1 to 5) As Variant
GroupeA = array("Nouvelle Zélande","France","Tonga","Canada","Japon")-> Voir aussi: Developpez.com
