workbookopen et filtre

[momo2394]

Bonjour le forum

Je reviens vers vous pour un problème de positionnement de filtre à l'ouverture du fichier.
J'ai supprimé la fusion des cellules, écrit*Planning/Réservation*en*B1*, sélectionné la plage*B1:AG1*et fait un alignement*centré sur plusieurs colonnes, mais en vain le filtre se positionne sur la mauvaise cellule.
Je voudrais qu'il se positionne sur la cellule X3 pour aujourd'hui
Y3 pour demain, ainsi de suite.

Merci

 

[job75]

Re : workbookopen et filtre

Bonjour momo2394,

1) Mettez des dates en ligne 2 de chaque feuille.

2) Formule en C3 à tirer vers la droite =JOUR(C2)

3) Code à coller dans ThisWorkbook :

Private Sub Workbook_Open()
Dim w As Worksheet
For Each w In Worksheets
  Workbook_SheetActivate w
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim col As Variant
col = Application.Match(CLng(Date), Sh.[2:2], 0)
Sh.AutoFilterMode = False
If IsNumeric(col) Then
  Sh.Range(Sh.Cells(3, col), Sh.Cells(Sh.Rows.Count, col)).AutoFilter
  Sh.Activate
End If
End Sub

Fichier joint.

A+

 

[momo2394]

Re : workbookopen et filtre

Salut job75 et le forum

Super, c'est justement ce que je voulais
encore merci