Liste Multi-selection

Bonjour,

Quelque chose comme :
Private Sub Commande1_Click()
Dim c As Control, varItem
For Each c In Me.Controls
If TypeOf c Is ListBox Then ' ou If c.ControlType = acListBox Then
For varItem = 0 To c.ListCount
c.Selected(varItem) = False
Next varItem
End If
Next c
End Sub

Bonjour,
J'ai plusieurs liste multi-sélection, je voudrais, en appûyant, sur un
bouton. Que tous les éléments sélectionner dans mes listes, ce
«désélectionne».

Merci beaucoup et bonne journée !
Lucie

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

.../...
Petite correction:
For varItem = 0 To c.ListCount -1

Bonjour,

Quelque chose comme :
Private Sub Commande1_Click()
Dim c As Control, varItem
For Each c In Me.Controls
If TypeOf c Is ListBox Then ' ou If c.ControlType = acListBox Then
For varItem = 0 To c.ListCount
c.Selected(varItem) = False
Next varItem
End If
Next c
End Sub

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Merci beaucoup Eric. Cela m'A beaucoup aider !

"Eric" wrote:

..../...
Petite correction:
For varItem = 0 To c.ListCount -1

Bonjour,

Quelque chose comme :
Private Sub Commande1_Click()
Dim c As Control, varItem
For Each c In Me.Controls
If TypeOf c Is ListBox Then ' ou If c.ControlType = acListBox Then
For varItem = 0 To c.ListCount
c.Selected(varItem) = False
Next varItem
End If
Next c
End Sub

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr