Private Sub ListBox1_Click()
Controls("checkbox" & ListBox1.ListIndex + 2).Value = 1
End Sub
Private Sub ListBox1_Click()
Controls("checkbox" & ListBox1.ListIndex + 2).Value = IIf(Controls("checkbox" & ListBox1.ListIndex + 2).Value = 0, 1, 0)
End Sub
Bienvenue en Belgique:Jesper qu'il fait beau en Belgique car je doit mis rendre dans la semaine.