Selection d'une liste entiere avec checkBox

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:

---

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

---

Bonjour,

Voila comment faire

Code:

---

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

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

Code:

---

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!!!:oops:

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