Masquer dates

[zeltron24]

Bonjour le Forum,

Je souhaiterai votre aide afin d'afficher que la rangée contenant la date du jour et masquer les autres rangées. Merci d'avance pour votre aide.

 

[FROLLINDE]

Re : Masquer dates

Bonjour Zeltron,

Petite Macro...

Sub hideline()
'

'
I = 3
While I < 35
Rows(I).EntireRow.Select
Selection.EntireRow.Hidden = False
' si masquer date du jour remplacer Range("E1").Value par date()
If Range("B" & I).Value = Range("E1").Value Then
Rows(I).EntireRow.Select
Selection.EntireRow.Hidden = False
Else
Rows(I).EntireRow.Select
Selection.EntireRow.Hidden = True
End If
I = I + 1
Wend

End Sub

Cordialement,

 

[zeltron24]

Re : Masquer dates

Bonsoir Frollinde

Merci pour ton aide de mon coté j'ai continué à chercher et j'ai trouvé ceci :

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

Avec cette macro j'évite le défilement
Encore merci et à +

 

[Staple1600]

Re : Masquer dates

Bonsoir à tous

Une autre façon de faire (sans boucle)

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

 

[Staple1600]

Re : Masquer dates

Re

La même mais en moins radicale

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

 

[Speel]

Re : Masquer dates

Bonjour,

sans macro , outil Filtrer, filtres chronologiques , Aujourd'hui

 

[Staple1600]

Re : Masquer dates

Re

Speel
Entièrement d'accord.

Mais zeltron24 semble préférer la macro alors

 

[zeltron24]

Re : Masquer dates

Bonsoir Speel et Staple 1600

Cela me fait plaisir de vous relire apres plusieurs semaines sans que je vous ai soliciter.
J'ai essayé vos macros et pour finir j'ai opté pour la deuxieme solution de staple je reste borné sur les macros LOL
Bonne soirée à vous et encore merci
zeltron24

 

[Speel]

Re : Masquer dates

Re

Speel
Entièrement d'accord.

Mais zeltron24 semble préférer la macro alors

Le macro pour de la macro, tue la macro et désespère l’utilisateur

 

[Staple1600]

Re : Masquer dates

Bonsoir à tous

Speel
C'est pas moi qu'il faut convaincre

J'ai essayé vos macros et pour finir j'ai opté pour la deuxieme solution de staple je reste borné sur les macros LOL

 

[Speel]

Re : Masquer dates

Bonsoir à tous

Speel
C'est pas moi qu'il faut convaincre

Bonsoir,
Je n'en doute pas ... C'est orienté, tu l'as bien compris.
Toujours une appréhension lorsqu'on demande " voulez vous activer les macros "
a bientôt et avec cordialité.
André