Comment tester la présence ou non d'un argument optionnel

Résolu
Signaler
Messages postés
30
Date d'inscription
mercredi 21 janvier 2004
Statut
Membre
Dernière intervention
1 février 2007
-
Messages postés
101
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
11 janvier 2009
-
Bonjour à tous

Quelqu'un pourait-il m'aider sur :

Comment tester la présence ou non d'un argument optionnel

Merci d'avance à celui qui répondra

Cordialement,

Saxobic

8 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Salut,

ex :
function test(optional arg1 as string "", optional arg2 as integer 0)
if arg1 ="" then 'pas d'arg1
if arg2 = 0 then 'pas d'arg2
end function

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
30
Date d'inscription
mercredi 21 janvier 2004
Statut
Membre
Dernière intervention
1 février 2007

Merci beaucoup Canislupus
A+
Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
1
Public Function Somme(a As Integer, b As Integer, Optional c As Integer) As Integer
Somme = a + b
If Not IsMissing(c) Then
Somme = Somme + c
End If
End Function

Hassen TUNISIE
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Non, hassen, extrait de la MSDN :

Note La fonction IsMissing ne fonctionne pas sur les types de données simples (tels que les types Integer ou Double) car, contrairement au type Variant, ces types ne fournissent pas d'indicateur de bit "manquant".

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
1
Oui CanisLupus en fait j'ai pas beaucoup utilisé la fonction IsMissing je m'ensouvient pas si j'ai utilisé des argument du type simple. Mais ce que je sais c que la fonction IsMissing existe. En fait j'utilise souvent la methode que t'a proposé a savoir la definition de valeur par defaut avec les arguments.
Merci pour l'information

Hassen TUNISIE
Messages postés
101
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
11 janvier 2009

Et comment doit on s'y prendre lorsque l'argument est de type form, j'ai testé ça: Optional formvid As Form = Form1
mais lors de la compilation, j'ai comme erreur: contante requise avec form1 de surligné, Comment je dois faire?
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Pour un objet, c'est différent d'une variable simple de type integer, string, double, .... on ne peut pas lui octroyer une valeur par défaut de la même manière.

La méthode a employer dans ce cas est :

Function test(Optional formvid As Form)

If formvid Is Nothing Then
Set formvid = Form1 ' si form1 existe bien sùr
End If

'ton code, par exemple :
formvid.Show

End Function
Messages postés
101
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
11 janvier 2009

Nikel, ça marche, merci à toi CanisLupus