Garder les variables entre 2 Sub

[herve62]

Bonsoir à tous

Dans une "Sub" et dans une boucle je fais appel à une autre "Sub" avec des "If" qui si Ok incrémentent des compteurs ( h1=h1+1 par ex)
La 1ere fois ok et h1=1 mais ensuite les compteurs se remettent à ZERO !!
donc si la condition est vraie une 2,3eme...etc j'ai toujours h1=1 ??
Je voudrais aussi récuperer à la fin de la 1ere SUB la valeurs de ces compteurs

J'ai déjà eu ce Pb mais ne me rappelle plus !!
Est ce une histoire de "DIM" a placer qq part ?
Merci de votre aide

 

[Cousinhub]

Re : Garder les variables entre 2 Sub

Bonsoir, déclare ta variable en Public dans un module standard

 

[Lord Nelson]

Re : Garder les variables entre 2 Sub

Salut,

Il faut que tu places Dim H1 avant les SUBs pour que H1 conserve sa valeur dans le module.

A+
Horatio

 

[THE CAT 2007]

Re : Garder les variables entre 2 Sub

Bonsoir à tous,

possible aussi de passer la variable en argument

ex :
sub monProgPrincipal()
h=h+1
'appel d'une autre sub
maSubAppelee h 'h est à 1 avant appel sub
stop
'h devrait être à 1 + 2=3
end sub

sub maSubAppelee (h1)
'h1 a la valeur h soit 1 à l'appel sub
h1=h1+2
'h1 redevient h à la sortie de sub
end sub

 

[herve62]

Re : Garder les variables entre 2 Sub

Merci à vous pour la rapidité !!!
Comme je suis dessus , j'ai testé et j'ai pris au + simple ( bhbh)
et ça marche pour le moment .
J'avais déjà l'idée puisque j'avais mis en "general & declaration"
PRIVATE h1,h2 .... as INTEGER
donc j'ai changé en PUBLIC , et cà ne gêne pas le reste de mes macros
Merci encore à tous

(cette fois je garde ...pour mémoire )