XL 2010 [résolu] scroll to date

[fabrice31]

bonjour à tous,

voici mon mini pb:
j'ai un calendrier annuel en ligne 1.
j'aimerai, en ouvrant le classeur, (sinon par un bouton) tombé nez à nez avec la date du jour, mais x lignes en dessous (ex: si la date est en BJ6, ma cellule active est en BJ8)
j'arrive à trouver ma date, mais le scroll ne marche pas.
j'ai essayé en l’integrant à la macro, en la faisant suivre....

Private Sub Workbook_Open()
Sheets("annee.date").Select (ca ne marche pas non plus)
For n = 10 To 500
If Cells(1, n).Value = Date Then
Cells(10, n).Select
Exit Sub
End If
Next n
End Sub

Sub translate()
'
' translate Macro
'

'
ActiveWindow.ScrollColumn = n
End Sub

j'ai deja d'autres pb, mais je ferai des posts differents

grand merci

 

[DoubleZero]

Bonjour à toutes et à tous,

...j'ai un calendrier annuel en ligne 1...

Je crois comprendre la demande.

La précision suivante :

... si la date est en BJ6, ma cellule active est en BJ8)...

me fait comprendre que je n'ai rien cmpris !

A tester, malgré tut :

Option Explicit
Private Sub Workbook_Open()
    Dim c As Range
    Sheets("annee.date").Activate
    For Each c In Range("1:1").SpecialCells(xlCellTypeConstants)    ' date en ligne 1
        If Day(c.Value) = Day(Date) And Month(c.Value) = Month(Date) And Year(c.Value) = Year(Date) Then
            Application.Goto reference:=c(3, 1), scroll:=True
            Exit Sub
        End If
    Next
End Sub

A bientôt

 

[fabrice31]

bjr Doublezero, le forum,

dsl pour mes explications tordues.
j'ai mon fichier test '2017' avec la date en lignes 6, détaillé jusqu'en ligne 1 (jours, date, mois N° mois, année), et mon fichier 2018 'propre' avec 1 seule ligne date en 1. bref...

ton code est vraiment différent du mien...
ton code ne marche pas. je l'ai mis dans le workbook, mais il bloque. (fichier en PJ).

Sheets("annee.date").Activate

c'est bien pour activer la feuille qui s'appelle comme l’année en cours....?

attention, j'ai un autre test en cours: j'ai essayé de pointer la date à la sélection de la feuille et non pas à l'ouverture du workbook, mais c'est mieux sur le workbook. ça fait des bloquages un peu partout...

en tout cas merci bcp

 

[fabrice31]

pour ceux que ca peut interreser:

Private Sub Workbook_Open() ' à l'ouverture du classeur
Application.ScreenUpdating = False
Lastcol = Cells(1, Columns.Count).End(xlToLeft).Column ' compte le nombre de colonne
For n = 9 To Lastcol ' de la colonne 9 à la derniere (à ajuster selon besoin)
If Cells(1, n + 1) = Date Then
Cells(1, n + 1).Activate
ActiveWindow.ScrollColumn = n - 10 ' scroll à la colonne(n-10) (-10 à ajuster)
End If
Next
Application.ScreenUpdating = True
End Sub