Haut et bas de page avec macro

Re : Haut et bas de page avec macro

Bonjour à tous,

Pour atteindre la dernière cellule :

Pour le haut de page :

Pas certain d'avoir compris ton "souhait"....

A+

Re : Haut et bas de page avec macro

bonsoir et merci,

il me semble qu'il y avait une autre méthode

Cazinos

Re : Haut et bas de page avec macro

Bonsoir à tous,

"C'est un peu court", comme "réponse", pour paraphraser Edmond ROSTAND...

Il y a sûrement d'autres méthodes, j'en conviens...

Au lu de ta question... Je ne vois pas et je ne dois pas être le seul, vu le nombre d'interventions...

A+ à tous

Re : Haut et bas de page avec macro

Bonsoir,

voici un début de réponse.

la macro recherche le premier saut de page aprés la cellule en cours

Sub FinPage()

Dim ws As Worksheet
Dim rng As Range
Dim pb As Variant
Set ws = ThisWorkbook.ActiveSheet
'ActiveWindow.View = xlPageBreakPreview
For Each pb In ws.HPageBreaks
If pb.Location.Row > ActiveCell.Row Then
Cells(pb.Location.Row, 1).Select
End If
Next pb
'ActiveWindow.View = xlNormalView
End Sub

' cela ne me plait pas mais cela a l'air de fonctionner pour page arriere

Sub DebutPage()

Dim ws As Worksheet
Dim rng As Range
Dim pb As Variant
Dim Page As Integer
Dim P2 As Integer
Set ws = ThisWorkbook.ActiveSheet
'ActiveWindow.View = xlPageBreakPreview
Page = 0
For Each pb In ws.HPageBreaks
Page = Page + 1
If pb.Location.Row > ActiveCell.Row Then ' fin de page
Page = Page - 1 ' numéro page précedente
Exit For
End If
Next pb
If Page > 0 Then
P2 = 0
For Each pb In ws.HPageBreaks 'recherche page précédente
P2 = P2 + 1
If P2 = Page Then
Cells(pb.Location.Row - 1, 1).Select
Exit For
End If
Next
Else
Cells(1, 1).Select
End If


'ActiveWindow.View = xlNormalView
End Sub



GIBI

Re : Haut et bas de page avec macro

bonsoir le forume et merci pour les réponses