déplacement curseur

[breeze]

Bonsoir,
J,ai une macro qui me permet de déplacer mon curseur vers la droite de 7 cases à la fois.
Ce qui me permet d'amener la colonne qui s'appelle "activité" au début de mon classeur.
Le problème est le suivant. mon tableau est long et irrégulier.
Pour mieux comprendre je vous envoie un modèle
Ce que je voudrait c'est qu'en cliquant sur mon bouton ,la macro amème la colonne "activité"après la colonne "C" Mon fichier est peut-être plus clair

Merci

 

[BOISGONTIER]

Re : déplacement curseur

Bonjour,


Voir PJ

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

JB

 

[breeze]

Re : déplacement curseur

Merci, Barbatruc
C'est exactement ce que je voulais
Mille merci !!!