ligne à repeter en bas excel

grisan29

XLDnaute Accro

• 27 Octobre 2013

• #16

Re : ligne à repeter en bas excel

re
dans ce cas je passe la main car le fichier où est ce code, la feuille est entièrement vue et il n'y a pas de souci

Pascal

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 27 Octobre 2013

• #17

Re : ligne à repeter en bas excel

Re,

Merci quand même Pascal ,

Les expert en vba seraient les bienvenues

A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Octobre 2013

• #18

Re : ligne à repeter en bas excel

Vous pouvez aussi tout simplement ajuster le nombre de page en hauteur, dans la mise en page. Définissez une zone d'impression couvrant les totaux, bien sûr.

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 27 Octobre 2013

• #19

Re : ligne à repeter en bas excel

bonjour dranreb, Ronibo
essai ton fichier comme ceci, car j'ai diminuer le nombre de ligne dessous MTTC et supprimer les lignes d'articles vides et c'est mieux il n'y a pas de feuille suivant la dernière http://cjoint.com/?CJBqbh8eGU1
après je passe définitivement la main a Dranreb où un autre
Pascal

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 27 Octobre 2013

• #20

Re : ligne à repeter en bas excel

Re,

Dranreb comment je dois procéder?

a+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 27 Octobre 2013

• #21

Re : ligne à repeter en bas excel

Merci Pascal mais toujours pareil

a+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Octobre 2013

• #22

Re : ligne à repeter en bas excel

Connais pas les manœuvres en Excel 2007.
Alors essayez aussi ça :

VB:

Sub TestSP()
SautsDePages Feuil1, 20
Feuil1.PrintPreview
End Sub

Sub SautsDePages(ByVal F As Worksheet, ByVal NbLignesPPageMax As Long)
Dim ZImpr As Range, ZEnt As Range, LDéb As Long, LAprèsFin As Long, _
   NbLignes As Long, NbPg As Long, NbLpP As Long, L As Long
On Error Resume Next
Set ZImpr = F.Range(F.PageSetup.PrintArea)
If Err Then MsgBox "Veuillez définir une zone d'impression" _
   & vbLf & "sur la feuille """ & F.Name & """.", vbCritical, "SautsDePages": Exit Sub
Set ZEnt = F.Range(F.PageSetup.PrintTitleRows)
On Error GoTo 0
If Not ZEnt Is Nothing Then LDéb = ZEnt.Row + ZEnt.Rows.Count Else LDéb = ZImpr.Row
LAprèsFin = ZImpr.Row + ZImpr.Rows.Count
NbLignes = LAprèsFin - LDéb
NbPg = ((NbLignes + NbLignesPPageMax - 1) \ NbLignesPPageMax)
NbLpP = NbLignes \ NbPg: If NbLpP * NbPg < NbLignes Then NbLpP = NbLpP + 1
F.ResetAllPageBreaks
L = LDéb: Do: L = L + NbLpP: If L >= LAprèsFin Then Exit Sub
   F.HPageBreaks.Add F.Rows(L): Loop
End Sub

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 27 Octobre 2013

• #23

Re : ligne à repeter en bas excel

Merci Danreb

Par contre je bloque à un msgbox du genre veuillez définir une zone d'impression, qu'est ce que je dois faire exactement?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Octobre 2013

• #24

Re : ligne à repeter en bas excel

Définir une zone d'impression.
En Excel 2003 menus Fichier, Mise en page…, onglet Feuille, rubrique Zone d'impression.
Vous avez bien défini des lignes à répéter en haut sur chaque page. Ça doit être à peu près au même endroit.

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 27 Octobre 2013

• #25

Re : ligne à repeter en bas excel

bonsoir

dranreb j'ai essayer ton code dans son fichier et il fonctionne mieux que celui que j'ai donné
mais

Code:

SautsDePages Feuil1, 20

que veux dire Feuil1, 20
Pascal

 

Dernière édition: 27 Octobre 2013

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Octobre 2013

• #26

Re : ligne à repeter en bas excel

F:=Feuil1 c'est un objet Worksheet dont le nom est repris de la rubrique Microsoft Excel Objet du projet VBA, à gauche du nom Excel de la feuille rappelé entre parenthèses.
NbLignesPPageMax:=20 est le nombre de ligne maxi qu'on souhaite dans chaque page.

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 27 Octobre 2013

• #27

Re : ligne à repeter en bas excel

re
merci pour ton explication

Pascal

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 27 Octobre 2013

• #28

Re : ligne à repeter en bas excel

Bonsoir,

Danreb : il faut définir quel cellule?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Octobre 2013

• #29

Re : ligne à repeter en bas excel

Je ne comprend pas la question. Il n'y a pas à définir de cellule. Il y a la plage rectangulaire à imprimer qu’il faut définir comme zone d'impression pour qu'on en connaisse la fin pour calculer le nombre de pages nécessaires en fonction du nombre de lignes maxi désirées dans chacune. Pour la définir sur la plage utilisée de la feuille vous pouvez utiliser cette macro :

VB:

Sub ZImpPlageUtilisée()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
End Sub

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 28 Octobre 2013

• #30

Re : ligne à repeter en bas excel

Bonjour le fil,

Danreb j' ai tout essayé mais je me retrouve avec un document à 26 pages

Tu auras pas un exemple de fichier à me donner ?

J'espère que c'est pas à cause de ma version d'office

A+

 

Vote positif 0 Vote négatif