j'ai fait un Enum, il se peut que j'y ajopute des infos dans quelques temps,
existe t'il un moyen pour connaitre le nombre de constantes de l'enumération
? De récupérer sous forme de texte le nom des constantes ? Merci d'avance.
Bonjour John; ' A Adapter: ' Nom du classeur ' Nom du module ' Nom de l'énumération Sub GetEnum() Const EnumName$ = "Enum InterfaceColors" Dim i&, m1&, m2& With Workbooks(ThisWorkbook.Name).VBProject.VBComponents("Module2").CodeModule For i = 1 To .CountOfDeclarationLines If InStr(1, .Lines(i, 1), EnumName, 1) Then m1 = i + 1 If m1 Then If InStr(1, .Lines(i, 1), "End Enum", 1) Then m2 = i: Exit For Next i If m1 And m2 Then MsgBox .Lines(m1, m2 - m1), 64, "Get " & EnumName End With End Sub
MP
"John Fuss" a écrit dans le message de news:ceaval$9cp$
Bonjour,
j'ai fait un Enum, il se peut que j'y ajopute des infos dans quelques temps, existe t'il un moyen pour connaitre le nombre de constantes de l'enumération ? De récupérer sous forme de texte le nom des constantes ? Merci d'avance.
John
Bonjour John;
' A Adapter:
' Nom du classeur
' Nom du module
' Nom de l'énumération
Sub GetEnum()
Const EnumName$ = "Enum InterfaceColors"
Dim i&, m1&, m2&
With Workbooks(ThisWorkbook.Name).VBProject.VBComponents("Module2").CodeModule
For i = 1 To .CountOfDeclarationLines
If InStr(1, .Lines(i, 1), EnumName, 1) Then m1 = i + 1
If m1 Then If InStr(1, .Lines(i, 1), "End Enum", 1) Then m2 = i: Exit For
Next i
If m1 And m2 Then MsgBox .Lines(m1, m2 - m1), 64, "Get " & EnumName
End With
End Sub
MP
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de
news:ceaval$9cp$1@s1.read.news.oleane.net...
Bonjour,
j'ai fait un Enum, il se peut que j'y ajopute des infos dans quelques temps,
existe t'il un moyen pour connaitre le nombre de constantes de l'enumération
? De récupérer sous forme de texte le nom des constantes ? Merci d'avance.
Bonjour John; ' A Adapter: ' Nom du classeur ' Nom du module ' Nom de l'énumération Sub GetEnum() Const EnumName$ = "Enum InterfaceColors" Dim i&, m1&, m2& With Workbooks(ThisWorkbook.Name).VBProject.VBComponents("Module2").CodeModule For i = 1 To .CountOfDeclarationLines If InStr(1, .Lines(i, 1), EnumName, 1) Then m1 = i + 1 If m1 Then If InStr(1, .Lines(i, 1), "End Enum", 1) Then m2 = i: Exit For Next i If m1 And m2 Then MsgBox .Lines(m1, m2 - m1), 64, "Get " & EnumName End With End Sub
MP
"John Fuss" a écrit dans le message de news:ceaval$9cp$
Bonjour,
j'ai fait un Enum, il se peut que j'y ajopute des infos dans quelques temps, existe t'il un moyen pour connaitre le nombre de constantes de l'enumération ? De récupérer sous forme de texte le nom des constantes ? Merci d'avance.
