Discussion :

[SeqSyn]

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 :

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

Public Const NomParam As Integer = Valeur

Merci d'avance.

[Minick]

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 :

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

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

[78chris]

Bonjour

Dans un projet j'avais fait

Code :

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

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.

[sabzzz]

bonjour SeqSyn et à tous,

une autre solution possible,

Code :

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

Public grillproj() As Variant

Code :

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

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