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 :
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).Loc ation = Y + 1
Mais cela ne fonctionne pas.
Quelqu un pourrait il m aider.
Merci d avance
Tibo
-----