Re,
Je ne vois pas ce que tu gagerais avec un appel
initToZero "toto","tata","x","y" 'etc....
plutôt que 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.
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
Cordialement,
PGZ
Partager