Filtre ligne automatique date aujourd'huis

Bonjour, étudiant en gestion je réalise un tableau de bord mensuel avec une saisie journalière. Afin de rendre le tableau plus ergonomique je souhaiterai uniquement affiché automatiquement la ligne de saisie correspondant à la date du jour (de l'ordinateur).

Les dates sont en colonne B , B1 correspond au 1/02/2014 . Aujourd'hui le 18/02 je souhaiterai afficher uniquement la ligne B18 lors de l'ouverture de mon fichier.

Merci de votre aide précieuse

Flavien

Bonjour. Bienvenue sur le Forum

Code dans ThisWorkBook

Private Sub Workbook_Open()
Sheets("Feuil1").Activate
Dim ToDay As Date
Application.ScreenUpdating = False
ToDay = Date
  For Each MaCellule In Range("B1:B31")
   If MaCellule.Value <> ToDay Then
     MaCellule.EntireRow.Hidden = True
    End If
  Next
End Sub

Et comme tu n'as plus qu'une seule ligne visible, pour tout reafficher, double Click sur la cellule contenant la date

Code de Feuil1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B1:B31")) Is Nothing Then
Cells.Select
    Selection.EntireRow.Hidden = False
    Range("B1").Select
    End If
End Sub

Cordialement

Merci beaucoup Amadéus pour la rapidité et la clarté de votre réponse, c'est parfait.

Cordialement