scroll bar automatiquement

[zaid]

Bonjour à tous,

j'ai crée un planning avec une ligne figée qui contient les noms des salariés et une colonne qui contient les date du calendrier. Je voudrais que la date d'aujourdhui soit placée automatiquement juste au dessous de a ligne figée.je ne sais pas quelle fonction à placer sur l'évenement OnActivate.

 

[Pierrot93]

Re : scroll bar automatiquement

Bonjour Zaid,

essaye peut être ainsi, dans le module de la feuille concernée :

Option Explicit
Sub Worksheet_Activate()
Dim x As Range
Set x = Range("A:A").Find(Date, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then ActiveWindow.ScrollRow = x.Row
End Sub

dans le module "thisworkbook :

Option Explicit
Private Sub Workbook_Open()
Sheets("Feuil1").Worksheet_Activate
End Sub

bon après midi
@+

 

[Guiv]

Re : scroll bar automatiquement

Bonjour Zaid, Pierrot,
Autre code

Dim n As Long
n = Application.WorksheetFunction _
.Match(CLng(Date), Range("A1:A65536"), 0)

    
    ActiveWindow.ScrollRow = n

Cordialement,
Guiv

 

[Pierrot93]

Re : scroll bar automatiquement

Re, bonjour Guiv

Attention Guiv, ton code renverra un message d'erreur si la date n'est pas trouvée...

@+

 

[Guiv]

Re : scroll bar automatiquement

Re,
Merci Pierrot de la remarque, il faut rajouter au début "On Error Resume Next"
Cordialement,
Guiv

 

[zaid]

Re : scroll bar automatiquement

Bonjour Zaid, Pierrot,
Autre code

Dim n As Long
n = Application.WorksheetFunction _
.Match(CLng(Date), Range("A1:A65536"), 0)

    
    ActiveWindow.ScrollRow = n

Cordialement,
Guiv

Merci beaucoup, je ne croyais pas que c'était aussi simple. Mille mercis. ça m'a pris 2 minutes pour completer mon application grace à vous.

Meilleures salutations,
ZAID