Discussion :

[kortnor]

Bonjour tout le monde

J'ai besoin de manipuler plusieurs types de variables provenant d'un table access

Pour les manipuler, je voudrai utiliser un tableau de variant
car dans ma table, il y a des dates, des string, des numeric.....

Je voudrai savoir comment faire pour ajouter des valeurs dans un tableau de variant
style :

Code :

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

1
2
3
4
5
 
dim tableau as variant
tableau(0) = valeur1
tableau(1) = string1
etc...

Pour le moment je ne parvient pas à le faire de manière automatique comme dans une boucle
et cette methode : tableau = Array(1, 2, 3, 4, "15443", "fe") ne me convient pas du tout


Merci d'avance

[Invité]

Bonjour

Avant d'aller plus loin, as-tu été lire cet article ?

http://silkyroad.developpez.com/vba/tableaux/

Starec

[kortnor]

oui je l'ai lu et parcourus et malheureusement je ne trouve pas la réponse à ma question .

on ne parle pas de rajout de valeurs dans un tableau multi type comme un variant

[ouskel'n'or]

Tu as certainement mal lu mais bon...
Dans ton code, si tu ne dimensionnes pas ton tableau, tu n'arriveras à rien de rien.
Tu as plusieurs façons de procéder
Tu redimensionnes une seule fois pour la dimension la plus grande

Code :

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

1
2
3
4
5
6
7
sub Test1()
Dim tableau As Variant
ReDim tableau(2)
tableau(0) = "valeur1"
tableau(1) = "string1"
MsgBox tableau(0)
end sub

Ou tu redimensionnes chaque indice

Code :

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

1
2
3
4
5
6
7
8
sub test2()
Dim tableau As Variant
Redim tableau(0)
tableau(0) = "valeur1"
Redim tableau(1)
tableau(1) = "string1"
MsgBox tableau(0) '-> "" tu obtiens une chaîne vide
End sub

Si tu fais ça, tu effaces le contenu de Tableau(0) puis de Tableau(1), etc.

Si tu veux préserver les valeurs contenues dans le tableau, tu dois utiliser Redim Preserve et placer des parenthèses à la variable Tableau

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test2()
Dim tableau() As Variant
For i = 0 To 5
    ReDim Preserve tableau(i)
    tableau(i) = "valeur" & i
Next
For i = 0 To 5
    MsgBox tableau(i)
Next
End Sub

Mais tu devrais consulter les différents tutoriels proposés sur ce forum, ils t'en diront infiniment plus que moi (adresse dans la signature)
Bonne soirée