scroll bar automatiquement

Pierrot93

XLDnaute Barbatruc

• 25 Mars 2010

• #2

Re : scroll bar automatiquement

Bonjour Zaid,

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

Code:

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 :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 25 Mars 2010

• #3

Re : scroll bar automatiquement

Bonjour Zaid, Pierrot,
Autre code

Code:

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

    
    ActiveWindow.ScrollRow = n

Cordialement,
Guiv

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mars 2010

• #4

Re : scroll bar automatiquement

Re, bonjour Guiv

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

@+

 

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 25 Mars 2010

• #5

Re : scroll bar automatiquement

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

 

Vote positif 0 Vote négatif

Z

zaid

XLDnaute Nouveau

• 25 Mars 2010

• #6

Re : scroll bar automatiquement

Guiv à dit:

Bonjour Zaid, Pierrot,
Autre code

Code:

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

    
    ActiveWindow.ScrollRow = n

Cordialement,
Guiv

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif