Check box pour masquer lignes

[YANOU]

Bonjour à tous,
J'ai créer plusieurs CheckBox afin de masquer des Lignes dans un sommaire.
Plusieurs autres collègues utilise ce dossier et ajoute manuellement des lignes dans le sommaire, ce qui décale forcément mes numéro de lignes : La ligne 13:14 devient dès lors 15:16 et le VBA ne suis forcément pas :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets("SOM").Rows("13:14").EntireRow.Hidden = False
Else
Sheets("SOM").Rows("13:14").EntireRow.Hidden = True
End If
End Sub

Merci pour votre aide.

 

[Robert]

Bonjour Yanou, bonjour le forum,

- Sélectionne les lignes 13 à 14.
- Dans la zone de nom écrit, par exemple, maplage.
- le code devient :

Private Sub CheckBox1_Click()
Sheets("SOM").Range("maplage").EntireRow.Hidden = Not Me.CheckBox1.Value
End Sub