liste énumérée de const. perso comme paramètre de fonction

Version imprimable

13/12/2005, 14h58
batou22003

liste énumérée de const. perso comme paramètre de fonction

Bonjour,
est-ce quelqu'un a déjà crée l'équivalent d'une constante énumérée
en tant que paramètre d'une fonction?

J'ai tout essayé, notamment de créer un type personnalisé , mais c'est finalement impossible de le passer en variable.

Tout cela dans le but de trouver facilement une liste de valeur correspondant au paramètre.

Merci d'avance de votre aide.
je désespère.

:lol:
13/12/2005, 15h39
leroissejp

Bonjour,
Si tu donnais un peu de ton code, parce que là, je ne comprend pas grand-chose.

jpleroisse
13/12/2005, 16h04
batou22003

Citation:

Envoyé par leroissejp

Bonjour,
Si tu donnais un peu de ton code, parce que là, je ne comprend pas grand-chose.

jpleroisse

Un peu de Code Et bien quand tu fais un MsgBox, pour le deuxieme parametre Buttons, en utilisant l'aide à la saisie tu peux choisir une des valeurs vbCritical,vbDefault,...
Et bien, je veux faire la même chose pour le paramètre d'une fonction personnalisée.
Tu vois le principe que je veux reproduire?

je comprends en passant par la création d'un ty enéuméré cela fonctionne ...!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Enum MonEnum
   iEnum1 = &HE1E4FF
   iEnum2 = &H908070
   iEnum3 = &HFF901E
   iEnum4 = &HFFBF00
 
End Enum
 
 
 
Function TestEnum(i As MonEnum)
 MsbBox i
End Function
 
Sub testAppel()
  TestEnum iEnum2
End Sub

Citation:
Envoyé par bbil
je comprends en passant par la création d'un ty enéuméré cela fonctionne ...!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Enum MonEnum iEnum1 = &HE1E4FF iEnum2 = &H908070 iEnum3 = &HFF901E iEnum4 = &HFFBF00 End Enum Function TestEnum(i As MonEnum) MsbBox i End Function Sub testAppel() TestEnum iEnum2 End Sub
Merci parfait, ca marche comme je l'espère et c'est surtout très pratique

13/12/2005, 17h44
méphistopheles

au fait, tu sait comment on passe une valeur par défaut à une fonction (nottement quand on utilise un optional)?

merci :wink:

voila...

Code:

1
2
3
4
5
6
7
Sub maprocedure(Optional St As String = "HEllo")
 MsgBox St
End Sub
Sub test()
 maprocedure
 maprocedure "Comment va tu"
End Sub

Bonsoir,
Tu as aussi cette méthode.

Code:

1
2
3
4
5
6
7
 
Sub test()
Dim Str1
Str1 = Array("Hello", "Comment vas-tu ?", "Bien !")
MsgBox Str1(0) & " " & Str1(1)
MsgBox Str1(2)
End Sub

jpleroisse

13/12/2005, 20h37
méphistopheles

ok

merci beaucoup à tous les deux (et déolé d'avoir suatté le sujet de batou22003)

salut :wink: