Discussion :

[alainpinpin]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

bonjour

ce code doit de donner la réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

Tu peux aussi utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.VPageBreaks(1).Location.Address

PGZ