Question Simple sur les Fonctions

philippe laschweng 1 Messages postés 278 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 13 avril 2013 - 7 juil. 2005 à 09:32
philippe laschweng 1 Messages postés 278 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 13 avril 2013 - 7 juil. 2005 à 11:57
J'ai un petit problème :
Voilà, je veux faire une fonction un peu spéciale et je ne sais pas si cest possible, je m'explique :
Je voudrais que selon la valeur d'un paramètre de la fonction, je puisse utiliser un nombre variable d'autres paramètres.

exemple:
'---------------------------------------------------------------------------------------
Public Function Exemple(Mux as Integer, Paramètre1 As Integer, Paramètre2 as Integer, Paramètre3 As Integer)
...
...
end Function
'---------------------------------------------------------------------------------------

Si Mux=1
Je voudrais utiliser cette fonction en ne spécifiant que le paramètre 1. Si paramètre1 vaut 50:
Module1.Exemple(1,50)

Si Mux=2
Je voudrai utiliser cette fonction en spécifiant Paramètre1 et Paramètre 2. Si Paramètre1=50 et Paramètre2=100:
Module1.Exemple(2,50,100)

Si Mux=3
Module1.Exemple(3,50,100,150)

En gros, le nombre de paramètres dépend d'un paramètre Unique.
Est-ce possible ? ou un passage de paramètre fixe est imposé??

En espéant que vous comprenez mes explications, je vous remercie d'avance !

Philippe

3 réponses

PsyCaDi Messages postés 123 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 30 mars 2009
7 juil. 2005 à 09:44
Il faut que tu utilises le mot Optional

Public Function Exemple(Optional Paramètre1 As Integer 0 ,Optional Paramètre2 As Integer 0 , Optional Paramètre3 As Integer = 0 )
...
...
end Function

Ce qui te permet d'appeller la fonction avec le nombre de paramètres que tu veux
Exemple()
Exemple(5)
Exemple(5,10)
Exemple(5,10,20)
0
philippe laschweng 1 Messages postés 278 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 13 avril 2013 2
7 juil. 2005 à 10:05
Bah je vais essayé et je te tiens au jus ! Merci d'avoir répondu si vite. Je ne connaissais pas Optional

Merci

Phil
0
philippe laschweng 1 Messages postés 278 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 13 avril 2013 2
7 juil. 2005 à 11:57
Ouaip ca marche, c'est ce que je voulais !
Merci beaucup

A+
0