simplification du code pour le scroll

[zeltron]

Bonjour a tout le forum,

Voilà en utilisant l'enregistreur de macro, j'ai obtenu le code suivant qui me permet d'avoir a l'ouverture dde mon fichier un scroll de bas en haut, qui done l'impression que mon ecran d'accueil arrive en descendant, avec quelques petit aler retour, donnat une impression de rebond.

Private Sub Workbook_Open()
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
End Sub
Je voudrais savoir si ce code est simplifiable. Je vous met egalement en fichier joint en exemple afin que vous puissiez voir l'effet que cela donne.

Merci d'avance pour votre aide

Cordialement zeltron

 

[zeltron]

désolé, le fichier ne passe pas.

Cependant avez vosu uen idée de simplification du code?

Merci

Zeltron

 

[Mytå]

salut Zeltron

sans tester ceci comme code

Dim I As Byte
For I = 70 To 1
ActiveWindow.ScrollRow = I
Next I
For I = 2 To 10
ActiveWindow.ScrollRow = I
Next I
For I = 9 To 1
ActiveWindow.ScrollRow = I
Next I

 

[zeltron]

Merci beaucoup pour ton aide Myta.
C'est super sympa

Salutations

Cordialement

Zeltron