détection de saut de page

Version imprimable

09/01/2009, 11h44
alainpinpin

détection de saut de page

bonjour,

j'aimerais savoir comment récupérer la position d'un saut de page vertical

Code:

ActiveSheet.VPageBreaks(1).Location

j'aimerais qu'il me renvoie, par exemple, $BB, ou quelque chose comme ça

si vous avez besoin de plus de renseignements pour répondre, demandez moi!
merci d'avance

bonjour

ce code doit de donner la réponse

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub LigneSautDePage()
Dim i As Long
Dim ligne As Long, colonne as long
  If ActiveSheet.HPageBreaks.Count > 0 Then
    For i = 1 To ActiveSheet.HPageBreaks.Count
      ligne = ActiveSheet.HPageBreaks(i).Location.Row - 1
      Debug.Print ligne
    Next i
  End If
 
 If ActiveSheet.VPageBreaks.Count > 0 Then
    For i = 1 To ActiveSheet.VPageBreaks.Count
      colonne= ActiveSheet.VPageBreaks(i).Location.Column - 1
      Debug.Print colonne
    Next i
  End If
End Sub

cordialement

09/01/2009, 12h20
pgz

Bonjour.

Tu peux aussi utiliser

Code:

ActiveSheet.VPageBreaks(1).Location.Address

PGZ