Checkbox

apdf1

XLDnaute Impliqué
Bonjour,

Comment cocher une Checkbox en sélectionnant un élément de la listbox.

Merci d'avance

Max
 

Pièces jointes

  • Selectionner.xlsm
    49.4 KB · Affichages: 51
  • Selectionner.xlsm
    49.4 KB · Affichages: 53
  • Selectionner.xlsm
    49.4 KB · Affichages: 55

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Checkbox

Salut Max,

en ajoutant ce code :
Code:
Private Sub ListBox1_Click()
Controls("checkbox" & ListBox1.ListIndex + 2).Value = 1
End Sub
mais je sens que tu ne vas pas tarder à demander à décocher lors d'un second clic :D:D:D

alors voici:
Code:
Private Sub ListBox1_Click()
Controls("checkbox" & ListBox1.ListIndex + 2).Value = IIf(Controls("checkbox" & ListBox1.ListIndex + 2).Value = 0, 1, 0)
End Sub
à+
Philippe
 
Dernière édition:

Discussions similaires

Réponses
5
Affichages
283

Statistiques des forums

Discussions
312 299
Messages
2 086 998
Membres
103 429
dernier inscrit
PhilippeH