Détecter un changement de page sous excel

chmouette Messages postés 57 Date d'inscription jeudi 10 mars 2005 Statut Membre Dernière intervention 21 juillet 2005 - 2 mai 2005 à 16:02
dp_favresa Messages postés 132 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 mai 2010 - 4 mai 2005 à 16:02
bonjour tout le monde,

j'aimerai pouvoir détecter un changement de page sous excel (dans une application VB bien sur), ou plutôt un changement de feuille à l'impression. (vous savez, ces pointillés qui délimitent les pages à l'impression)

en fait, j'ai des pieds de page différents dans un même fichier, et je ne sais pas gérer les sections sous excel. donc, quand un changement de page est détecté, j'aimerai mettre mon pied de page à la ligne d'avant. (c'est peut-être pas très élégant de le mettre en dur, mais je ne vois pas d'autre solution.)

merci.

On ne devrait vivre qu'une minute et demie,
Le temps du premier baiser et du premier demi !

1 réponse

dp_favresa Messages postés 132 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 mai 2010
4 mai 2005 à 16:02
Bonjour,



J'utilise la fonction suivante pour supprimer un saut de page,

vous pouvez vous en inspirer.



Sub SupprSautPage()

'

' SupprSautPage Macro

' Macro enregistrée le 14/08/2003 par dp

'

' Touche de raccourci du clavier: Ctrl+Maj+S

'

Application.ScreenUpdating = False

Dim cPartial As Integer

cPartial = 1



' **** Recherche de l'index du saut de page "Conditions"



For Each pb In Worksheets(1).HPageBreaks

If pb.Extent <> xlPageBreakFull Then

cPartial = cPartial + 1

End If

Next



' **** Suppression du saut de page



Sheets("Fiche").Select

Range("A331").Select

ActiveSheet.HPageBreaks(cPartial).Delete

Range("E7").Select

Application.ScreenUpdating = True



End Sub



Bon(nes) courage, développement, salutations...
(choisissez ce qui vous convient) dp
Rejoignez-nous