Bonjour,

Je cherche a creer une macro qui me permettrait de placer la ligne bleue en mode page break preview directement sous la cellule contenant le mois actuel.

Voici le code aue j ai ecrit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Function today() As Date
Dim i As Integer
Dim X As Integer
Dim Y As Range
 
Y = Y + 1
 
X = DatePart("m", today())
 
For i = 1 To 2000
While Range("A" & i) <> X
Do: Set ActiveSheet.HPageBreaks(1).Location = Y + 1
Mais cela ne fonctionne pas.
Quelqu un pourrait il m aider.
Merci d avance
Tibo