Positionner le curseur sur un mot

Bonsoir,

Sur le site de Boigontier, j'ai trouvé un exemple pour :

positionner le curseur sur "Activité" suivant/précédent

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 ?

Bonsoir

A voir

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

Bonsoir

Possible avec un seule colonne

Prépares un fichier et joins le ici

trapua a écrit :

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

Bien sur mais qu'une seule ligne

La colonne choisie est la colonne B

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

Merci beaucoup !!!!