Discussion :

[Rifl3x]

Bonjour,

Je voulais savoir s'il était possible de créer une fonction avec un nombre de paramètres infini, ou du moins grand? Sans avoir à taper de longue ligne de codes.
Par exemple, comment pourrais-t-on recréer la fonction ET avec 100 paramètres?

Merci beaucoup !

[Marc-L]

Bonjour,

en consultant l'aide de l'instruction Function concernant l'utilisation de ParamArray

et en effectuant au besoin une recherche dans les discussions de ce forum …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[clementmarcotte]

Bonjour

Bonjour,
comment pourrais-t-on recréer la fonction ET avec 100 paramètres?

Merci beaucoup !

Ridicule.

Quelqu'un qui aurait une idée de même a un classeur extrêmement mal conçu ou connaît Excel extrêmement mal.

Voir aussi par là:

http://www.developpez.net/forums/d15...robleme-excel/

Après tout, c'est le même genre de problème.

[el_slapper]

Question surprenante, mais à laquelle on peut quand même imaginer des solutions. Par exemple en passant une collection(soyons fous) en entrée


après, ça demande pas mal de blindage et de programmation défensive, pour s'assurer qu'on ne reçoit que des booléens, par exemple. Parceque si on commence à faire un Et multiple sur un mélange de currency, de string et autres objets pas vraiment précisés, ça va donner des résultats imprévisibles, pour rester poli.

[Invité]

Bonsoir,
Une fonction avec un nombre de paramètres inimitié, est contrairement à ce qu'on peut croire très limité au contraire car il faut les écrire tous, il n'y a rien de dynamiques et j'imagine que tu voudrais un gestion dynamique!


Alors qu'un simple variable tableau ferait affaire et elle pourrait être dynamique.

Code :

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

1
2
3
4
5
6
7
8
9
sub Test()
Dim A as string
A = FunDynamique(Array("a","z","e"))
Function FunDynamique(T) as String
Dim i as long
For i = 0 To Ubound(T)
    If FunDynamique ="" Then FunDynamique = T(I) Else FunDynamique = FunDynamique &  " And " & T(I)
Next
End Funrtion

[eriiic]

Bonjour,

Pas si ridicule comme besoin.
Pourquoi pas une fonction personnalisée à laquelle on veut passer un nombre conséquent de valeurs (comme moyenne() par exemple si elle n'existait pas) ?
Marc à répondu, mais s'ils sont sur une plage autant passer la plage.

eric

[Invité]

Bonjour,
Le lien proposé par Marc sous entend que le programme connait préalablement les paramètres

Code :

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

1
2
3
4
5
 
Myfontion( param1)
Myfontion(param1,param2)
Myfontion(param1,param2,param3)
Myfontion(param1,param2,param3,param4)

[el_slapper]

Bonsoir,
Une fonction avec un nombre de paramètres inimitié, est contrairement à ce qu'on peut croire très limité au contraire car il faut les écrire tous, il n'y a rien de dynamiques et j'imagine que tu voudrais un gestion dynamique!


Alors qu'un simple variable tableau ferait affaire et elle pourrait être dynamique.

Code :

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

1
2
3
4
5
6
7
8
9
sub Test()
Dim A as string
A = FunDynamique(Array("a","z","e"))
Function FunDynamique(T) as String
Dim i as long
For i = 0 To Ubound(T)
    If FunDynamique ="" Then FunDynamique = T(I) Else FunDynamique = FunDynamique &  " And " & T(I)
Next
End Funrtion

Juste un détail : des emmerdeurs peuvent faire des tableaux qui ne commencent pas en zéro. En terme de blindage, je ferais donc un For i = Lbound(T) To Ubound(T)

Mais c'est vraiment pour blinder si le code est repris derrière par un emmerdeur.

[eriiic]

Re,

Le lien proposé par Marc sous entend que le programme connait préalablement les paramètres

Pas vu de lien.
Mais le ParamArray évoqué permet le passage d'un tableau de x paramètres à la fonction, en un seul argument. Ce qui est une façon de répondre à la question je pense.
eric