XL 2016 Déplacement dans une feuille

pompaero

XLDnaute Impliqué
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
 

pompaero

XLDnaute Impliqué
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
 

Pièces jointes

  • Pompaero StatStras.xlsm
    503.3 KB · Affichages: 8

pompaero

XLDnaute Impliqué
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 Impliqué
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 ?
 

Pièces jointes

  • Pompaero StatStras.xlsm
    508 KB · Affichages: 2

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:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 912
Membres
101 837
dernier inscrit
Ugo