Comment conserver les valeurs d'un userform dans les modules???
2 réponses
fred
Bonjour,
J'ai un UserForm comprenant des TexteBox qui correspondentà des données
inscrites emails et des password.
Je lance le formulaire par
Sub Formulaire()
Load FrmLogin
FrmLogin.Show
End Sub
Un CommandButton ok lance
Private Sub CmdOK_Click()
Dim Email As String
Dim Pass As String
Email1 = TxtEmail1
Pass1 = TxtPass1
Module1
Email2 = TxtEmail2
Pass2 = TxtPass2
Module2
etc...
End sub
Comment faire pour que les valeurs de Email1, Pass1 soient conservés dans
Module1 et que les valeurs de Email2, Pass2 soient conservés dans Module2
Car lorsque le Module1 (ou le Module2 est lancé)...les valeurs Email1, Pass1
sont bien sûr remises à zéro!
Merci pour votre aide!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Tu enlèves la déclaration de tes variables pour les E-Mail dans les procédures de ton Formulaire et tu reprends la déclaration de tes variables dans le haut d'un module standard en utilisant le mot clé "Public"
Public Email As String Public Pass As String
"fred" a écrit dans le message de news: 4528f9d0$0$319$ Bonjour, J'ai un UserForm comprenant des TexteBox qui correspondentà des données inscrites emails et des password. Je lance le formulaire par Sub Formulaire() Load FrmLogin FrmLogin.Show End Sub Un CommandButton ok lance Private Sub CmdOK_Click() Dim Email As String Dim Pass As String
Email1 = TxtEmail1 Pass1 = TxtPass1 Module1 Email2 = TxtEmail2 Pass2 = TxtPass2 Module2 etc... End sub
Comment faire pour que les valeurs de Email1, Pass1 soient conservés dans Module1 et que les valeurs de Email2, Pass2 soient conservés dans Module2 Car lorsque le Module1 (ou le Module2 est lancé)...les valeurs Email1, Pass1 sont bien sûr remises à zéro! Merci pour votre aide!
Tu enlèves la déclaration de tes variables pour les E-Mail
dans les procédures de ton Formulaire et tu reprends
la déclaration de tes variables dans le haut d'un
module standard en utilisant le mot clé "Public"
Public Email As String
Public Pass As String
"fred" <fredgarlon@free.fr> a écrit dans le message de news: 4528f9d0$0$319$426a74cc@news.free.fr...
Bonjour,
J'ai un UserForm comprenant des TexteBox qui correspondentà des données
inscrites emails et des password.
Je lance le formulaire par
Sub Formulaire()
Load FrmLogin
FrmLogin.Show
End Sub
Un CommandButton ok lance
Private Sub CmdOK_Click()
Dim Email As String
Dim Pass As String
Email1 = TxtEmail1
Pass1 = TxtPass1
Module1
Email2 = TxtEmail2
Pass2 = TxtPass2
Module2
etc...
End sub
Comment faire pour que les valeurs de Email1, Pass1 soient conservés dans
Module1 et que les valeurs de Email2, Pass2 soient conservés dans Module2
Car lorsque le Module1 (ou le Module2 est lancé)...les valeurs Email1, Pass1
sont bien sûr remises à zéro!
Merci pour votre aide!
Tu enlèves la déclaration de tes variables pour les E-Mail dans les procédures de ton Formulaire et tu reprends la déclaration de tes variables dans le haut d'un module standard en utilisant le mot clé "Public"
Public Email As String Public Pass As String
"fred" a écrit dans le message de news: 4528f9d0$0$319$ Bonjour, J'ai un UserForm comprenant des TexteBox qui correspondentà des données inscrites emails et des password. Je lance le formulaire par Sub Formulaire() Load FrmLogin FrmLogin.Show End Sub Un CommandButton ok lance Private Sub CmdOK_Click() Dim Email As String Dim Pass As String
Email1 = TxtEmail1 Pass1 = TxtPass1 Module1 Email2 = TxtEmail2 Pass2 = TxtPass2 Module2 etc... End sub
Comment faire pour que les valeurs de Email1, Pass1 soient conservés dans Module1 et que les valeurs de Email2, Pass2 soient conservés dans Module2 Car lorsque le Module1 (ou le Module2 est lancé)...les valeurs Email1, Pass1 sont bien sûr remises à zéro! Merci pour votre aide!
fred
Ok ça fonctionne ;) Merci bcp michdenis!
"MichDenis" a écrit dans le message de news:
Tu enlèves la déclaration de tes variables pour les E-Mail dans les procédures de ton Formulaire et tu reprends la déclaration de tes variables dans le haut d'un module standard en utilisant le mot clé "Public"
Public Email As String Public Pass As String
"fred" a écrit dans le message de news: 4528f9d0$0$319$ Bonjour, J'ai un UserForm comprenant des TexteBox qui correspondentà des données inscrites emails et des password. Je lance le formulaire par Sub Formulaire() Load FrmLogin FrmLogin.Show End Sub Un CommandButton ok lance Private Sub CmdOK_Click() Dim Email As String Dim Pass As String
Email1 = TxtEmail1 Pass1 = TxtPass1 Module1 Email2 = TxtEmail2 Pass2 = TxtPass2 Module2 etc... End sub
Comment faire pour que les valeurs de Email1, Pass1 soient conservés dans Module1 et que les valeurs de Email2, Pass2 soient conservés dans Module2 Car lorsque le Module1 (ou le Module2 est lancé)...les valeurs Email1, Pass1 sont bien sûr remises à zéro! Merci pour votre aide!
Ok ça fonctionne ;)
Merci bcp michdenis!
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ef25Nzt6GHA.4496@TK2MSFTNGP05.phx.gbl...
Tu enlèves la déclaration de tes variables pour les E-Mail
dans les procédures de ton Formulaire et tu reprends
la déclaration de tes variables dans le haut d'un
module standard en utilisant le mot clé "Public"
Public Email As String
Public Pass As String
"fred" <fredgarlon@free.fr> a écrit dans le message de news:
4528f9d0$0$319$426a74cc@news.free.fr...
Bonjour,
J'ai un UserForm comprenant des TexteBox qui correspondentà des données
inscrites emails et des password.
Je lance le formulaire par
Sub Formulaire()
Load FrmLogin
FrmLogin.Show
End Sub
Un CommandButton ok lance
Private Sub CmdOK_Click()
Dim Email As String
Dim Pass As String
Email1 = TxtEmail1
Pass1 = TxtPass1
Module1
Email2 = TxtEmail2
Pass2 = TxtPass2
Module2
etc...
End sub
Comment faire pour que les valeurs de Email1, Pass1 soient conservés dans
Module1 et que les valeurs de Email2, Pass2 soient conservés dans Module2
Car lorsque le Module1 (ou le Module2 est lancé)...les valeurs Email1,
Pass1
sont bien sûr remises à zéro!
Merci pour votre aide!
Tu enlèves la déclaration de tes variables pour les E-Mail dans les procédures de ton Formulaire et tu reprends la déclaration de tes variables dans le haut d'un module standard en utilisant le mot clé "Public"
Public Email As String Public Pass As String
"fred" a écrit dans le message de news: 4528f9d0$0$319$ Bonjour, J'ai un UserForm comprenant des TexteBox qui correspondentà des données inscrites emails et des password. Je lance le formulaire par Sub Formulaire() Load FrmLogin FrmLogin.Show End Sub Un CommandButton ok lance Private Sub CmdOK_Click() Dim Email As String Dim Pass As String
Email1 = TxtEmail1 Pass1 = TxtPass1 Module1 Email2 = TxtEmail2 Pass2 = TxtPass2 Module2 etc... End sub
Comment faire pour que les valeurs de Email1, Pass1 soient conservés dans Module1 et que les valeurs de Email2, Pass2 soient conservés dans Module2 Car lorsque le Module1 (ou le Module2 est lancé)...les valeurs Email1, Pass1 sont bien sûr remises à zéro! Merci pour votre aide!
