[debutant] tableau variant

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:

---

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

Bonjour

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

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

Starec

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

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:

---

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:

---

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:

---

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