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

Edoliie

XLDnaute Nouveau
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")

VB:
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

XLDnaute Barbatruc
Bonjour,

Inversez les lignes :
VB:
    MENUGeneral.Show
    MENUGeneral.LabelUser.Caption = Me.Text_User.Text
Pour avoir :
Code:
    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
 
Haut Bas