Macro saut page après avoir trouvé caractère
Funky0912
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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 ?
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 ?
A voir également:
- Macro saut page après avoir trouvé caractère
- Comment supprimer une page sur word avec un saut de page ? - Guide
- Caractère spéciaux - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Caractere speciaux - Guide
- Caractère ascii - Guide
1 réponse
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?
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?
