Discussion :

[le petit nicolas]

bonjour à tous,

dans une fonction, j'utilise une variable tableau. Ce tableau est en fait constant : les valeurs sont codées "en dur"

Code :

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

1
2
MonTab(1) = "AAA"
MonTab(2) = "BBB"

il est assez pénalisant de devoir recréer le tableau à nouveau lors de chaque appel de la fonction. Je m'en suis sorti en déclarant le tableau Static, et en testant son existence au début de la fonction

Code :

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

1
2
3
4
Static MonTab(10) as variant
if MonTab(1) <> "AAA" then
   ' affectation des valeurs aux éléments de MonTab
end id

mais c'est assez inélégant, et difficile à maintenir. existe-il une solution pour déclarer un tableau constant (ou un tableau de constantes, donc).

merci

[Michel_M]

Bonsoir,

Je ne sais pas si j'ai bien compris ton pb
mais pourquoi n'écris tu pas

Code :

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

montab=array("AAA","BBB", "CCC".......)

En espérant que...

[le petit nicolas]

salut michel,

mon souci c'est de ne pas laisser VBA créer à nouveau le tableau à chaque appel de la fonction, principalement pour des raisons de rapidité.

c'est pourquoi ca m'arrangerait qu'il soit créé une fois pour toutes. Au début, j'avais essayé dans la zone des déclarations du module, ca me paraissait un endroit idéal, mais VBA ne veut pas qu'on affecte des valeurs à des variables dans cette zone, et on ne peut pas déclarer un tableau avec Const. alors je butte...

[ouskel'n'or]

Et ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public const Tableau = "AAA;BBB;CCC;DDD;EEE"
 
sub Affiche()
Dim LeTableau, i
msgbox split(Tableau, ";")(2)
'ou
LeTableau = split(Tableau, ";")
for i = 0 to Ubound(LeTableau)
     msgbox LeTableau(i)
next
end Sub

A+

[le petit nicolas]

"split", c'est bien, ca, je ne ne connaissais pas.
Bravo et merci pour la réponse