Déclaration de tableau en Public

Bonjour à tous,

Je cherche à déclararer un tableau (et ses éléments) en constante publique de facon à ce qu'il soit accessible depuis les différents modules de mon fichier.

En substance, je cherche l'équivalent de cette ligne, mais pour un tableau:

Code:

---

Public Const NomParam As Integer = Valeur

---

Merci d'avance.

Salut,

C'est impossible a ma connaissance.

Une alternative serait peut etre de passer par une chaine et d'acceder aux elements en passant par Split.

Code:

---

1 2 3 4 5 6

Public Const NomParam As String = "1;2;15;44;85"   Sub Test() ' on affiche le 3eme element - ici 15 MsgBox CInt(Split(NomParam, ";")(2)) End Sub

---

Il y a peut etre plus clean :mrgreen:

Bonjour

Dans un projet j'avais fait

Code:

---

1 2 3 4 5 6 7

Public grillproj(25) As Variant Sub inigrill()   grillproj(1) = "A" grillproj(2) = "B" ..... end sub

---

et un call vers inigrill dans workbook_open.

Cela répond peut-être à ta question.

bonjour SeqSyn et à tous,

une autre solution possible,

Code:

---

Public grillproj() As Variant

---

Code:

---

1 2 3 4 5 6 7

Sub inigrill() Liste = Array(100, 2500, 3000, 4500, 7800) For i = LBound(Liste) To UBound(Liste) ReDim Preserve Liste(i) grillproj(i) = Liste(i) Next End Sub

---