Macro saut page après avoir trouvé caractère

Fermé
Funky0912 - 5 nov. 2009 à 11:14
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 5 nov. 2009 à 12:27
Bonjour à tous,

J'aimerai créer une macro qui me permet de créér un saut de page.

Je rentre dans le détail:

Une fois qu'on trouve la cellule comprenant l'expression " Page n° ", on crée un saut de page juste en dessous de cette cellule.

J'ai pensé a une macro du genre :

Sub test()
Dim X As Long
For X = ActiveSheet.HPageBreaks.Count To 1 Step -1
ActiveSheet.HPageBreaks(X).Delete
Next X
For X = 1 To Range("A65536").End(xlDown).Row
If Range("Page" & X) <> "" Then _
ActiveSheet.HPageBreaks.Add Before:=Range("Page" & X)
Next X
End Sub


Mais sans succès ...

Quelqu'un a t-il une solution ?

1 réponse

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
5 nov. 2009 à 12:27
Bonjour,
Je pense que ton erreur se situe ici :
If Range("Page" & X) <> "" Then
il te faut déjà savoir ou va apparaitre ton fameux "Page 1"? en "pied de page"? dans une cellule de la feuille?
Supposons qu'il soit inscrit en A1. Ton code devient :
If Range("A1").Value = "Page 1" Then
Si c'est dans le pied de page (et là je n'ai pas testé donc..... je ne sais pas si cela fonctionne) :
If ActiveSheet.PageSetup.CenterFooter = "Page &1" Then

Ok?
0