Discussion :

[abdelkarim_1987]

Bonjour,
je veux récupérer l'identifiant dans le formulaire de connexion dans un textBox de mon formulaire de saisi Mais je n'arrive toujours pas a récupérer la variable .

Formulaire de connexion j' ai cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
ption Explicit
Public NNI As String
Private Sub UserForm_Initialize()
    With Me
    .motdepasse.PasswordChar = "*"
    End With
End Sub
 
Private Sub UserForm_Activate()
Me.identifiant.SetFocus
End Sub
 
Private Sub Cmd_Ok_Btn_Click()
With Sheets("Connexion")
 
       Connexion.identifiant.Value = NNI
        Unload Me
        Formulaire.Show
 
End With
End Sub

et dans mon formulaire j'ai

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
 
 
 Connexion.NNI = Formulaire.TextBoxNNI.Value
End sub

[nibledispo]

bonjour,

j'observe que dans le with de la procédure 'Private Sub Cmd_Ok_Btn_Click()' tu répète connexion dans l'instruction qui suit.
son remplacement par un "." ne résoudra peut être pas ton problème mais ne fera assurément pas de mal.

par ailleurs, ton premier with est superflue dès lors qu'il n'y a qu'une instruction à gérer. Me.motdepasse.PasswordChar = "*" devrait suffire.

cordialement.

[Daniel.C]

Bonjour,

Sans éplucher ton code, tu peux utiliser une variable publique déclarée dans un module standard. [edit] ta syntaxe est correcte si le module s'appelle bien "Connexion".

[abdelkarim_1987]

Merci mais je susi débutant c'est quoi un module standard

[Philippe Tulliez]

Bonjour,
Je te conseille la lecture de cet excellent tutoriel de Jean-Marc Rabilloud, Formation Excel VBA pour débutant où tu trouveras la réponse à ta question à la page 10 Notions de module

Bonjour,
Pour récupérer la valeur d'un contrôle d'un Userform, tu peux également lire sa propriété depuis la procédure qui l'a appelé.
Par exemple

Code :

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

1
2
3
4
Sub Main()
 UserForm1.Show
 MsgBox UserForm1.TextBox1.Text
End Sub

[abdelkarim_1987]

Je vous remercie c'est résolue