Positionner ma feuille à l'écran

Magalie · 9 Juin 2006

bonjour le forum,

je souhaite positionner ma feuille à l'écran mais je n'y éarrive pas...
Sans vouloir enerver qui que ce soit, j'ai supprimé certaines Barres.
- Quand j'ai les Barres cela fonctionne bien, par contre quand je ne les ai plus, A50 n'est pas dans le coin sup gauche. L'espace entre ce coin et A50 ne correspond pas à l'emplacement de mes Barres.
j'ai essayé plusieurs solutions sans succès.

ActiveWindow.ScrollRow = Worksheets('mois').Range('A50').Row
ActiveWindow.ScrollColumn = Worksheets('mois').Range('A50').Column

Application.Goto Reference:=Range('A50'), Scroll:=True

Au lieu de mettre A50 dans le coin a gauche, elle est environ deux centimetre plus bas. Merci de m'aider.
Magalie

gex1403 · 9 Juin 2006

Salut Magalie,
j'ai mis ce code dans this workbook, pour avoir A50 dans le coin en haut a gauche, en fait tout depend ou est ton curseur, ( j'ai créé ce code avec l'enregistreur de macro)
Si tu est deux cellules trop bas , met 52 dans ton code

Private Sub Workbook_Open()
Sheets('Feuil1').Select
Range('A68').Select
End Sub

@micalement

Mytå · 11 Juin 2006

Salut le forum

Une autre approche

Sub Positionner()

'Positionner sur la Feuille 2 la cellule C32'

Sheets('Feuil2').Activate

With ActiveWindow
.ScrollRow = 32
.ScrollColumn = Columns('C').Column
Application.Goto ActiveSheet.Cells(.ScrollRow, .ScrollColumn), True
End With

End Sub

Mytå

Magalie · 14 Juin 2006

Bonsoir mita, gex1403,

Quelques jours après, me revoila. J'ai trouvé la solution: une instruction était une ligne trop tôt...Merci pour votre aide.
A bientôt.
Magalie

Positionner ma feuille à l'écran

Magalie

Guest

gex1403

XLDnaute Occasionnel

Mytå

Guest

Magalie

Guest

Discussions similaires

Positionner ma feuille à l'écran

Magalie

Guest

gex1403

XLDnaute Occasionnel

Mytå

Guest

Magalie

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency