Discussion :

[Phifou]

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 :

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

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

[PMO2017]

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 :

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

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

[Phifou]

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

[Philippe Tulliez]

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 :

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

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