Discussion :

[mennix]

Bonjour a nouveau,
Depuis un moment, je cherche mais n'arrive pas a trouver un exemple compatible avec VBA Excel.

Je cherche un équivalement a cela (source delphi)

Code delphi :

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

1
2
 
Const CC_CA:ARRAY[0..7] of STRING[10]=('??','CC','CA','CC/CA','05','','','CC/CA/05');

Et en VBA, j'ai essayé divers chose comme :

Code :

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

Const longArray() As Long = {0, 1, 2, 3}

et pas mal d'autre chose, a part passer par du typage, je n'ai pas trouvé pourtant, je reste persuadé que cela existe, vu que certaine fonction comme
msgbox , propose vbyes, vbno etc.....

si une ame charitable peut m'aider.
Merci une fois de plus a vous.
bonne fin de soirée.
t

[Philippe Tulliez]

Bonjour,
Selon mes connaissances, je ne crois pas que cela soit possible mais il y a une façon détournée d'y arriver.
Mettre une variable string en constante et appeler son indice avec la fonction Split

Code :

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

1
2
3
4
5
 
Public Const maTable As String = "AAA;BBB;CCC;DDD;EEE"
Sub TestConst()
 MsgBox Split(maTable, ";")(2) ' Appel du troisième élément de la chaine 
End Sub

[pgz]

Bonjour.

Tu peux faire aussi

Code :

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

1
2
3
4
5
6
7
Sub mennix()
Dim vTab As Variant
 
vTab = Array(0, 1, 2, 3, 4, 5)
 
MsgBox vTab(2)
End Sub

Cordialement

PGZ

[Philippe Tulliez]

Bonsoir,
Quand je disais que je croyais que ce n'était pas possible, c'était par rapport à une variable constante. Ce qui semble être dans la question initiale.

[pgz]

Bonsoir.

Nous sommes bien d'accord.

Cordialement,

PGZ

[mennix]

c'est bien ce qu'il me semblait, mais comment fonctionne par exemple Msgbox , lorsque on arrive a la seconde option, et qu'il nous propose une multitude choix (VB_yes, Vb_no, VbYesno etc)... il ya un bien une constanste qui a été parametré avec ses choix possibles.
le but entant dans une de mes procedures a choix

Code :

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

1
2
 
SUB ess (choix as TCHOIX)

Imposé dans Choix, des constantes nommé par des noms, histoire de clarté.