Discussion :

[batou22003]

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.

[leroissejp]

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

jpleroisse

[batou22003]

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?

[SfJ5Rpw8]

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

Code :

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

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

[batou22003]

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

Code :

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

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

[méphistopheles]

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


merci

[SfJ5Rpw8]

voila...

Code :

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

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

[leroissejp]

Bonsoir,
Tu as aussi cette méthode.

Code :

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

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

[méphistopheles]

ok

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


salut