Discussion :

[Alain7751]

Bonjour,
pas facile de résumé le problème dans l'intitulé !
Le plus simple est de montrer :

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub EssaiProcédure_Click()
VersAutreSub
MsgBox " la valeur de 'Retour' est : " & retour, vbInformation
End Sub
 
Public Sub VersAutreSub()
Static retour
retour = 5
End Sub

Hélas ! dans la boite de message, 'retour' à la valeur : " " ! oui .... rien et quelque soit ce que j'ai essayé 'retour' n'est jamais à 5 !!!
Pour moi c'est un grand mystère !.... et pour vous ???? Non j'espère !!
Grand MERCI de m'aider !! je suis totalement bloqué par ce problème !

[tarnx]

Tu peux déclaré ta variable de cette manière :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private retour as Integer
 
Public Sub EssaiProcédure_Click()
VersAutreSub
MsgBox " la valeur de 'Retour' est : " & retour, vbInformation
End Sub
 
Public Sub VersAutreSub()
retour = 5
End Sub