scroll vertical en vba

[pascal21]

bonjour à tous

Private Sub Worksheet_Activate() 'colonne avec date du jour scrolléeDim lg
  lg = Application.Match(CSng(Date), Range("b9:nb9"), 0)
  If Not IsError(lg) Then
    ActiveWindow.ScrollColumn = lg
  End If
  End Sub

ce code qui m'a été donné sur ce forum permet de faire un scroll horizontal jusqu'a la colonne contenant la date du jour contenue sur la ligne 9
ça fonctionne très bien
je cherche à le modifier pour avoir cette fois un scroll vertical jusqu'à la cellule de la colonne A contenant la valeur "04:00" qui se trouve en ("A61")
comment faire ceci
merci

 

[Dranreb]

Re : scroll vertical en vba

Bonsoir.
C'est exactement le même principe mais en utilisant ScrollRow

 

[pascal21]

Re : scroll vertical en vba

bonsoir dranreb

merci, j'avais bien mis scrollrow dans le code
mais je ne sais pas comment coder la recherche de la valeur 04:00 ou de la cellule a61

 

[Dranreb]

Re : scroll vertical en vba

Si c'est une heure je pense que WorksheetFunction.Match(TimeValue("04:00:00"), Columns(1), 0) devrait donner la ligne