Variable globale dans Userform

Je recherche sur ce sujet dans le forum et trouvé quelques réponses, mais n'a pas de travail pour moi.

J'ai deux UserForms.

Dans la première, je donne une valeur à une variable appelée Mot.

Dans la seconde, j'ai une Étiquette que j'ai besoin de la légende pour devenir la variable Mot.

Exemple:

Public Word as String

Private Sub Userform1_Activate
   Word = "Today Is Saturday"
End Sub

Private Sub Userform2_Activate
   Label1.Caption = Word
End Sub

Mais cela ne fonctionne pas. La légende de l'Étiquette devient Zéro pour la valeur.
Quelqu'un pourrait-il m'aider sur ce point?

Grâce.

First Form

Private Sub CommandButton5_Click()

Db = "C:\Users\Desktop\db.txt"

Set File1 = CreateObject("Scripting.FileSystemObject")
Set File2 = File1.OpenTextFile(Db, 1)

Do Until File2.AtEndOfStream

If (File2.Readline = TextBox1) Then Exit Do
If File2.AtEndOfStream Then WordNotFound.Show
If File2.AtEndOfStream Then TextBox1.Value = ""
If File2.AtEndOfStream Then Exit Sub

Loop

Word = File2.Readline

MsgBox Word

TextBox1.Value = ""

End Sub

Deuxième Forme

Private Sub UserForm_Click()

Label1.Caption = Word

End Sub
  • Cela devrait fonctionner. Pouvez-vous montrer la séquence de montrer à l'utilisateur les formes?
  • J'ai ajouté à mon premier post, prendre un coup d'oeil.
  • Voir mon exemple de code. Espérons que cette aide.
InformationsquelleAutor AndroidDev | 2013-12-27
  1. 5

    Comme je l'ai dit dans mon commentaire, que votre méthode de travail. Voici le code de test que j'ai essayé

    1 - Dans Module1

    Public Word As String

    2 - Créer 2 formulaires utilisateur - UserForm1 et UserForm2

    2a - Dans UserForm1

    Private Sub UserForm_Activate()
    Word = "This is Saturday"
End Sub

    2b - Dans UserForm2

    Private Sub UserForm_Activate()
    Label1.Caption = Word
End Sub

    3 - Puis dans ThisWorkbook

    Private Sub Workbook_Open()
    UserForm1.Show
    UserForm2.Show
End Sub

    Ainsi, lorsque vous fermez UserForm1, l'UserForm2 sera affiché comme ci-dessous

    Variable globale dans Userform

    • Pankaj Jaju, votre code fonctionne bien. Mais j'ai l'intention d'utiliser uniquement Useforms. Ne puis-je pas le faire en utilisant simplement les deux useforms? Parce que j'aimerais créer un fichier exe plus tard. Et si c'est à l'aide de "ThiwWorkbook" et d'un Module, je ne suis pas sûr que ça va être possible
    • Je ne vous montre mon code de test. Vous pouvez mettre en œuvre la .Show n'importe où vous voulez. Pour l'e.g, vous pouvez utiliser UserForm2.Show à la fin de UserForm1 code. Juste s'assurer que le Word est définie avant d'appeler UserForm2
    • Oh, merci, j'ai compris! Mais qu'en est-il du Public Word en tant que Chaîne de déclaration ? Est-il besoin d'aller dans un module séparé?
    • Pas nécessairement. Vous pouvez l'avoir au début de l'objet UserForm code.
    • Merci encore, l'homme
    • Heureux de vous aider 🙂

    InformationsquelleAutor Pankaj Jaju