Haut et bas de page avec macro

[Cazinos]

Bonsoir le forum,

J'ai besoin d'une macro pour atteindre le bas ou le haut d'une page excel.

merci

Cazinos

 

[JCGL]

Re : Haut et bas de page avec macro

Bonjour à tous,

Pour atteindre la dernière cellule :

Selection.SpecialCells(xlCellTypeLastCell).Select

Pour le haut de page :

Range("A1").Select

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

A+

 

[Cazinos]

Re : Haut et bas de page avec macro

bonsoir et merci,

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

Cazinos

 

[JCGL]

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

 

[GIBI]

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

 

[Cazinos]

Re : Haut et bas de page avec macro

bonsoir le forume et merci pour les réponses