problème macro double click

bonjour a tous,

j'ai une macro qui permet de supprimer une valeur d'une liste lors d'un double click, seulement lors que l'on veut supprimer la dernière valeur de la liste, toutes les valeurs sont supprimé

quelqu'un aurait une idée de solution?merci d'avance :)

voici mon code :

Code:

---

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

Private Sub ListeDossiers_DblClick(ByVal Cancel As MSForms.ReturnBoolean)   ' Supprime la valeur par un double clique   Dim i As Integer   For i = Me.ListeDossiers.ListCount - 1 To 0 Step -1   If Me.ListeDossiers.Selected(i) = True Then Me.ListeDossiers.RemoveItem (i)   Next i End Sub

---

re
bonjour

Code:

---

1 2 3 4

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) With ListBox1: .RemoveItem (.ListIndex): End With End Sub

---