A voir également:
- Excel saut de page conditionnel
- Supprimer une page word - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Formule excel - Guide
- Saut de ligne excel - Guide
1 réponse
Utilisateur anonyme
11 mars 2008 à 08:35
11 mars 2008 à 08:35
bonjour,
i = 1
While Range("A" + CStr(i)).Value <> ""
Range("A" + CStr(i)).Select
If Range("A" + CStr(i)).Value = "Chpt" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
i = i + 1
Wend
i = 1
While Range("A" + CStr(i)).Value <> ""
Range("A" + CStr(i)).Select
If Range("A" + CStr(i)).Value = "Chpt" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
i = i + 1
Wend