Variables à deux ou trois indices ?

Le
Kerry
Bonjour,
Est-il possible de créer en VBA des variables à deux ou trois indices ?=

Si oui, comment les déclarer ?
Je vous remercie de votre réponse !
Cordialement,

Kerry.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24688762
Bonjour,
Par exemple, une variable à 3 dimensions :

Dim Tabl(10, 2, 2)
Tabl(0, 0, 0) = 1
Tabl(0, 0, 1) = "A"
Tabl(0, 0, 2) = 9
Tabl(0, 1, 0) = 5
Tabl(1, 0, 0) = 2

Cordialement.
Daniel


Bonjour,
Est-il possible de créer en VBA des variables à deux ou trois indices ?
Si oui, comment les déclarer ?
Je vous remercie de votre réponse !
Cordialement,

Kerry.
MichD
Le #24688812
Bonjour,

Quelques exemples. À mettre dans un module standard...

Exemple I

'Dans le haut du module standard, tu déclares un type personnalisé d'une variable
'-----------------------------------
Type MaVar
Toto As String
Titi As String
Tata As String
End Type
'-----------------------------------

'Comment utiliser ce type de variable dans une procédure
'-----------------------------------
Sub test()
Dim X As MaVar
X.Tata = "Bonjour"
X.Titi = "Bonsoir"
X.Toto = "Bye"
End Sub
'-----------------------------------


Exemple II

'On peut utiliser un ARRAY (TABLEAU)
'Excel travaille très bien avec des tableaux à une dimension ou à 2 dimensions
'-----------------------------------
Sub Test1()
'Déclarer une variable de type "Array" (tableau) , seulement une dimension
Dim X(1 To 3)
'Le tableau à une possible maximale de 3 valeurs
X(1) = "Bonjour"
X(2) = "Bonsoir"
X(3) = "Bye"
End Sub
'-----------------------------------

Exemple III

On peut mixer les 2 exemples précédents

'Dans le haut du module standard, tu déclares un type personnalisé d'une variable
'-----------------------------------
Type MaVar
Toto As String
Titi As String
Tata As String
End Type
'-----------------------------------

Et dans la procédure :
'-----------------------------------
Sub test()
Dim X(1 To 3) As MaVar
X(1).Tata = "Bonjour"
X(1).Titi = "Bonsoir"
X(1).Toto = "Bye"

X(2).Tata = "Auto"
X(2).Titi = "Autobus"
X(2).Toto = "Avion"

X(3).Tata = "Téléphone"
X(3).Titi = "Télex"
X(3).Toto = "Cellulaire"

End Sub
'-----------------------------------

MichD
---------------------------------------------------------------
Publicité
Poster une réponse
Anonyme