VBA

Résolu/Fermé
fannoche35 Messages postés 11 Date d'inscription jeudi 2 novembre 2017 Statut Membre Dernière intervention 12 mars 2018 - Modifié le 22 nov. 2017 à 17:02
fannoche35 Messages postés 11 Date d'inscription jeudi 2 novembre 2017 Statut Membre Dernière intervention 12 mars 2018 - 22 nov. 2017 à 17:13
Bonjour,

je cherche à masquer 2 lignes ne se suivants pas si ma checkbox est décochée
J'ai réussi pour une ligne (ligne 77) mais je n'arrive pas à masquer la suivante (ligne 42):

Sub CheckBox2_Click()
' IRM
If CheckBox2.Value = True Then
    Rows("77:77").EntireRow.Hidden = False
           Else
    Rows("77:77").EntireRow.Hidden = True
    
    End If
End Sub


Merci d'avance
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

1 réponse

cs_Le Pivert Messages postés 7870 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 23 janvier 2023 723
22 nov. 2017 à 17:08
Bonjour,

comme ceci:

Sub CheckBox2_Click()
' IRM
If CheckBox2.Value = True Then
    Rows("77:77").EntireRow.Hidden = False ' affichée
 Rows("42:42").EntireRow.Hidden = False
           Else
   Rows("77:77").EntireRow.Hidden = True 'masquée
 Rows("42:42").EntireRow.Hidden = True
    End If
End Sub

0
fannoche35 Messages postés 11 Date d'inscription jeudi 2 novembre 2017 Statut Membre Dernière intervention 12 mars 2018
22 nov. 2017 à 17:13
merci Le pivert
Quelle rapidité
J'ai trouvé ceci également qui fonctionne :

Sub CheckBox2_Click()
' IRM
If CheckBox2.Value = True Then
Range("42:42,77:77").EntireRow.Hidden = False
Else
Range("42:42,77:77").EntireRow.Hidden = True

End If
End Sub
0