Passer une variable dans un module et la récupérer dans un Userform

Bonjour,
Je souhaite passer une variable dans un module pour donner la version de mes modifs (déclaration) et lors de l'affichage de mon userform pouvoir récupérer cette variable.
Code auparavant, lorsque je mettais la version dans une cellule (ce qui n'est guère pratique) :

Code:

---

1 2 3 4 5

Private Sub CommandButton2_Click() version = Sheets("Données").Range("ZZ99999") MsgBox "Version de l'application " & version & ".", vbOKOnly + vbInformation, "VERSION" End Sub

---

Bonne journée

Bonjour,

Si je comprends bien, tu veux que ta variable ait une portée au-delà du sub et de ton module?
Alors il faut la déclarer comme Global. Au début de n'importe lequel de tes modules, tu écris :

Code:

---

Global maVariable As '...

---

Ensuite, tu peux utiliser cette variable dans tout ton code dans ce classeur et la variable garde sa valeur pendant toute la durée de l'application.

Par contre, si tu as besoin de revenir dessus après la durée de l'application, il faut utiliser Static : même principe, en début de module tu écrit

Code:

---

Static maVariable As '...

---

Merci rialle de me répondre,
Je déclare ma variable dans mon module principal, mais le problème, c'est que c'est c'est un bouton CommandButton1 qui appelle le Userform (A_Propos) et la commande du bouton (Feuil1) ne passe pas par mes modules mais est dans la feuil1 :

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() A_Propos.Show End Sub

---

Pièce jointe 257314

Je ne pense pas que ce soit un problème.
Tu déclares dans ton module "Module 1", ta variable Global. Tu peux éventuellement l'initialiser à l'ouverture du classeur, puis tu l'utilises quand tu veux.
J'ai testé ceci :
Pièce jointe 257319
Avec en plus une initilatisation dans le Workbook :

Code:

---

1 2 3

Sub Workbook_open() maVar2 = 1 End Sub

---

Et je n'ai aucun problème.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10

Private LaVersion As String Public Property Let VERSION(Value As String) LaVersion = Value End Property Public Property Get VERSION() As String VERSION = strVERSION End Property Private Sub CommandButton2_Click() MsgBox LaVersion , vbOKOnly + vbInformation, "VERSION" End Sub

---

Code:

---

1 2 3 4 5

Sub test() Dim usf As New UserForm1 usf.VERSION = "Version de l'application " & VERSION & "." usf.Show End Sub

---

Pourquoi ne pas utiliser la propriété Tag de l'UF.

Ensuite :

Code:

---

1 2 3

Private Sub CommandButton2_Click() MsgBox "Version de l'application " & A_Propos.Tag & ".", vbOKOnly + vbInformation, "VERSION" End Sub

---

Merci à tous les 3 pour toutes vos réponses, j'ai tout essayé et tout fonctionne.
Je ne suis pas trop ferré sur VBA Excel, mais jusqu'à présent, je ne travaillais que dans le Module1, c'est pour cela que je ne voulais modifier que ce module.

riaolle, pour changer les différentes versions, je suis obligé de modifier ThisWorkbook, qui initialise la variable. Cela fonctionne bien mais je préfère l'option de antonysansh plus simple (mais modification dans l'Userform).
Quant à la réponse de dysorthographie, il me semble que la version à modifier est dans le Userform, donc peu avantageuse par rapport à l'option de antonysansh.

Merci à vous et bon week-end :merci:

Si ton problème est résolu, n'oublie pas de cliquer sur le bouton :resolu: :)
Bon week-end !

Bonjour,

Une autre piste, en déclarant Public une variable dans le module de la Form, on y a accès comme pour une propriété ou méthode, avec le point :

Code:

---

1 2 3 4 5 6 7 8

Public Version As String 'en tête de module de la Form   Private Sub UserForm_Activate()   MsgBox "Version de l'application " & Version & ".", vbOKOnly + vbInformation, "VERSION"   End Sub

---

pour le bouton :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton2_Click()   UserForm1.Version = "2.01" 'ici, avec le point UserForm1.Show   End Sub

---

Bien, après avoir tâtonné :(
J'ai choisi la version de dysorthographie
Dans le module1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Sub Test() ' Après appui sur bouton Test1, on est dans le module1, on va dans le code du ' Userform pour initialiser Dim usf As New UserForm1 Dim VERSION As String VERSION = "5.0" usf.VERSION = "Version de l'application " & VERSION & "." 'Après être passé dans le Userform, on repasse ici et le Userform s'ouvre usf.Show End Sub

---

Code dans le bouton Test sur le Userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private LaVersion As String 'On est dans le Userform 'Après le module 1 Public Property Let VERSION(Value As String) LaVersion = Value End Property Private Sub Test_Click() ' Click sur test MsgBox LaVersion, vbOKOnly + vbInformation, "VERSION" End Sub

---

J'ai supprimé la partie qui ne me semblait pas utile

Code:

---

1 2 3 4

'Public Property Get version() As String ' version = Str(version) 'End Property

---

Merci à vous tous :merci::merci::merci:

Je reviens vers vous, ce code fonctionnait dans une feuille vierge que j'avais créée pour un essai et maintenant que je veux mettre le code dans l'application, j'ai un message d'erreur :

Pièce jointe 258026

pour la ligne

Code:

---

1 2	Dim usf As New Userform1

---

Bonjour,
question bête et réponse peut être tout autant! comment s'appel ton UserForm?

Pièce jointe 258105

Citation:

---

Envoyé par dysorthographie

Bonjour,
question bête et réponse peut être tout autant! comment s'appel ton UserForm?

---

Effectivement après verification, j'ai changé le nom et tout refonctionne :scarymov:

Encore merci, tout est réglé :yaisse2:

:merci:

Vraisemblablement c'est la réponse,,,