Détecter les sauts de page dans excel [Résolu]

Signaler
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005
-
Daydayer
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005
-
bonjour!

jed ois détecter les sauts de pages dans excel à l'aide de VB Editor afin d'insérer des titres en haut de chaque feuille. Auriez-vous une idée de comment détecter ces sauts de pages?

Je ne peux pas détecter ces sauts à partir du nombre de lignes parce qu'elles n'ont pas toutes la même hauteur...

En vous remerkiant!

Daydayerement Vôtre

6 réponses

Messages postés
153
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
22 juillet 2009
1
oui c'est exactement ça

ligne 56 sur 1ère page

ligne 57 sur 2ème page
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 200 internautes nous ont dit merci ce mois-ci

Messages postés
153
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
22 juillet 2009
1
si c'est le même titre sur chaque page pourquoi ne pas mettre un titre
tout en haut du document excel et ensuite via le menu fichier / mise en
page onlget Feuille définir le titre que tu veux voir sur chaque page
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005

parce que en début de chaque feuille, ce que j'ai à mettre, ce sont les titres de chaque colonne...
donc dans chaque cellule en début de feuille, je dois mettre des choses différentes. donc avec la mose en page, je ne pourrai pas.

Daydayerement Vôtre
Messages postés
153
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
22 juillet 2009
1
Parcours les ligne de ta feuille excel est test la valeur PageBreak de chacune.

Si la valeur est égale à xlnone c'est qu'il n'y a pas de saut de page.
Le saut de page se place toujours au-dessus de la ligne que tu donnes
comme argument (dans l'ex 57)



if Worksheets("Feuil1").Rows(57).PageBreak <> xlNone then

break

end if
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005

lorsque tu dis:
"Le saut de page se place toujours au-dessus de la ligne que tu donnes comme argument (dans l'ex 57)"

cela veut dire que si Worksheets("Feuil1").Rows(57).PageBreak <> xlNone , alors la ligne 56 est sur la page d'avant?

Daydayerement Vôtre
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005

ok c'est bon, c'est parfait ça marche!

merci beaucoup, c'est trop bien!

Daydayerement Vôtre