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