Discussion :

[etorria]

Bonjour à Tous,

Dans un USF se trouve une ListBox (liste de noms) et un CheckBox.
Si le CheckBox est activé alors tous les noms se trouvant dans la ListBox sont sélectionnés.
Comment est-ce réalisable, quel est le code ?

Merci d'avance pour votre aide !

Cordialement,

[Antoniom]

Hello,

Essaie ce code... à adapter.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CheckBox1_Click()
 
    If CheckBox1 = True Then
        For i = 0 To ListBox1.ListCount - 1
            ListBox1.Selected(i) = True
        Next i
    Else
        For i = 0 To ListBox1.ListCount - 1
            ListBox1.Selected(i) = False
        Next i
    End If
 
End Sub

Bonne suite !

EDIT : Attention mettre dans la fenêtre des propriétés de la ListBox dans MultiSelect à 1 !

Anto.

[etorria]

Eh ben merci à toi, c'est parfait !

[jfontaine]

Bonjour,

Tu peux aussi donner la valeur de la checkbox aux selections

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CheckBox1_Click()
 
Dim i As Integer
 
For i = 0 To ListBox1.ListCount - 1
    ListBox1.Selected(i) = CheckBox1.Value
Next i
 
End Sub