probleme de selection

[cirenolbur]

Bonjour a tous,

Voila, je souhaiterai masquer les lignes 10 a 20 de mon tableau via une checkbox, ce que j'ai tres bien reussi a faire mais je ne veux masquer que les lignes dont la colonne B est égale 1 toujours en gardant comme selection ligne 10 a 20.
Merci pour votre aide
tableau ci jointCe lien n'existe plus

 

[Pierrot93]

Re : probleme de selection

Bonsoir Cilnolbur

essaye peut être le code ci dessous :

Sub test()
Dim cel As Range
Application.ScreenUpdating = False
For Each cel In Range("B10:B20")
    If CheckBox1 = True Then
    If cel.Value = 1 Then cel.EntireRow.Hidden = True
    Else
    cel.EntireRow.Hidden = False
    End If
Next cel
Application.ScreenUpdating = True
End Sub

bonne soirée
@+

 

[pierrejean]

Re : probleme de selection

bonjour cirenolbur (ou rublon eric ?)

vois si cela te convient

edit

Salut Pierrot

avais pas rafraichi !!

 

[cirenolbur]

Re : probleme de selection

Merci, ca marche tout bon !!
Bonne soiré

 

[cirenolbur]

Re : probleme de selection

Merci Pierrejean, ca me convient encore mieux,
Merci a vous deux
A+