Discussion :

[iperkut]

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 :

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

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 :

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

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

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

[pgz]

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 :

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

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

[iperkut]

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 :

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

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 :

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

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 :

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

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

[pgz]

Re,

Je ne vois pas ce que tu gagerais avec un appel

Code :

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

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

plutôt que

Code :

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

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 :

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

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 :

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

initToZero toto,tata

Cordialement,

PGZ

[Didier Gonard]

Bonjour,

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

Code :

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

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 ?

avoir une fonction du genre

Code :

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

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