VBA Valeur Combobox

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".

Code:

---

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

---

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

Voici mon code

Code:

---

1 2 3 4

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

---

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:

---

1 2 3

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

---

++
Qwaz

Code:

---

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

---