Private Sub Worksheet_Activate()
Dim R As Range
Application.ScreenUpdating = 0
For Each R In [c3:c33]
Rows(R.Row).Hidden = R <> "x"
Next
End Sub
Private Sub Worksheet_Activate()
Dim p As Range, x&
Application.ScreenUpdating = False
Set p = Columns(2).SpecialCells(xlCellTypeConstants, 1)
x = Application.Match(CLng(Date), p, 0) + 2
Application.EnableEvents = False
Rows("1:" & Rows.Count).Hidden = True: Rows(x).Hidden = False
Application.Goto Cells(x, "B"), True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Deactivate()
Rows("1:" & Rows.Count).Hidden = False
End Sub
Dim p As Range
Private Sub Worksheet_Activate()
Dim x&
Application.ScreenUpdating = False
Application.EnableEvents = False
Set p = Columns(2).SpecialCells(xlCellTypeConstants, 1)
x = Application.Match(CLng(Date), p, 0) + 2
p.EntireRow.Hidden = True
Rows(x).Hidden = False
Application.Goto Cells(x, "B"), True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Deactivate()
p.EntireRow.Hidden = False
End Sub
Re
Speel
Entièrement d'accord.
Mais zeltron24 semble préférer la macro alors![]()
J'ai essayé vos macros et pour finir j'ai opté pour la deuxieme solution de staple je reste borné sur les macros LOL
Bonsoir à tous
Speel
C'est pas moi qu'il faut convaincre![]()