creer une variable dynamiquement

Bonjour!!

J'ai une question sur les variants..

J'utilise plusieurs variant comme tableaux pour stocker des listes de string
(chaque variant <=> une liste)

Le truc c'est que j'aimerai creer dynamiquement ces variants, au cour du déroulement de mon programme (donc pas de declaration initiale)

De plus j'aimerai pouvoir donner un nom lui aussi défini dynamiquement a chaque variant créé..

Est il possible de le faire ?

Merci
yedid

Bonjour

Je te conseille la lecture de ce tuto de Silkyroad.

Il t'explique comment écrire du code à partir de code, tu pourrais (en théorie) créer des variables et tableaux.

Starec

Merci bcp!
Je vais essayer vbVariant qui me semble pas mal..
je vous tiens au courant

Nan dsl,

Il ne fait pas ce que j'attendais de lui..
Dans ce tuto, il te parle d'une creation dynamique d'objet present dans les useforms, de module meme, mais pas de variant!! :-(
T'aurai une autre idée?

Re

Dans un module tu peux écrire du code, ce tuto t'explique comment écrire du code dans un module, donc tu peux écrire.

Code:

---

Dim maVariable as Variant

---

Starec

gérer des variables de facon dynamique c'est chercher une solution compliquée à un problème simple

la sub suivante montre comment utiliser les deux structures dynamiques
de vba (tableau collection)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub dyna() Dim unvariant As Variant Dim ligne As Integer Dim colonne As Integer Dim base As Integer Dim macoll As New Collection Do If MsgBox(prompt:="encore ?", Buttons:=vbYesNo) = 7 Then Exit Do base = base + 1 ligne = InputBox("nbligne") ReDim unvariant(ligne, 2) For ligne = 1 To ligne For colonne = 1 To 2 unvariant(ligne, colonne) = InputBox("valeur?") Next colonne Next ligne macoll.Add Item:=unvariant, key:="nom" & base Loop For colonne = 1 To macoll.Count MsgBox ("nom" & colonne) unvariant = macoll("nom" & colonne) For ligne = 1 To UBound(unvariant) MsgBox (unvariant(ligne, 1) & " " & unvariant(ligne, 2)) Next ligne Next colonne End Sub

---

ici le nom n'est pas totalement programmée mais
il suffit de faire key:=inputbox("entrez un nom") et de gérer les erreurs

:king:

J'en avais un autre, alors je ne vais pas me priver :mouarf:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Collection_Créer() Dim MaColect As New Collection Dim NimporteQuoi 'variable "dynamique" ' Rempli la collection MaColect.Add "ton problème ?", "Quatre" MaColect.Add "Et alors ? ", "Un" MaColect.Add "quoi ", "trois" MaColect.Add "C'est ", "Deux" 'Affichage Debug.Print MaColect("Un") & MaColect("Deux") & MaColect("trois") & MaColect("Quatre") MsgBox MaColect("Un") & MaColect("Deux") & MaColect("trois") & MaColect("Quatre") NimporteQuoi = MaColect("Deux") 'ou MaColect("Un") ou MaColect("Quatre")... etc.   End Sub

---