Stocker valeur dans variable pour plusieurs Userform

[Consultat]

Bonjour à tous,

voila je bloque sur un problème: Je possède une Userform avec une barre de défilement (scrollbar1). J'aimerais pouvoir, même après avoir fermé cet Userform, pouvoir réutiliser sa valeur dans une autre Userform sans pour autant devoir stocker cette valeur dans une cellule. Un exemple est surement plus parlant..

Userform1

Private Sub ScrollBar1_Change()
Dim mavaleur As Integer

mavaleur = ScrollBar1.Value

End Sub

Je voudrais pouvoir réutiliser mavaleur dans une autre Userform. J'espère que j'ai été compréhensible.


Bonne journée,
merci d'avance.

 

[Pierrot93]

Re : Stocker valeur dans variable pour plusieurs Userform

Bonjour,

déclare ta variable en "public" et ce sur la première ligne d'un module standard :

Public mavaleur As Integer

bonne journée
@+

 

[Consultat]

Re : Stocker valeur dans variable pour plusieurs Userform

Très bien, je m'en vais essayer. Ais je toujours besoins de déclarer ceci sur mes Userform ? Dim mavaleur As Integer

 

[Pierrot93]

Re : Stocker valeur dans variable pour plusieurs Userform

Re,

Ais je toujours besoins de déclarer ceci sur mes Userform ?

non, une seule déclaration dans le module standard...

 

[JNP]

Re : Stocker valeur dans variable pour plusieurs Userform

Bonjour Consultat 🙂,
Dans un module, tu déclares une variable Public en début de module et tu la renseignes avant de quitter l'USF, elle sera disponible tant qu'il n'y aura pas plantage ou fermeture du fichier 😛...
Par contre, il faut faire attention d'être toujours sûr de ce qu'elle contient 🙄...
Bonne suite 😎
Ajout : Trop rapide pour moi, Pierrot 😉...

 

[Consultat]

Re : Stocker valeur dans variable pour plusieurs Userform

Merci à vous deux, cela fonctionne parfaitement !

Bonne journée à vous.