Sub AfficherMasquerDistanceMoisPrecedent()
ActiveSheet.Unprotect
With ActiveSheet
.Rows("5:5").Hidden = Not .Rows("5:5").Hidden
End With
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
If R.Address = "$A$4" And R.Count = 1 Then Rows(5).Hidden = Not Rows(5).Hidden: R(1, 2).Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
Rows(5).Hidden = Not Rows(5).Hidden = (R.Address = "$A$4" And R.Count = 1)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
Rows(5).Hidden = (R.Address = "$A$4" And R.Count = 1)
End Sub
Staple, j'ai trouvé dommage de supprimer l'effet de va et vient car j'aime bien basculer dans : «un coup je …, un coup je ne …» (ou vis versa) .Re,
Selon l'usage, cette version pourrait peut-être suffire.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
Rows(5).Hidden = R.Row = 4
End Sub
PS: ton code amendé dans mon message#22, supprime un effort mais garde la bascule.
Private Sub ToggleButton1_Click()
Rows(5).Hidden = ToggleButton1
End Sub
Faut lui donner autre chose que des croquettes, aucune de ces 2 instructions n'est valable :Il s'agit de donner à manger à mon VBE pour éviter qu'il ne s'ennuie en ce samedi aprés-midi.
R.Row.Hidden = R.Row = 4
R.Hidden = R.Row = 4