récupérer la valeur d'une variable d'un module

Bonjour à tous,

J'ai des problèmes de transfert de variable d'un module a l'autre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'Dans mon sub je met Public correcte_variable as Long sub monsubtest() call fonction1 ' il va chercher la fonction1 dans le module1 if correcte_variable = 5 then 'ne s'execute pas 'n'execute pas le code a l'intérieur end if end sub   'Dans mon module1 sub fonction1() 'je fais un appel fonction en mettant directement fonction2 ' il va chercher la fonction2 dans le module2 end sub   'Dans mon module2 sub fonction2() 'j'ai ma variable correcte_variable = 5 'variable a récupérer dans le premier sub end sub

---

Ce code ne me met pas d'erreur, et je ne récupère jamais la variable pourtant je la définit en public ?

Salut,

il faut voir ou est placée ta déclaration public.

Elle doit être tout au début du module. (juste sous Option Explicit)

je te propose de mettre tout dans le même module
PUBLIC
MONTEST
FONCTION1
FONCTION2

et ca devrait le faire sans problème. ;)

J'ai testé ton code avec deux modules et ca fonctionne bien.
Comme dit Godzestla il faut que tes déclarations soient en tête de module.

As tu utiliser le mode pas à pas pour voir où est le pb ?

Merci encore Godzestla de vouloir m'aider ;)

J'ai fais exprès de tous séparer pour rechercher facilement.

J'ai testé de mettre directement correcte_variable = 5 dans le module1
Le problème est identique.
Faut il que je mette également la variable public dans le module1 juste sous Option Explicit?

Je ne sais pas car tu ne dis pas ou tu as placé ta déclaration PUBLIC.

Peux tu essayer :

1) De déplacer cett déclaration comme je le propose (Début module 1 par exemple)

2) vérifier que correcte_variable n'est pas déclaré ailleurs (faire un find sur l'ensemble du projet) et si c'est le cas SUPPRIMER imprérativement toute autre déclaration que celle recommandée.

Si ca ne marche pas, montre tout ton code, please. ;)

J'ai essayé ceci qui ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11

public mavariable As Long sub monsubtest() call essai if mavariable = 5 then correcte_envoi = MsgBox("ça marche", 0 + 64, "Information") end if   'Dans le module5 sub essai() mavariable = 5 end sub

---

Citation:

---

Je ne sais pas car tu ne dis pas ou tu as placé ta déclaration PUBLIC.

Peux tu essayer :

1) De déplacer cett déclaration comme je le propose (Début module 1 par exemple)

2) vérifier que correcte_variable n'est pas déclaré ailleurs (faire un find sur l'ensemble du projet) et si c'est le cas SUPPRIMER imprérativement toute autre déclaration que celle recommandée.

Si ca ne marche pas, montre tout ton code, please.

---

Merci de lire et de faire cela svp :evilred:

Encore une fois un grand merci Godzestla ;)
Grace a toi, j'ai réussi a transférer la variable.
Il fallait la déclarer dans le module et non dans le sub

Avec plaisir.

Si je peux demander une faveur, lis mieux les réponses et on gagnera en efficacité. :roll:

Bonne journée.