Positionner ma feuille à l'écran

[Magalie]

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]

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å]

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]

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