Discussion :

[excel12321]

Bonjour,

je suis débutante en vba, j'aurais besoin d'un petit coup de pouce..

j'ai crée un Userform contenant une textbox,une listbox et un bouton :

- j'aimerais que la textbox soit associée au bouton , de façon à ce que l'on puisse saisir du texte dans la textbox et qu'une fois que l'on clique sur le bouton, ma saisie se transfert dans la liste box
- j'aimerais également que l'on puisse par la suite double cliquer sur un élément dans la listbox pour le supprimer

pourriez vous m'aider?

Merci d'avance

[Thautheme]

Bonjour Excel, bonjour le forum,

Tu adapteras le code...

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Me.ListBox1.AddItem Me.TextBox1.Value
End Sub

et

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)
Dim I As Integer
For I = Me.ListBox1.ListCount - 1 To 0 Step -1
    If Me.ListBox1.Selected(I) = True Then Me.ListBox1.RemoveItem (I)
Next I
End Sub

[OrDonc]

Bonjour

autres codes

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()  'pour ajouter le texte dans la liste
    If TextBox1 <> "" Then
        ListBox1.AddItem TextBox1
        TextBox1 = "": TextBox1.SetFocus 'pour autre ajout éventuel
    End If
End Sub
 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

[excel12321]

Super cela fonctionne merci a vous deux!