Fermeture de userform

Bonjour
J'aimerais fermer un userform avec un dblclick dans une listbox.
J'ai une listbox dans laquelle je sélectionne un seul élément, ensuite, pour refermer le userform, je clique sur la croix rouge.
Mais j'aimerais éviter cette double opération et pouvoir séléctionner mon objet ET fermer le userform en même temps avec un double clic. Merci d'avance

Code:

---

Unload userformNom

---

;)

NB - Pense à récupérer la sélection avant cette ligne...

Merci:ccool:

Bonjour,

Alors ne pas oublier le bouton "Résolu".

En fait j'arrive à fermer le userform (UF) si je clique sur le UF :D

Code:

---

1 2 3 4

Private Sub USERFORM_Click() LANGUEM = ListBox1.ListIndex Unload Me End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub UserForm_initialize() With ListBox1 .AddItem "Français" .AddItem "Allemand" .AddItem "Italien" .AddItem "Anglais" .AddItem "Espagnol" .AddItem "Portugais"   End With ListBox1.ListIndex = 0 ListBox1.MultiSelect = fmMultiSelectSingle   End Sub

---

Code:

---

1 2 3 4

Private Sub UserForm_Terminate() LANGUEM = ListBox1.ListIndex Unload Me End Sub

---

Mais je n'arrive pas à fermer le UF en cliquant dans listbox :cry:

Code:

---

1 2 3 4

Private Sub ListBox1_Click() LANGUEM = ListBox1.ListIndex Unload Me End Sub

---

J'ai essayé cela, ça m'écrit la valeur récupéré dans ma feuille et me ferme l'userform

Code:

---

1 2 3 4 5

Private Sub ListBox1_Click() LANGUEM = Me.ListBox1.Value Sheets("MHT").Cells(1, 4).Value = LANGUEM Unload Me End Sub

---

Si c'est sur double click

Code:

---

1 2 3 4 5 6

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Cancel = True LANGUEM = Me.ListBox1.Value Sheets("MHT").Cells(1, 4).Value = LANGUEM Unload Me End Sub

---

dans les 2 cas ça fonctionne

MERCI BEAUCOUP.:ccool: