Discussion :

[Superpat9999]

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 :

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

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

[riaolle]

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 :

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

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 :

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

Static maVariable As '...

[Superpat9999]

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 :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
    A_Propos.Show
End Sub

[riaolle]

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 :

Avec en plus une initilatisation dans le Workbook :

Code :

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

1
2
3
Sub Workbook_open()
     maVar2 = 1
End Sub

Et je n'ai aucun problème.

[Invité]

Bonjour,

Code userForm :

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

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 Module Standard :

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

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

[antonysansh]

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

Ensuite :

Code :

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

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

[Superpat9999]

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

[riaolle]

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

[Theze]

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 :

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

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 :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton2_Click()
 
    UserForm1.Version = "2.01" 'ici, avec le point
    UserForm1.Show
 
End Sub

[Invité]

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

[Superpat9999]

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

Encore merci, tout est réglé

[Invité]

Vraisemblablement c'est la réponse,,,