Ouverture feuille sur la 1ere ligne de la date du jour

[dss]

Bonjour le forum,

J'ai une base de données dont le tri se fait sur la colonne "date de l'evenement".

J'aimerais que la feuille s'ouvre au niveau de la 1ere ligne où la date de l'evenement est egale à la date du jour (pour eviter au fur et a mesure que le temps passe d'interminables deplacements du curseur avec la souris).

Est ce possible ?

Cordialement

dss

 

[Pierrot93]

Re : Ouverture feuille sur la 1ere ligne de la date du jour

Bonjour dss

regarde le code ci dessous, à placer dans le module "ThisWorkbook", en supposant que ta date se trouve dans la colonne A de la feuille nommée "feuil1" :

Private Sub Workbook_Open()
Dim x As Range
With Sheets("Feuil1")
.Activate
Set x = .Range("A:A").Find(Date, , xlValues, xlWhole, , , False)
End With
If Not x Is Nothing Then x.Select
End Sub

bonne journée
@+

 

[skoobi]

Re : Ouverture feuille sur la 1ere ligne de la date du jour

Bonjour,

regarde si celà te convient:

ActiveWindow.ScrollRow = Cells.Find(Date, LookIn:=xlValues).Row

Edit: bonjour Pierrot, 2 mn d'avances ......

 

[Pierrot93]

Re : Ouverture feuille sur la 1ere ligne de la date du jour

Re, bonjour Skoobi

Aarf oui, tu as raison skoobi, j'ai zapé le fait de mettre la cellule en ligne 1ère ligne, je modifie donc le code comme suit pour en tenir compte :

Private Sub Workbook_Open()
Dim x As Range
With Sheets("Feuil1")
.Activate
Set x = .Range("A:A").Find(Date, , xlValues, xlWhole, , , False)
End With
If Not x Is Nothing Then x.Select: ActiveWindow.ScrollRow = x.Row
End Sub

@+

 

[dss]

Re : Ouverture feuille sur la 1ere ligne de la date du jour

Bonsoir Pierrot93, Bonsoir Skoobi,

Désolé de n'avoir répondu plus tôt, j'ai dû m'absenter pour le travail.
Je viens de tester : Ca a l'air de fonctionner parfaitement et tout ça en moins d'1/4 d'heure, respect....

Merci à tous les deux.

Cordialement

dss