Un seule bouton pour cocher et décocher cases listbox

Bonjour,

J'aimerais avoir un bout de code qui va me permettre de cocher et décocher les données qui se trouvent dans une listbox.

Actuellement j'utilise deux bouton pour tous sélectionner et rien.

Private Sub CBCocherContacts_Click()
For I = 0 To LBListeContacts.ListCount - 1: LBListeContacts.Selected(I) = 1:  Next
End Sub

et

Private Sub CBDécocherContacts_Click()
LBListeContacts.MultiSelect = 0: LBListeContacts.MultiSelect = 1
End Sub

J'aimerais les réunir en un bouton.

Merci d'avance

Bonjour

Plein de solution existe

Une variable qui "contient" l'état de la listbox

Le changement du nom du bouton

A voir aussi

Private Sub CBCocherContacts_Click()
  If Me.LBListeContacts.Selected(0) = True Then
    LBListeContacts.MultiSelect = 0
    LBListeContacts.MultiSelect = 1
  Else
    For I = 0 To LBListeContacts.ListCount - 1
      LBListeContacts.Selected(I) = 1
    Next
  End If
End Sub

Bonjour Banzai64

Merci pour ce code qui fonctionne bien

Oui je m'en douté bien qu'il y avait pleins de solution possibles

A+

re,

Une question par curiosité

Et si je veux appliquer ce code pour deux listbox je répète le code en insérant and entre chaque listbox?

Bonsoir

Si les 2 Listbox fonctionnent ensemble , en testant une seule tu connaitras l'état des deux

A toi d'agir en conséquence