Remplir une variable tableau lors de sa création

Bonjour à tous,

je n'ai pas réussis à trouver l'information, mais je souhaitais savoir s'il était possible de remplir un tableau lorsqu'on le déclare en VBA (pas trouvé cet info sur le tuto de Silkyroad (ni ailleurs d'ailleurs).
En clair, faire ça :

Code:

---

Dim TableauEntier (10) as Integer= {2, 4, 5, 6, 45, 34, 2, 1, 34,12}

---

Je sais qu'on peut le faire dans d'autres langages, est-ce que VBA le permet ? Et si oui, quel est la typographie s'il vous plaît ?

Je vous remercie !!!!


Philippe

Bonjour,

A ma connaissance ce n'est pas possible en VB.

Cependant, on peut utiliser un Variant mais je ne vois pas trop l'intérêt.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub aa() Dim i& Dim TableauEntier As Variant TableauEntier = Array(2, 4, 5, 6, 45, 34, 2, 1, 34, 12) 'le variant peux contenir d'autres types que le type Integer   '--- Enumération des items --- For i& = LBound(TableauEntier) To UBound(TableauEntier) MsgBox "Indice :" & i& & vbTab & "Valeur :" & TableauEntier(i&) Next i& End Sub

---

Ok, merci beaucoup pour l'info et pour l'astuce suivante.
Mon idée était de stocker une 20aine de date dans un tableau mais je n'avais pas envie d'écrire 20 ligne et je voulais pouvoir choisir en utilisant une variable, quelle date prendre.

Merci bien pour ces infos et cette confirmation.

Bonne journée,


Philippe

Bonjour,
Pourquoi ne pas utiliser une plage de cellules (éventuellement dans une feuille cachée) pour stocker ces dates et charger en une seule ligne de code la variable tableau.
Exemple

Code:

---

1 2 3 4 5 6 7

Sub t() Dim dates(), d As Byte dates = shtParam.Range("A1").CurrentRegion For d = 1 To UBound(dates) Debug.Print dates(d, 1) Next End Sub

---

shtParam est le CodeName de la feuille où sont stockées les dates