Discussion :

[peofofo]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Godzestla]

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.Michel]

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 ?

[peofofo]

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?

[Godzestla]

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.

[peofofo]

J'ai essayé ceci qui ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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