Positionner le curseur sur un mot

[trapua]

Bonsoir,

Sur le site de Boigontier, j'ai trouvé un exemple pour :
positionner le curseur sur "Activité" suivant/précédent

Code: Tout sélectionner

Sub positionneActivitéSuivant()
  On Error Resume Next
  Range(Cells(2, ActiveCell.Column + 1), Cells(2, 255)).Find(What:="Activité", SearchDirection:=xlNext).Select
  ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub

Sub positionneActivitéPrécédent()
  On Error Resume Next
  Range(Cells(2, ActiveCell.Column - 1), Cells(2, "A")).Find(What:="Activité",      SearchDirection:=xlPrevious).Select
  ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub

C'est exactement ce que je voulais sauf que je veux qu'il se positionne dans le sens des lignes et non des colonnes.
J'ai bien essayé de remplacer les "column" par "Roll" mais ça ne marche pas. Pourquoi ?

[Banzai64]

Bonsoir

A voir

[trapua]

C'est parfait, merci beaucoup.
Enfin parfait, presque !

Je peux atteindre les cellules "Activités" uniquement si je me trouve sur la même colonne (B).
Or, Boigontier les atteint depuis n'importe quelle cellule .......
Pardon d'abuser

[Banzai64]

Bonsoir

Possible avec un seule colonne

Prépares un fichier et joins le ici

---

Or, Boigontier les atteint depuis n'importe quelle cellule .......

Bien sur mais qu'une seule ligne

---

La colonne choisie est la colonne B

Code: Tout sélectionner

Sub positionneActivitéSuivant()
  On Error Resume Next
  Range(Cells(ActiveCell.Row + 1, "B"), Cells(Rows.Count, "B")).Find(What:="Activité", SearchDirection:=xlNext).Select
  ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
Sub positionneActivitéPrécédent()
  On Error Resume Next
  Range(Cells(ActiveCell.Row - 1, "B"), Cells(1, "B")).Find(What:="Activité", SearchDirection:=xlPrevious).Select
  ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

[trapua]

Merci beaucoup !!!!