Parcourir paramêtres sub

Bonjour
Je souhaiterai réaliser une Sub ou une fonction prenant en argument un nom de variable et les initialisant à 0.
ex générique:

Code:

---

1 2 3 4 5 6 7 8

Sub inittozero(var1 As String, Optional var2 As String, Optional var3 As String, Optional var4 As String ........)   for each 'var' as parametre 'var' = 0 next   end sub

---

Code:

---

1 2	inittozero "mavariable1", "mavariable2", "mavariable3"

---

Je voudrais pouvoir parcourir chaque argument afin de l'initialiser à 0

Bonjour.

Ce qui est bizarre c'est que tu veuilles écrire la valeur 0 dans une chaîne de car. Il s'agit du caractère "0"?

Tu peux faire ainsi

Code:

---

1 2 3 4 5 6

Sub inittozero(var1 As String, Optional var2 As String, Optional var3 As String, Optional var4 As String ........)   var1 = "0" if not isnull(var2) then var2 = "0" ... end sub

---

Il n'y a pas de collection d'arguments.

Cordialement,

PGZ

je me suis surement mal exprimé.
Je commence à avoir pas mal de variable dans un programme, et je souhaiterais plutôt que de faire ceci

Code:

---

1 2 3 4 5 6 7 8 9

dim x as integer, y as integer, toto as integer, tata as integer, momo as integer, titi as integer x = 0 y = 0 toto = 0 tata = 0 momo = 0 titi = 0 etc...

---

avoir une fonction du genre

Code:

---

1 2 3 4

sub initToZero(var1 as string, var2 as string etc.....) 'peut être pas de type string ? 'var' = 0 end sub

---

que j'appellerais ainsi :

Code:

---

1 2	initToZero "toto","tata","x","y" 'etc....

---

Re,

Je ne vois pas ce que tu gagerais avec un appel

Code:

---

initToZero "toto","tata","x","y" 'etc....

---

plutôt que

Code:

---

inittozero toto,tata,...

---

ET je ne crois pas qu'il soit possible de passer une variable par son nom car il n'y a pas de collection de variables.

Sauf si tu crées toi-même cette collection.

Mais tu peux faire la même chose en passant les variables ByRef à la procédure.

Code:

---

1 2 3 4 5

sub initToZero(ByRef var1 as integer, optional ByRef var2 as integer, etc.....) var1 = 0 If not isnull(var2) then var2 = 0 ... end sub

---

et appeler

Code:

---

initToZero toto,tata

---

Cordialement,

PGZ

Bonjour,

Citation:

---

Je commence à avoir pas mal de variable dans un programme, et je souhaiterais plutôt que de faire ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

Code :   dim x as integer, y as integer, toto as integer, tata as integer, momo as integer, titi as integer x = 0 y = 0 toto = 0 tata = 0 momo = 0 titi = 0 etc...

---

---

Dans quel contexte ? Tu est dans une (ou des ) procédure sub avec des variables de portée procédure ou module ?

A quel moment tu veux faire ta remise à zéro ?

Citation:

---

avoir une fonction du genre

Code:

---

1 2 3

sub initToZero(var1 as string, var2 as string etc.....) 'peut être pas de type string ? 'var' = 0 end sub

---

---

Attention à ne pas confondre une procédure Sub n'est pas une fonction, de toutes façons, une fonction retourne 1 résultat ;)

cordialement,

Didier