OVH Cloud OVH Cloud

Nom d'un tableau

1 réponse
Avatar
Jean-Michel
Bonjour,

Je voudrais savoir comment je pourrai faire pour declarer un tablo avec
comme nom, la valeur d'une variable ?
C'est a dire si la variable couleur est egale à blanc, je voudrai que mon
tableau s'appelle blanc()

Merci pour votre aide!

1 réponse

Avatar
François Picalausa
"Jean-Michel" a écrit dans le
message de news:
Je voudrais savoir comment je pourrai faire pour declarer un tablo
avec comme nom, la valeur d'une variable ?
C'est a dire si la variable couleur est egale à blanc, je voudrai que
mon tableau s'appelle blanc()



Bonjour/soir,

Tu pourrais employer une collection.

'Dans une feuille avec 2 Commandbuttons, command1, command2 et un textbox:
text1
Option Explicit

Private Mycollection As Collection

Private Sub Command1_Click()
'ajoute un tableau à la collection
Dim MonTableau(3) As Byte

MonTableau(0) = 21
MonTableau(1) = 17
MonTableau(2) = 42
MonTableau(3) = 87

Mycollection.Add MonTableau, Text1.Text
End Sub

Private Sub Command2_Click()
'Retourne des valeurs stoquées
Dim i As Byte

For i = 0 To 3
Debug.Print Mycollection.Item(Text1.Text)(i)
Next i
End Sub

Private Sub Form_Initialize()
Set Mycollection = New Collection
End Sub

Private Sub Form_Terminate()
Set Mycollection = Nothing
End Sub

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com