Discussion :

[yedid]

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

[Invité]

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

[yedid]

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

[yedid]

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?

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim maVariable as Variant

Starec

[random]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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