checkbox si vrai j'affiche une listbox ?

[avoriaz]

salut le forum


j'ai un petit souci pour afficher des donnees dans une listbox.En effet selon l'option choisis ( 3 checkbox, j'affiche une partie de feuille en listbox1)


Private Sub CheckBox2_change()

Dim l As Integer
Dim Plage As String

If Combo1 = 0 And CheckBox2 = True Then
l = Sheets('equip7').Range('A65536').End(xlUp).Row
Plage = Sheets('equip7').Range('b61:b70' & l).Address
ListBox1.RowSource = 'equip7!' & Plage

End If

If Combo1 = 1 And CheckBox2 = True Then
l = Sheets('equip7').Range('A65536').End(xlUp).Row
Plage = Sheets('equip7').Range('c61:c70' & l).Address
ListBox1.RowSource = 'equip7!' & Plage

End If


End Sub

une checkbox dois pouvoir ce selectionner a la fois et pas les autres...

si je decoche la checkbox en cours je vide la listbox pour le prochain tour...

if checkbox1 = false then listbox1.clear ?????????
merci pour votre aide

amitié

avo