afficher une ligne donnée

RichardS à dit:

Bonjour,

J'ai besoin de votre aide car je vois le bout du tunnel mais je n'arrive plus à avancer, c'est rageant.

Dans un classeur, une feuille contenant en première colonne, une série de dates. Je souhaite afficher en première ligne la 5ième ligne contenant la date du jour. Par exemple si nous sommes le 12 septembre, cela donne :
8/09/18
9/09/18
10/09/18
11/09/18
12/09/18
13/09/18
etc.
Ma solution est la suivante à positionner dans Thisworkbook :
Private Sub Workbook_Open()
ActiveWindow.ScrollRow = Application.Match(Cells(1, 11), Columns(1), 0)
End Sub

Mon problème est double :
1) la date du jour est positionné dans la cellule 1,11 de la feuille. J'aurais apprécié une solution plus élégante mais je me heurte à une incompatibilité de type si je remplace cells((1,11) par Date dans la formule.
2) je souhaite que la date du jour soit la 5ième de la feuille et non la première.

Si vous pouviez me sortir de l'impasse ce serait top.
Merci d'avance.
RichardS

Cliquez pour agrandir...

Private Sub Workbook_Open()
Dim Lig&
With Feuil1 'Code name de la feuille
  If IsNumeric(Application.Match(Date * 1, .[a:a], 0)) Then
    Lig = Application.Match(Date * 1, [a:a], 0)
    If Lig > 5 Then Lig = Lig - 4 Else Lig = 1
    Application.Goto .Range("a" & Lig), True
  End If
End With
End Sub

Jacky67 à dit:

Private Sub Workbook_Open()
Dim Lig&
With Feuil1 'Code name de la feuille
If IsNumeric(Application.Match(Date * 1, [a:a], 0)) Then
Lig = Application.Match(Date * 1, [a:a], 0)
If Lig > 5 Then Lig = Lig - 4 Else Lig = 1
Application.Goto .Range("a" & Lig), True
End If
End With
End Sub

Cliquez pour agrandir...

Citronflexe à dit:

Bonjour,

Je n'ai pas bien compris le problème, ci-joint un fichier qui place à l'ouverture la date d'aujourd'hui en 5è ligne et les dates précédentes et suivantes en fonction, puis qui scroll jusqu'à la 5e ligne pour l'afficher en haut du classeur...

Est-ce que c'est ce dont vous aviez besoin?

Cliquez pour agrandir...

RichardS à dit:

ça marche. c'est super, merci, mais je ne comprend pas !
Le lig>5 OK autant pour moi, j'aurais dû le prévoir !
Mais Date*1 le rend il numérique ? il n'y a plus d'incompatibilité, pourquoi ?
le fait de poser la question isnumeric n'est plus indispensable si je comprend bien, ce n'est qu'une précaution.

S'il te plait explique moi, je suis un peu perdu.
En tout cas, déjà merci pour la solution ça fonctionne.

Cliquez pour agrandir...

Sub testDate()
MsgBox IsNumeric(Date)
MsgBox IsNumeric(Date * 1)
MsgBox IsNumeric(CLng(Date))
End Sub