Déselectionner ListBox avec multiselect

[apdf1]

Bonjour,

je suis a la recherche du code suivant. J'ai une ListBox avec multiselect et j'aimerais désélectionner les items de ma ListBox via un CommandButton.
J'ai mis les codes suivant mais sa ne marche pas

ListBoxTransactions.ListIndex = -1
ou sa !!
ListBoxTransactions.MultiSelect = 0
  ListBoxTransactions.MultiSelect = 1

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

 

[TempusFugit]

Re : Déselectionner ListBox avec multiselect

ReBonjour


Plus ou moins comme dans ton autre fil

Private Sub CommandButton1_Click()
Dim i
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox1.Selected(i) = False
End If
Next
End Sub

Une variante qui s'affranchit du If / End If

Private Sub CommandButton1_Click()
Dim i
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = IIf(ListBox1.Selected(i), False, False)
Next
End Sub

 

[apdf1]

Re : Déselectionner ListBox avec multiselect

Re,

Je te remercie infiniment de ton aide. Nickel!

Bonne fin d'après-midi

@+

Max