Discussion :

[dodo28]

Bonjour ,
est il possible dans un userform avec une listbox, si je coche un checkbox de selectionnée la liste entiére et si je decoche déselectionné et laisser agir le click de la souris, si oui peut on m aider ou m'orienter? SVP
Merci j ai commencé ca? mais....

Code :

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

1
2
3
4
5
6
7
Private Sub SelectTousDemandeur_Click()
If CKB_SelectTousDemandeur = True Then
LB_DemandeurHG.Selected'selection de la liste
else
LB-DemandeurHG.deselected' déselection de la liste
End If
End Sub

[jfontaine]

Bonjour,

Voila comment faire

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 CheckBox1_Click()
Dim i As Integer
 
If CheckBox1.Value = True Then
 
    For i = 0 To ListBox1.ListCount - 1
 
        Me.ListBox1.Selected(i) = True
 
    Next i
 
Else
 
End If

Bon courage

[laetitia]

bonjour dodo28 le forum essai comme cela a tester!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Private Sub CheckBox1_Click()
Dim i As Integer
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

ps bonjour jfontaine pas rafraichi!!!

[dodo28]

parfait Laetitia ca marche merci beaucoup
désole Jfontaine je n ai pas essayé ta version mais je suis sur quelle marche aussi.
je clic sur résolu