Disparition

[Gruick]

Bonjour à tous, pour tous et à Ramis (pas l'oublier celui là)

ti problème, dans cette macro...

Sub initialisation()
Sens = -1
moov
End Sub

Sub animation()
Sens = 1
moov
End Sub

Sub moov()
MsgBox 'sens = ' & Sens
End Sub

Moov est un sous programme de calculs généraux qui doit se servir de ma variable Sens.
Or, elle disparait du paysage sitôt qu'elle passe la frontière de son programme. (cf exemple supra simplifié au minimum)

Que faire,
Si quelqu'un à une idée...
Merci d'avance à tous

 

[Jacques87]

Bonjour

As tu pensé à déclarer ta variable 'sens' en tant que variable de module, c'est à dire en la déclarant en tête de module, sous la forme
Private sens As ....

Bon courage

 

[Gruick]

Merci JMPS, Jacques87, je vais tester ça (après manger quand même) et je vous tiens au courant...
Super aussi de faire la course pour me répondre.
🙂

 

[Jacques87]

Bonjour José

Sont-ce tes origines qui font que tu dégaines ton clavier aussi vite que l'on parle dans ton pays d'origine.
A ce sujet, quel mal j'ai eu au début à m'habituer pour comprendre, du fait du débit.

Et au fait N(tilda) est-ce une variable sérieuse (lol) ? Je crois qu'elle a fait des vagues cette variable, j'ai suivi de loin .

Amicalement et la prochaine fois j'essaierai de te brûler la priorité

 

[PascalXLD]

Bonjour les amis et amie 😉 pour José

autre possibilite

Sub initialisation()
moov -1
End Sub

Sub animation()
moov 1
End Sub

Sub moov(Sens as integer)
MsgBox 'sens = ' & Sens
End Sub

Bonne journée

 

[Gruick]

Merci à tous mes bienfaiteurs,
Mon repas est fini, mais fallait remplir le frigo, d'où mon retard à l'allumage.
Tout marche à merveille.
La solution du Maître Pascal76 marche-t-elle avec plusieurs variables ? j'essaierai.
Je vais soumettre un autre problème sur l'instruction wait.
Merci encore.

 

[PascalXLD]

Re

Oui l'instruction marche avec plusieurs variables sans problèmes