Microsoft 365 Se déplacer en vertical dans une feuille

Scorpio · 7 Mai 2021

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 · 7 Mai 2021

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:

VB:

Application.Goto [BAS], True

et pour le haut :

Code:

Application.Goto [HAUT], True

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

Cordialement

Scorpio · 7 Mai 2021

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 · 7 Mai 2021

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.

VB:

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 · 7 Mai 2021

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

Microsoft 365 Se déplacer en vertical dans une feuille

Scorpio

XLDnaute Impliqué

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

Scorpio

XLDnaute Impliqué

Hasco

XLDnaute Barbatruc

Scorpio

XLDnaute Impliqué

Discussions similaires