J'ai la procédure suivante :
Code :
- Private Sub chk_all_equipement_Click()
- Dim i As Long
- If Me.chk_all_equipement = True Then
- For i = 0 To Me.lst_equip.ListCount - 1
- Me.lst_equip.Selected(i) = True
- Next i
- Else
- For i = 0 To Me.lst_equip.ListCount - 1
- Me.lst_equip.Selected(i) = False
- Next i
- End If
- End Sub
|
et donc par défaut je souhaiterais que la case à cocher chk_all_equipement est la valeur true ce qui impliquerai de sélectionner tous les champs de ma zone de liste mais cela se fait quand je click sur chk_all_equipement et non quand je change ça valeur. J'ai essayé de changer l'événement mais je n'arrive pas à avoir le résultat voulu sans cliquer dessus.
Message édité par hacksi le 26-04-2006 à 16:05:49