XL 2019 Transposer le texte d'une TextBox à un Label

[Edoliie]

Bonjour,

J'ai un petit soucis. Je n'arrive pas à transmettre l'information de la TextBox aux Label.
Quand je teste le texte s'affiche au deuxième essaie, et ce même je change de mot entre temps.

Voici le code de mon UserForm ("MENUConnexion")

Private Sub CommandButton1_Click()

On Error Resume Next

'Définition des variables
Dim MdP As String

'Configuration des variables
MdP = WorksheetFunction.VLookup(Text_User, Sheets("User").Range("A:C"), 2, 0)

'Si la recherche V de la configuration est correct
If Text_Mdp = MdP Then
    MENUGeneral.Show
    MENUGeneral.LabelUser.Caption = Me.Text_User.Text
    Unload Me

'Si la recherche V ne correcpond pas
Else
    MsgBox "erreur"
    
End If
End Sub

Dans mon UserForm ("MENUGeneral") je n'ai que le label ("LabelUser") pour le moment

 

[Hasco]

Bonjour,

Inversez les lignes :

    MENUGeneral.Show
    MENUGeneral.LabelUser.Caption = Me.Text_User.Text

Pour avoir :

    MENUGeneral.LabelUser.Caption = Me.Text_User.Text
    MENUGeneral.Show

Par défaut les userforms sont en mode 'modal' ce qui implique qu'après la méthode .show aucune ligne n'est exécutée avant la fermeture du userform.
Vous pouvez initialiser votre userform avant de l'afficher. La simple instruction : MENUGeneral.LabelUser.Caption = Me.Text_User.Text chargera le userform en mémoire avant qu'il ne soit affiché.

Cordialement

 

[Edoliie]

Bonjour @Roblochon

Je te remercie cela marche.
J'ai oublié une règle basique.

Cordialement