Création de saut de page selon critère en VBA
Bonjour,
J'ai un fichier excel qui comporte beaucoup de lignes et je voudrais qu'un saut de page s'insère dès que le texte "Solde final" apparaît.
J'ai réalisé cette macro mais elle m'indique une erreur, si quelqu'un a une idée ou une meilleure macro, je débute donc:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Sub saut()
Dim Solde As Range, Plage As Range
Dim DerniereLigne As Long, Ligne As Long
Application.ScreenUpdating = False
DerniereLigne = Cells(60000, 1).End(xlUp).Row
Set Plage = Range(Cells(1, 1), Cells(DerniereLigne, 1))
ActiveSheet.ResetAllPageBreaks
For Each Solde In Plage
If Solde = "Solde final" Then
Cells(Solde.Row + 1, 1).EntireRow.Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next Solde
End Sub |