Discussion :

[jurgh]

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

[ouskel'n'or]

Code :

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

Unload userformNom

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

[jurgh]

Merci

[Invité]

Bonjour,

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

[jurgh]

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

Code :

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

1
2
3
4
Private Sub USERFORM_Click()
LANGUEM = ListBox1.ListIndex
Unload Me
End Sub

Code :

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

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 :

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

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

Code :

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

1
2
3
4
Private Sub ListBox1_Click()
LANGUEM = ListBox1.ListIndex
Unload Me
End Sub

[mercatog]

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

Code :

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

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 :

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

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