Fonction à nombre de paramètres

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 ! :)

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

Bonjour

Citation:

---

Envoyé par Rifl3x

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

Merci beaucoup ! :)

---

Ridicule. :aie:

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.

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.

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:

---

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

---

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

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

Code:

---

1 2 3 4 5

Myfontion( param1) Myfontion(param1,param2) Myfontion(param1,param2,param3) Myfontion(param1,param2,param3,param4)

---

Citation:

---

Envoyé par rdurupt

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:

---

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.

Re,

Citation:

---

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

ParamArray se comporte comme un tableau à plusieurs dimension! Il faut balayer tous les niveaux.

Voici un autre exemple que j'ai proposé il y a déjà quelques temps!
http://www.developpez.net/forums/d13...m/#post7484874