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

---

je suggere comme code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub saut() 'retirer tout les sauts de page précédents ActiveSheet.ResetAllPageBreaks 'trouver la derniere ligne, meme si elle dépasse 60 000 derlgn = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row 'boucler de 1 a la derniere ligne For i = 1 To derlgn 'tester pour chaque ligne si la cellule contient le bon texte If Cells(i, 1) = "Solde final" Then 'si oui, on insere un saut de page au-dessus de la ligne suivante ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(i + 1) End If Next i End Sub

---

Etant plutot une débutante aussi, c'est loin d'etre garantit que mon code soit le plus optimisé et je ne sais pas débbuger facilement le tien pour trouver le point qui coince, mais au moins, ca débloque
j'ai utilisé les formulation que j'utilise en général, ca ne veut pas dire que les tiennes étaient une mauvaise idée, juste pour aller vite, j'ai fais ce que je connais :p

Merci quand même mais ca me fait le même message d'erreur que ma macro:
Variable objet ou variable de bloc with non définie.

Si quelqu'un d'autre a une idée.
Merci quand même emmanuelleC. :lol:

j'avais testé le code avant de le poster, en 2007 ca fonctionne :?

le if et le for fonctionne forcement sur toutes les versions

si tu essayes juste ces code la (pour saucisonner le probleme)

Code:

---

1 2 3

Sub test1() ActiveSheet.ResetAllPageBreaks End Sub

---

Si ca bloque ici, pour corriger, essaye avec l'enregistreur de macro de voir ce qu'il fait quand tu lui demande de retirer un saut de page

Code:

---

1 2 3 4

Sub test2() derlgn = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row msgbox derlgn End Sub

---

Si ca bloque ici, regarde dans les tutos pour voir comment trouver la derniere ligne dans excel

Code:

---

1 2 3

Sub test3() ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(5) End Sub

---

Si ca bloque ici, essaye avec l'entregistreur de macro de voir ce qu'il fait quand tu ajoutes un saut de page au dessus d'une ligne

dans un autre sujet, je suis tombée sur cette ligne de code

Code:

---

ActiveWindow.View = xlPageBreakPreview ' Il est impératif que ce mode soit activé pour le contrôle des sauts

---

je n'ai pas eu besoin de mettre ca en 2007, mais c'est peut-etre ca qui manque en 2003?

Impeccable, ton dernier code permet juste de passer en mode saut de page mais en fait ca m'arrange donc merci.
Et le reste marche, je sais pas pourquoi ça me m'étais un message d'erreur.
En tout cas merci à toi EmmanuelleC et bonne continuation sur le forum.

:ccool: