y a til une solution qui permet d'ouvir une feuille d'un classeur de telle
manière que la derniere ligne écrite soit toujours positionnée en milieu de
page 'd'ecran' ?
merci pour l'info s'il y en a une
A+
Jacks
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
Ceci devrait faire, en adaptant le nom de la feuille '----- Private Sub Workbook_Open() Sheets("Feuil2").Select ActiveCell.SpecialCells(xlLastCell).Select End Sub '-------- Salutations JJ
"lematou" a écrit dans le message de news:
Bonjour à tous,
y a til une solution qui permet d'ouvir une feuille d'un classeur de telle manière que la derniere ligne écrite soit toujours positionnée en milieu de
page 'd'ecran' ? merci pour l'info s'il y en a une A+ Jacks
Bonjour,
Ceci devrait faire, en adaptant le nom de la feuille
'-----
Private Sub Workbook_Open()
Sheets("Feuil2").Select
ActiveCell.SpecialCells(xlLastCell).Select
End Sub
'--------
Salutations
JJ
"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news:1F9933DE-E7D9-4633-9075-FDEF926C6E9F@microsoft.com...
Bonjour à tous,
y a til une solution qui permet d'ouvir une feuille d'un classeur de telle
manière que la derniere ligne écrite soit toujours positionnée en milieu
de
page 'd'ecran' ?
merci pour l'info s'il y en a une
A+
Jacks
Ceci devrait faire, en adaptant le nom de la feuille '----- Private Sub Workbook_Open() Sheets("Feuil2").Select ActiveCell.SpecialCells(xlLastCell).Select End Sub '-------- Salutations JJ
"lematou" a écrit dans le message de news:
Bonjour à tous,
y a til une solution qui permet d'ouvir une feuille d'un classeur de telle manière que la derniere ligne écrite soit toujours positionnée en milieu de
page 'd'ecran' ? merci pour l'info s'il y en a une A+ Jacks
JB
Bonjour,
La celule active est positionnée au milieu de l'écran:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Row > 12 Then ActiveWindow.ScrollRow = ActiveCell.Row - 12 End If End Sub
Cordialement JB
Bonjour,
La celule active est positionnée au milieu de l'écran:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row > 12 Then
ActiveWindow.ScrollRow = ActiveCell.Row - 12
End If
End Sub
La celule active est positionnée au milieu de l'écran:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Row > 12 Then ActiveWindow.ScrollRow = ActiveCell.Row - 12 End If End Sub
Cordialement JB
lematou
MERCI C'est super
"Jacky" wrote:
Bonjour,
Ceci devrait faire, en adaptant le nom de la feuille '----- Private Sub Workbook_Open() Sheets("Feuil2").Select ActiveCell.SpecialCells(xlLastCell).Select End Sub '-------- Salutations JJ
"lematou" a écrit dans le message de news:
Bonjour à tous,
y a til une solution qui permet d'ouvir une feuille d'un classeur de telle manière que la derniere ligne écrite soit toujours positionnée en milieu de
page 'd'ecran' ? merci pour l'info s'il y en a une A+ Jacks
MERCI C'est super
"Jacky" wrote:
Bonjour,
Ceci devrait faire, en adaptant le nom de la feuille
'-----
Private Sub Workbook_Open()
Sheets("Feuil2").Select
ActiveCell.SpecialCells(xlLastCell).Select
End Sub
'--------
Salutations
JJ
"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news:1F9933DE-E7D9-4633-9075-FDEF926C6E9F@microsoft.com...
Bonjour à tous,
y a til une solution qui permet d'ouvir une feuille d'un classeur de telle
manière que la derniere ligne écrite soit toujours positionnée en milieu
de
page 'd'ecran' ?
merci pour l'info s'il y en a une
A+
Jacks
Ceci devrait faire, en adaptant le nom de la feuille '----- Private Sub Workbook_Open() Sheets("Feuil2").Select ActiveCell.SpecialCells(xlLastCell).Select End Sub '-------- Salutations JJ
"lematou" a écrit dans le message de news:
Bonjour à tous,
y a til une solution qui permet d'ouvir une feuille d'un classeur de telle manière que la derniere ligne écrite soit toujours positionnée en milieu de
page 'd'ecran' ? merci pour l'info s'il y en a une A+ Jacks
lematou
MERCI cela fonctionne !
"JB" wrote:
Bonjour,
La celule active est positionnée au milieu de l'écran:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Row > 12 Then ActiveWindow.ScrollRow = ActiveCell.Row - 12 End If End Sub
Cordialement JB
MERCI cela fonctionne !
"JB" wrote:
Bonjour,
La celule active est positionnée au milieu de l'écran:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row > 12 Then
ActiveWindow.ScrollRow = ActiveCell.Row - 12
End If
End Sub
