XL 2016 Déplacement dans une feuille

[pompaero]

Bonjour le forum,

Je cherche à déplacer une feuille de droite vers la gauche et vis vers ça à l'aide d'un bouton gauche et bouton droite. J'ai bien trouvé le code

Sub DeplFin()
'déplacement pour aller à droite'
  ActiveWindow.ScrollColumn = 20
  'Range("BM2").Select
End Sub

ActiveWintow.ScrollColumn = 20 signifie bien que l'on amène la colonne 20 complètement à gauche ?
si oui ? pour moi cela ne fonctionne pas, rien ne bouge !!
Pourriez-vous me donner un coup de main svp ? Merci.
Cdt
pompaero

 

[ChTi160]

Bonjour pompaero
Ceux ci semble fonctionner .
' Issu d'une recherche sur le net (sûrement d'autres solutions)

Sub ScrollColumn()
   With ActiveWindow
      .Panes(.Panes.Count).ScrollColumn = 20
   End With
End Sub

jean marie

 

[pompaero]

Bonjour ChTi160,

Merci de ta proposition, je viens de la tester, ça ne marche toujours pas, je dois louper quelque chose !!!
je joins mon fichier, pour voir. en feuille Aujourd'hui.
Merci
Cordialement
pompaero

 

[job75]

Bonjour pompaero, Jean-Marie,

Bah ActiveWindow.ScrollColumn = 20 fonctionne très bien sur le fichier du post #3...

A+

 

[pompaero]

Bonjour job75, le fil, le forum,

Ah oui fonctionne très bien !! ben moi non !! comprends pas pourquoi.

A+

 

[ChTi160]

Re
Ta feuille est protegée !
et pas de mdp lol
donc fonctionne pas non plus ! mdr
jean marie

 

[pompaero]

Bonjour ChTi160,

Effectivement la feuille est protégée à son activation avec (ScrollArea = "A1:BM54") et MDP "123" donc dans le module 1, j'ai tenté ceci,

Sub DeplFin()
  ActiveSheet.Unprotect Password:="123"
  ActiveWindow.ScrollColumn = 30
  ActiveSheet.Protect Password:="123"
End Sub

Mais ne fonctionne pas non plus.

Cdt
pompaero

 

[ChTi160]

Bonsoir pompaero
Bonsoir le Fil ,le Forum
chez moi ça fonctionne !
Comment utilises tu ces deux procédures ?

DeplDeb et DeplFin()

jean marie

 

[pompaero]

Re,

Sur l'onglet "Aujourd'hui" j'ai mis 2 objets flêche, une pour voir à droite et gauche. La macro DeplFin pour aller à droite et DeplaDebut pour revenir voir à gauche.
Le pire de tout c'est que je l'ai fais sur un autre fichier qui fonctionne très bien et celui-ci non !! est-ce le fait que la feuille est protéger avec scrollaera ?

 

[ChTi160]

Re
Chez moi les deux boutons ont fonctionné
Puis après avoir activé et déactivé la feuille "Aujourdhui" plus rien !
Cela vient sûrement , comme tu dis de la Protection de la feuille ....
tu aussi celà

.ScrollArea = "A1:BM54"
'et une procédure qui travaille sur des Colonnes entières !
.ScrollColumn

jean marie

 

[pompaero]

Re,

Effectivement, je viens de changer .ScrollArea = "A1:BM54" par .ScrollColumn et cela fonctionne maintenant.
Cdt
pompaero

 

[pompaero]

Re,
Bon au final encore un bug, alors je verrai ça demain..
A+