XL 2016 Déplacement dans une feuille

pompaero

XLDnaute Occasionnel
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
VB:
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

XLDnaute Barbatruc
Bonjour pompaero
Ceux ci semble fonctionner .
' Issu d'une recherche sur le net (sûrement d'autres solutions)
VB:
Sub ScrollColumn()
   With ActiveWindow
      .Panes(.Panes.Count).ScrollColumn = 20
   End With
End Sub
jean marie
 

pompaero

XLDnaute Occasionnel
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
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour pompaero, Jean-Marie,

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

A+
 

pompaero

XLDnaute Occasionnel
Bonjour job75, le fil, le forum,

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

A+
 

ChTi160

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

pompaero

XLDnaute Occasionnel
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,
VB:
Sub DeplFin()
  ActiveSheet.Unprotect Password:="123"
  ActiveWindow.ScrollColumn = 30
  ActiveSheet.Protect Password:="123"
End Sub
Mais ne fonctionne pas non plus.

Cdt
pompaero
 

pompaero

XLDnaute Occasionnel
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 ?
 

Fichiers joints

ChTi160

XLDnaute Barbatruc
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à
VB:
.ScrollArea = "A1:BM54"
'et une procédure qui travaille sur des Colonnes entières !
.ScrollColumn
jean marie
 
Dernière édition:

pompaero

XLDnaute Occasionnel
Re,

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

Discussions similaires


Haut Bas