Afficher une page dans une feuille Excel

[Peponne31]

Bonjour,

Dans une feuille Excel, j'ai plusieurs pages, j'ai créé un CommanButton qui me permet d'afficher une page, la page commence en F1 jusqu'à J200. Mon problème est que je n'arrive pas à avoir la colonne F à gauche de l'écran, ça débute par la colonne C. Voici ce que j'ai fais;
Pour le CommanButton:

Private Sub VérinsMoules_Click()
Application.ScreenUpdating = True
FrmVérinsdeMoules.Show
End Sub

Pour la procédure:

Private Sub VérinsMoules_Click()
Application.ScreenUpdating = True
Range("F1:J200").CurrentRegion.Select
Sheets("Presse").EnbleSelection = xlUnlockedCells
Range("F6").Select
Range("F6").Activate
End Sub

Le curseur est bien en J6 mais la colonne J n'est pas la première colonne de ma page.
J'èspère mètre bien expliquer.
Cordialement

Pierrot

 

[JCGL]

Re : Afficher une page dans une feuille Excel

Bonjour à tous,

Peux-tu essayer :

Sub Test()
Feuil1.ScrollArea = "F1:J200" 'Pour ne pouvoir utiliser que cette plage
Application.Goto Reference:=Feuil1.Range("F1"), scroll:=True 'Pour avoir la première colonne en F1
End Sub

A+ à tous

 

[Peponne31]

Re : Afficher une page dans une feuille Excel

Merci pour ta réponse, j'ai encore un dysfonctionnement, j'ai adapté ta solution à ma feuille, lorsque je clique sur le bouton test, j'ai bien la page qui s'affiche correctement, mais lorsque je clique sur un autre bouton pour revenir au menu, donc en A1 de ma feuille, je suis bloqué.

J'ai oublié de préciser que je suis sur Excel 2003

Cordialement

Pierrot

 

[JCGL]

Re : Afficher une page dans une feuille Excel

Bonjour à tous,

Enlève le ScrollArea.

A+ à tous

 

[Peponne31]

Re : Afficher une page dans une feuille Excel

Merci

Maintenant ça fonctionne
Bonne soirée

Cordialement

Pierrot