Discussion :

[PLH81]

Bonsoir à vous,

J'ai deux classeurs xlsm, l'un nommé "appelant", l'autre "appelé".
pour le VBAprojet appelant, outils->référence -> VBAprojet appelé est coché

Dans "appelant" j'ai ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public p As Integer
Public h As Integer
 
Static Sub Init()
 p = 25
 h = 30
End Sub
 
Sub Test_Appel()  
    Call Init
    Call Appel_Exterieur
End Sub

dans le classeur "appelé" ce trouve ceci :

Code :

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

1
2
3
 Sub Appel_Exterieur()
    MsgBox (p & " - " & h)    
End Sub

Excel retourne une boite de dialogue contenant uniquement " - ".
Si je déclare les variables p et h dans thisworkbook de appelant, résultat identique.

Quelqu'un peut-il me dire pourquoi et comment faire pour avoir le bon résultat.
En vous remerciant.
PLH81

[Invité]

Salut,

Il faut que les 2 classeurs se référence mutuellement.
Là, seul le 1er référence le 2ème apparemment ?

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public p As Integer
Public h As Integer
 
Static Sub Init()
 p = 25
 h = 30
End Sub
 
Sub Test_Appel()  
    Call Init
    Call Appel_Exterieur(p,h)
End Sub

dans le classeur "appelé" ce trouve ceci :

Code :

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

1
2
3
 Sub Appel_Exterieur(p,h)
    MsgBox (p & " - " & h)    
End Sub

[Invité]

Je pensais que c'était pour tester la communication entre projet qu'il avait fait un tel code.
Dans ce cas, les variables public n'ont plus d'intérêt.

[Invité]

Bonjour,
Exactement!

Bien sur les variables public sont utiles mais dans la mesure du possible je préfère métriser et fournir le contexte à la méthode!

[PLH81]

Bonjour à vous,
Merci pour ces réponses rapides.
J'ai testé le référencement mutuel mais excel interdit celui-ci ( référencement circulaire)
Dans le projet réel, il n'y a pas deux variables à passer, mais beaucoup plus. Je voulais justement éviter de les passer en paramètres comme indiqué par Rdurupt, d'où le public.
Sur cette méthode, le fait de les passer en paramètre ainsi ne crée t-il pas deux "couples" variables p et h, public p, privé p de la méthode, public h, privé h de la méthode, risque de confusion et de bug pour excel ? Résultat, si public p change de valeur, privée p ne pointant pas vers la même adresse mémoire, ne change pas. Me trompe-je ?

S'il y a une autre méthode, je suis preneur (je ne dénigre pas pour autant la solution de Rdurupt, en l'adaptant avec un tableau de variables en paramètres ou avec une variable type crée).

bonne journée

PLH81

[Invité]

Tu pointe l’index sur les limites des variables publics ! D’une manière comme une autre, je les proscrits de mes code !

Il est préférable de métriser la chaîne de commandement ! Je ne vois pas de solution sérieuse sans une refonte de ton code !

Le chemin de l’enferre est parsemé de bonnes intentions !

c'est encore en modifiant ton appel de fonction comme je te l'ai expliqué que tu aura le moins de modification car le reste du code ne change pas !