[AC-2016] Comprendre les paramètres Optional dans une procédure ou une fonction

Comprendre les paramètres Optional dans une procédure ou une fonction

Bonjour,

Dans les paramètres d'une fonction, j'ai mis un paramètre optionnel

Code:

Optional Hors_Budget As Boolean

Je pensai ainsi traiter 3 cas : Vrai, Faux ou null

Je ne comprends pas : Si le paramètre optionnel n'est renseigné, la fonction considère que Hors_Budget=Faux

Il faux donc un autre format que Boolean pour avoir ce que je voudrais ?

Merci pour votre aide

Bonjour,
Si tu veux passer NULL alors il faut déclarer : Hors_Budget as Variant

Cdlt

Merci

Cela marche

mais du coup le test qui suit n'est plus IsNull mais IsError et dans le code qui suit
Code:

1 2 3 4 5 6 Select Case Hors_Budget Case "Vrai" Case "Faux" Case Else End Select
au lieu de
Code:

1 2 3 4 5 6 Select Case Hors_Budget Case True Case False Case Else End Select
L'essentiel est que cela marche.

Merci

Pour éviter isError, on peut écrire ta procedure ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
   sub  fonctionTest(Optional Hors_Budget As variant)
 
   if isnull(Hors_Budget) then
    ....
  else
      if Hors_Budget = -1 then
      ' VRAI
         ....
      elseif Hors_Budget = 0 then
       ' FAUX
       else
        ' PAS POSSIBLE
        end if
 
   end if 
 
end sub

cdlt

Bonsoir ,

Code:

1
2
3
4
5
6
function MyFonction(Optional Hors_Budget As integer = -1)
Select case Hors_Budget
          case -1 'null
          case 0 'false
          case 1 'true
End select

Citation:
Envoyé par dysorthographie
Bonsoir ,
Code:

1 2 3 4 5 6 function MyFonction(Optional Hors_Budget As integer = -1) Select case Hors_Budget case -1 'null case 0 'false case 1 'true End select
merci mais je n'arrive pas au même résultat pour le 3ème cas

MyFonction(true) donne -1 pour Hors_Budget et pas +1

J'ai bien -1 avec MyFonction() et 0 avec MyFonction(false)

Bonsoir,
Ok

Code:

1
2
3
4
5
6
function MyFonction(Optional Hors_Budget As integer = 2)
Select case Hors_Budget
          case -1 'true
          case 0 'false
          case else 'null
End select

Citation:

Envoyé par dysorthographie

Bonsoir,
Ok

Code:

1
2
3
4
5
6
function MyFonction(Optional Hors_Budget As integer = 2)
Select case Hors_Budget
          case -1 'true
          case 0 'false
          case else 'null
End select

Merci, cela marche parfaitement !

Bonjour

Un paramètre optionnel doit en théorie être toujours de type Variant si l'on sait qu'il peut être omis : de ce fait tu utilises la fonction IsMissing.

Voici un exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Function NzStrEx(ByVal Valeur As String, Optional ByVal ValeurSinon As Variant) As String If Len(Nz(Valeur, "")) = 0 Then If Not IsMissing(ValeurSinon) Then NzStrEx = ValeurSinon Else NzStrEx = "" End If Else NzStrEx = Valeur End If End Function
Ici, c'est une copie en string de la fonction Nz qui te retourne la valeur passée (de type String ) si elle est de longueur<> 0 d'une part que ValeurSinon soit renseignée ou non.., dans ce dernier cas, tu aura un ""...

Sinon, si tu veux que ton paramètre optionnel soit Boolean et Faux par défaut tu peux procéder ainsi :
Code:

1 2 3 Public Function CalculerPrix(ByVal PUHT As Double, ByVal Qte As Single, Optional ByVal TauxTVA As Single = 0.2, Optional ValeurEnTTC As Boolean = False) As Double CalculerPrix = (PUHT * Qte) * IIf(ValeurEnTTC, 1 + TauxTVA, 1) End Function
Par défaut ici, tu auras un total HT et si ValeurEnTTC est à True, tu auras un TTC ; ici, on exploite pas le IsMissing car il est pas défaut à False et du coup :

Code:

CalculerPrix(10,10,,True) donne 120,00000476837

Code:

CalculerPrix(10,10) donne 100

en // à cela, le taux de TVA fixé ici à 20% est omis puisqu'il ne change pas sa valeur.

Argy

Citation:

Envoyé par argyronet

Bonjour
.....
Argy

Merci pour ces utiles exemples