Passage de variables: Module vers Userform?

[jeromegmc]

Bonjour à tous,

Je suis face à un pb, je m'apercois que la passage de variable ne se fait pas d'un module à un userform avec le code ci-dessous:

J'ai un 'sub Test' dans le module1 qui est le suivant:

Sub Test()

Dim MaVar1

MaVar1 = 5
MsgBox MaVar1

End Sub

Et le sub d'un bouton qui se trouve dans le userform1 qui est le suivant:

Private Sub CommandButton1_Click()

Dim MaVar2, MaVar1
Call Test
MaVar2 = MaVar1 + 8
MsgBox MaVar2

End Sub

Or, je souhaiterais que, lors du 'call Test', la variable 'MaVar1' soit communiquée à mon userform et qu'elle possède bien la valeur 5, cependant ce n'est pas la cas, Ma Var1 reste vide.

Aurait-il une solution pour communiquer la valeur de MaVar1 au userform1?


Merci d'avance.

A+

 

[PascalXLD]

Bonjour

Il faut déclarer ta variable dans ton module mais en Public et avant le code

Public MaVar1 as Byte

Sub Test()

MaVar1 = 5

MsgBox MaVar1

End Sub

 

[jeromegmc]

Salut Pascal,

Merci pour l'astuce, ça marche!

A+