Discussion :

[Daejung]

Bonjour,

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

Code :

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

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

[micniv]

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

Cdlt

[Daejung]

Merci

Cela marche

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

Code :

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

1
2
3
4
5
6
 
Select Case Hors_Budget
   Case "Vrai"
   Case "Faux"
   Case Else
End Select

au lieu de

Code :

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

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

[micniv]

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

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
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

[Invité]

Bonsoir ,

Code :

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

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

[Daejung]

Bonsoir ,

Code :

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

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)

[Invité]

Bonsoir,
Ok

Code :

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

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

[Daejung]

Bonsoir,
Ok

Code :

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

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 !

[argyronet]

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 :

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

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 :

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

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 :

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

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

Code :

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

CalculerPrix(10,10) donne 100

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

Argy

[Daejung]

Bonjour
.....
Argy

Merci pour ces utiles exemples