Discussion :

[juju05]

Bonjour,

J'ai créé un formulaire qui à son initialisation alimente une listbox. J'ai positionné un bouton pour que l'utilisateur soit à même de sélectionner toutes les occurrences de la listbox et un autre pour désélectionner tout.

Par contre, je ne sais pas quoi placer comme code pour sélectionner ou désélectionner toutes les occurences de la listbox.

J'ai cherché en vain.

Merci d'avance.

[AlphaScorpi]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub BTN_SelectionnerTous_Click()
 
    Dim i As Integer
    For i = 0 To MaListBox.ListCount - 1
        MaListBox.Selected(i) = True
    Next i
 
End Sub
Private Sub BTN_SelectionnerAucun_click()
    Dim i As Integer
    For i = 0 To MaListBox.ListCount - 1
        MaListBox.Selected(i) = False
    Next i
 
End Sub

[Marc-L]

Bonjour,

pourtant ce n'est vraiment pas compliqué :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ListeSelect(Choix As Boolean)
    With ListBox1
        For N = 1 To .ListCount:  .Selected(N - 1) = Choix:  Next
    End With
End Sub
 
 
Private Sub BoutonAucun_Click()
    ListeSelect False
End Sub
 
 
Private Sub BoutonTous_Click()
    ListeSelect True
End Sub

Edit : grillé entre temps par AlphaScorpi …


_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …