code vba poir haut de page

[ellea02]

Bonjour a tous,

J'ai créer des boutons d'accès rapide qui vont dans une zone de mon classeur, mais le problème c'est que quand on fait défiler avec la souris quand on retourne sur le bouton, cela ne nous emmène pas au bon endroit.
J'aurais voulu savoir s'il existait un code vba qui remonte la page en haut une fois qu'on quitte la feuille.
Est ce que cela existe? J'ai essayé un code avec desactivate, mais cela Bugue et ne cesse de défiler.

 

[camarchepas]

Re : code vba poir haut de page

Bonsoir ,

Regardes comme cela :
si tu scroll vers le bas et que tu quittes la page lorsque tu reviendras , tu seras en haut de page

Private Sub Worksheet_Deactivate()
Application.Goto Me.Range("A1")
End Sub

 

[ellea02]

Re : code vba poir haut de page

Bonjour a toi,

Est ce que l option allez vers le haut est aussi prise en compte?

 

[JCGL]

Re : code vba poir haut de page

Bonjour à tous,
Salut Nono,

Si tu souhaites appliquer cette "remontée" à toutes les feuilles, dans le ThisWorkBook :

Option Explicit

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.Goto Cells(1, 1)
End Sub

A+ à tous

 

[ellea02]

Re : code vba poir haut de page

Merci de ta réponse

 

[camarchepas]

Re : code vba poir haut de page

Re

@ Bonsoir JcGl : Et oui encore mieux , enfin tout dépant de ce que l'on cherche .

@ ellea : tu peux traduire par va à la cellule désignée , donc cela remonte ou descend en fonction de l'emplacement où tu es et l'endroit où tu veux aller ....