Discussion :

[Floorfiler]

Bonjour,

Je crée un mini module admin avec deux combobox (Login, Password)

Je souhaite simplement que lorsque la valeur de la combobox login est par exemple "admin" , la combobox password se remplisse avec la valeur "admin".

[mercatog]

Code :

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

if combobox1.value="admin" then combobox2.value="admin"

[Floorfiler]

j'ai fait exactement ça mais rien ne ce passe.

Voici mon code

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
Me.Login.List = Array("admin")
If Login.Value = "admin" Then Password.Value = "admin"
End Sub

[Qwazerty]

Salut
Tu as mis ton code a l'Initialize de ta form, donc ton combo Login a sa valeur à "", ton if n'est donc pas vérifié.

tu devrais plutôt mettre ton if dans le change de ton combo Login

Code :

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

1
2
3
Private Sub Login_Change()
If Login.Value = "admin" Then Password.Value = "admin"
End Sub

++
Qwaz

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Me.Login.List = Array("admin", "toto", "tata")
Me.Password.List = Array("admin", "MMM", "SSS")
End Sub
 
Private Sub Login_Change()
If Me.Login.Value = "admin" Then Me.Password.Value = "admin"
End Sub