bonjour,
J'aimerais par macro déplacer des données d'une feuille à une autre pour les
y imprimmer.
Ces données sont variables en nombre, classées par ordre alphabétique.
Type de données
Colonne A : Nom
Colonne B : N° Fax
Colonne C : Contacts divers
Si l'on imprimme comme cela il peut y avoir 10 pages avec beaucoup de pertes
de places
Aussi j'aimerais placer les données sur les colonnes A B C et E F G
D étant réservée à un espacement pour plus de lisibilité
Jusque là ça tourne
Pour insérer des sauts de pages manuels j'ai déja utilisé une technique de
décompte de lignes. Tout les x lignes on insère un saut de page ...
Mon problème c'est qu'il peut y avoir plusieurs lignes dans une même
cellules. Je présume qu'en "explorant" chaque cellule il est possible de
trouver ce nombre de ligne.
Autre piste mesurer la hauteur de chaque ligne et le cumuler
Mais n'y a-t-il pas une solution toute simple pour savoir ou s'insère le
saut de page automatique?
En espérant avoir été clair ;_)
A+ et merci d'avance
--
A+
Jean-Claude
jcvalAenlever@wanamoo.fr - Aenlever bien évidement
Salut, La boucle ne passe qu'une fois même s'il y a x sauts de page
Version Xl 2002 SP2 A+ Jc
"AV" a écrit dans le message de news:
Ce bout de code qui fontionne sans problème sous XL97, plante lamentablement
sous XL2000 ! Et chez vous ? J'ai loupé une MAJ ? Bug ?
Sub SautDePage() Dim St As HPageBreak For Each St In ActiveSheet.HPageBreaks MsgBox St.Location.Row Next St End Sub
AV
Jean-Claude
Après essai ça marche si j'insère des sauts de page manuels Pourquoi cela ne fonctionne pasavec les saut de page automatique ?? Si qq'un a la réponse JC "AV" a écrit dans le message de news:
Ce bout de code qui fontionne sans problème sous XL97, plante lamentablement
sous XL2000 ! Et chez vous ? J'ai loupé une MAJ ? Bug ?
Sub SautDePage() Dim St As HPageBreak For Each St In ActiveSheet.HPageBreaks MsgBox St.Location.Row Next St End Sub
AV
Après essai ça marche si j'insère des sauts de page manuels
Pourquoi cela ne fonctionne pasavec les saut de page automatique ??
Si qq'un a la réponse
JC
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:Omxc5z8tDHA.1340@TK2MSFTNGP09.phx.gbl...
Ce bout de code qui fontionne sans problème sous XL97, plante
lamentablement
sous XL2000 !
Et chez vous ?
J'ai loupé une MAJ ? Bug ?
Sub SautDePage()
Dim St As HPageBreak
For Each St In ActiveSheet.HPageBreaks
MsgBox St.Location.Row
Next St
End Sub
Après essai ça marche si j'insère des sauts de page manuels Pourquoi cela ne fonctionne pasavec les saut de page automatique ?? Si qq'un a la réponse JC "AV" a écrit dans le message de news:
Ce bout de code qui fontionne sans problème sous XL97, plante lamentablement
sous XL2000 ! Et chez vous ? J'ai loupé une MAJ ? Bug ?
Sub SautDePage() Dim St As HPageBreak For Each St In ActiveSheet.HPageBreaks MsgBox St.Location.Row Next St End Sub
AV
Bernard Perdriaud
Jean-Claude wrote: Après essai ça marche si j'insère des sauts de page manuels Pourquoi cela ne fonctionne pasavec les saut de page automatique ?? Si qq'un a la réponse JC "AV" a écrit dans le message de news:
Ce bout de code qui fontionne sans problème sous XL97, plante lamentablement sous XL2000 ! Et chez vous ? J'ai loupé une MAJ ? Bug ?
Sub SautDePage() Dim St As HPageBreak For Each St In ActiveSheet.HPageBreaks MsgBox St.Location.Row Next St End Sub
Bonjour,
Chez moi ça fonctionne, à condition d'avoir fait au moins une fois un aperçu (pour qu'il sache où sont les sauts de page). Excel 2003 sous Windows XP __________ Bernard
Jean-Claude wrote:
Après essai ça marche si j'insère des sauts de page manuels
Pourquoi cela ne fonctionne pasavec les saut de page automatique ??
Si qq'un a la réponse
JC
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:Omxc5z8tDHA.1340@TK2MSFTNGP09.phx.gbl...
Ce bout de code qui fontionne sans problème sous XL97, plante
lamentablement sous XL2000 !
Et chez vous ?
J'ai loupé une MAJ ? Bug ?
Sub SautDePage()
Dim St As HPageBreak
For Each St In ActiveSheet.HPageBreaks
MsgBox St.Location.Row
Next St
End Sub
Bonjour,
Chez moi ça fonctionne, à condition d'avoir fait au moins une fois un aperçu
(pour qu'il sache où sont les sauts de page).
Excel 2003 sous Windows XP
__________
Bernard
Jean-Claude wrote: Après essai ça marche si j'insère des sauts de page manuels Pourquoi cela ne fonctionne pasavec les saut de page automatique ?? Si qq'un a la réponse JC "AV" a écrit dans le message de news:
Ce bout de code qui fontionne sans problème sous XL97, plante lamentablement sous XL2000 ! Et chez vous ? J'ai loupé une MAJ ? Bug ?
Sub SautDePage() Dim St As HPageBreak For Each St In ActiveSheet.HPageBreaks MsgBox St.Location.Row Next St End Sub
Bonjour,
Chez moi ça fonctionne, à condition d'avoir fait au moins une fois un aperçu (pour qu'il sache où sont les sauts de page). Excel 2003 sous Windows XP __________ Bernard
