Parcourir les différentes valeurs d'une énumération

[mister3957]

Bonjour à tous,

Je voudrais savoir s'il est possible de récupérer les différentes valeurs d'une énumération sous forme de texte..

Par exemple:

Code :

1
2
3
4
5
6
 
Private Enum Values
   VALUE1
   VALUE2
   VALUE3
End Enum

Et je voudrais faire une fonction permttant de récupérer, sous forme de String, les valeurs "VALUE1" "VALUE2" "VALUE3" afin que lorsque j'aurai besoin de rajouter "VALUE4", ça sera assez générique pour juste rajouter cette nouvelle valeur dans l'énumération pour que le reste se mette à jour...

Au pire des cas si c'est pas possible, est-ce que à partir d'une valeur de l'énumération je peux récupérer son texte?

Merci

A bientôt

Aurélien

[ouskel'n'or]

Tu peux peut-être t'inspirer de ça (?)

Code :

1
2
3
4
5
6
7
8
9
10
Sub Collection_Créer()
 Dim MaColect  As New Collection
    ' Rempli la collection
    MaColect.Add "Et alors ? ", "Un"
    MaColect.Add "C'est ", "Deux"
    MaColect.Add "quoi ", "trois"
    MaColect.Add "ton problème ?", "Quatre"
    MsgBox MaColect("Un") & MaColect("Deux") & MaColect("trois") & MaColect("Quatre")
 
End Sub

Il te suffit ensuite d'énumérer les membres de ta collection pour avoir les valeurs (à la place de la dernière ligne)
Tu dis

[olixelle]

a partir de ton enumeration:

Code :

1
2
3
4
5
6
7
8
9
10
Private Enum MonEnumeration
   VALUE1
   VALUE2
   VALUE3
End Enum
 
Dim elt As String
For Each elt In [Enum].GetNames(GetType(MonEnumeration))
   msgbox(elt)
next

[DarkVader]

Envoyé par olixelle

a partir de ton enumeration:

Code :

C'est le Java Bleu ?

ou du DotNet, mais du VB6 ou du VBA, je doute.

[ouskel'n'or]

Un an et demi de réflexion, ça doit être pour ça...