saut de page

[jlppap]

Bonjour,
J'ai un fichier Excel 2003 :TEST.xls avec plusieurs feuilles.
Après récupération des données externes sur la feuil1, je copie alors le contenu de 4 colonnes sur ma feuil2 pour ensuite l'imprimer.
Je suis obligé de faire cette manip car j'ai 8 lignes d'entête qui doivent se répéter à l'impression.
Tout fonctionne bien, MAIS j'aurais besoin de faire un saut de page après chaque changement de la racine de l'article (les 4 premiers caractères).

j'ai ajouté un petit fichier excel2003 avec les macros utilisées

J'ai beau chercher... je n'y arrive pas.

MERCI pour votre aide.

 

[Guest]

Re : saut de page

Bonjour JlpPap,

Est-ce que cela te convient?

A+

 

[jlppap]

Re : saut de page

Bonjour,

et MERCI beaucoup, c'est PARFAIT, je n'en attendais pas autant.

Bon dimanche et bonne semaine.

 

[jlppap]

Re : saut de page

Bonjour Hasco,

J'aurais une petite question à poser, s'il n'est pas trop tard.

Au sujet de la partie VB que vous avez ajouté dans : Micosoft Excel Objets / Feuil1(EDITION)
_______________________________________________________
Private Sub btnSautPage_Click()
Dim ligne As Long
Dim Article As String
Dim hpb As HPageBreak

On Error Resume Next
For Each hpb In HPageBreaks
hpb.Delete
Next
ligne = 9
Article = Left(Cells(ligne, 1), 4)
While Cells(ligne, 1).Text <> vbNullString
If Left(Cells(ligne, 1), 4) <> Article Then
HPageBreaks.Add Cells(ligne, 1)
Article = Left(Cells(ligne, 1), 4)
End If
ligne = ligne + 1
Wend
End Sub
_______________________________________________________
Serait-il pas possible d'incorporer cette partie directement dans la macro principale 'imp_invent' , si oui à quel niveau ?
N'étant pas doué en VB cela serait plus facile pour moi s'il y avait d'autres modif à faire.
Un grand MERCI si vous pouviez me rendre ce dernier service.
Bonne semaine.

 

[Guest]

Re : saut de page

Bonjour jlPpap,

voici qui est fait,
La macro est dans le module 2 et s'appelle 'InsertSautsPage' elle est appelée par 'imp_invent' (juste avant la ligne imprime) ainsi que par le bouton posé sur la feuille édition.

A+

 

[jlppap]

Re : saut de page

Décidément pas de chance, j'ai une erreur suite au lancement de la macro.
j'ai mis une copie de l'erreur sur la feuille Comptage' du fichier test.xls

"ERREUR" de compilation, variable non définie.

MERCI encore

 

[Guest]

Re : saut de page

re,

Voici qui est réparé.

A+