Microsoft 365 Se déplacer en vertical dans une feuille

[Scorpio]

Bonjour le Forum,
Dans ce classeur j'aimerais me déplacer en vertical, ce que je fais maintenant, en feuille 2,
mais je voudrais pas une cellule en couleur, seulement un nom, par EX: Dep ou un autre,
Je n'arrive pas a modifier le code, est-ce qu'un gentil membre pourrais me rendre ce service ??
D'avance merci, et à ++++
Scorpio

 

[Hasco]

Bonjour,

Dans le fichier joint, j'ai nommé 'BAS' la cellule A2 et 'HAUT' la cellule A52.
Puis dans les codes respectifs des boutons :
Pour le bas:

Application.Goto [BAS], True

et pour le haut :

Application.Goto [HAUT], True

Avez-vous songé aux liens hypertextes pour ce faire ?

Cordialement

 

[Scorpio]

Bonjour Roblochon
Merci de répondre a mon appel,
mais, je souhaiterais que le code se déplace sur chaque cellule marqué de "Dep"
Est-ce possible

 

[Hasco]

Re,

D'où l'intérêt d'expliciter en détail son besoin.

Avec l'enregisteur de macro en route, puis une recherche (CTRL+F) de 'DEP' on obtiens à peu près ce qui suit.
Pour le haut j'ai juste changé la direction de la recherche, remplacer 'xlNext' par 'xlPrevious'.

C'est une méthode de recherche rapide, qui boucle. C'est à dire que si vous cliquez sur 'BAS' lorsque vous êtes sur la dernière cellule qui contient "DEP" alors le bouton' BAS' vous ramènera en haut etc... idem pour l'autre bouton.

Sub cherhchebas()
On Error Resume Next
ActiveSheet.Range("A:A").Find(What:="DEP", After:=Cells(ActiveCell.Row, 1), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
On Error GoTo 0
End Sub

Sub cherhchehaut()
On Error Resume Next
ActiveSheet.Range("A:A").Find(What:="DEP", After:=Cells(ActiveCell.Row, 1), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False).Activate
On Error GoTo 0

End Sub

cordialement

 

[Scorpio]

Re,
Oui, je suis d'accord, alors moi, je ne suis pas 1 champion du code comme vous sur le Forum, d'où l'intérêt de vous demander le secours.
Super boulot Roblochon, 1 grand merci, c'est exactement ca.
A bientôt
Scorpio