Discussion :

[excel12321]

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 :

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

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

[patricktoulon]

re
bonjour

Code :

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

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