Macro pour Masquer/Afficher ligne si en colonne B = 1

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour adapter cette macro afin de masquer des lignes (11 à 72) si en colonne B il y a 1
le code que je n'arrive pas à adapter :

Option Explicit
Sub Masque()
ActiveSheet.Unprotect
Dim X As Integer
For X = 11 To 72
If Cells(2, X) = 1 Then Rows(X).EntireRow.Hidden = True
Next X
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub Affiche()
ActiveSheet.Unprotect
Dim X As Integer
For X = 11 To 72
Rows(X).EntireRow.Hidden = False
Next X
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Merci pour votre aide,
Bien amicalement,
Christian

 

[Pierrot93]

Re : Macro pour Masquer/Afficher ligne si en colonne B = 1

Bonjour,

essaye ceci, affiche / masque selon valeur de la cellule en B :

Option Explicit
 Sub test()
 ActiveSheet.Unprotect
 Dim x As Long
 For x = 11 To 72
 Rows(x).Hidden = Cells(x, 2) = 1
 Next x
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 End Sub

bonne journée
@+

Edition : bonjour 00🙂🙂

 

[DoubleZero]

Re : Macro pour Masquer/Afficher ligne si en colonne B = 1

Bonjour, Christian0258, Pierrot 😀, le Forum,

Une autre suggestion pour afficher les lignes :

Option Explicit
Sub Ligne_afficher()
    ActiveSheet.Unprotect
    Rows("11:72").Hidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

A bientôt

 

[Christian0258]

Re : Macro pour Masquer/Afficher ligne si en colonne B = 1

Re, le forum, Pierrot93, DoubleZero,

Merci à vous pour votre travail, c'est impec.

Bien à vous,
Christian

 

[Si...]

Re : Macro pour Masquer/Afficher ligne si en colonne B = 1

salut 😀

avec un contôle ActiveX (Case à cocher) pour un effet bascule :

Private Sub CheckBox1_Click()
  Application.ScreenUpdating = 0
  ActiveSheet.Unprotect
  Dim C As Range
  For Each C In [B11:B72]
    Rows(C.Row).Hidden = CheckBox1 And C = 1
  Next
 ActiveSheet.Protect
End Sub