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

[jmps]

Bonjour Gruick,

Déclare ta variable publique en début de module (avant les Sub).

Public Sens As Integer

Bonne journée.

[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

[jmps]

Arf ! Désolé Jacques je suis moins rapide que Pascal mais plus que toi ! :evil:

[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é

[jmps]

Re Jacques,

Non, ce ne sont pas mes origines. Si tu voyais ma façon de taper sur le clavier tu verrais que tu as matière à aller plus vite...

Pour le Ñ, j'ai baissé les bras si tu as lu mon dernier post sur le sujet. Je crois que le fichier de Guesh a un problème dû à la langue de création car les réactions d'Excel sont très bizarres selon les manips qu'on fait. Son USF UsfStock est tout à fait normal selon ce que j'ai pu voir. Hormis les accents (français) dans les noms de plages, de feuilles et de variables, je n'ai pas su trouver la solution. Juste que supprimer ce fameux USF règle son problème. Mais c'est pas une solution. Je suis un peu frustré.

A bientôt.

PS : Fais gaffe aux priorités, les routes sont de moins en moins sûres avec tout ces radars... Lol !

[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

[jmps]

Toujours une longueur d'avance ce Pascal !

Je vais demander un contrôle anti-dopage au webmestre. Pas normal ce compteur sous ton pseudo Pascal... Tssss tsssss ! :P

[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