bonsoir à tous
je cherche à faire l'impression d'un classeur avec 1 mise en page
(automatique)des onglets en fonction du nbre de lignes
comme c'est de la compta j'aimerai que en fin page il y ait un total et un
report en debut de page
je voudrais également que dans la partie données une ligne sur deux ait un
fond jaune
j'ai trouvé des exemples qui vont me guider sur les sites suivants, pour
enlever les lignes vides,pour faire les entete, les pieds de page
Voir exemple dans PJ:http://cjoint.com/?ieg5XpyEtO
Sub SautPage4() On Error Resume Next ActiveSheet.ResetAllPageBreaks ' raz Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Delete h = 15 ' hauteur de page [A2].Select Do While ActiveCell <> "" lig = 0 totPage = 0 Do While lig < h And ActiveCell <> "" totPage = totPage + ActiveCell.Offset(0, 2) totGéné = totGéné + ActiveCell.Offset(0, 2) Selection.Resize(1, 4).Interior.ColorIndex = IIf(lig Mod 2 = 1, 2, 36) lig = lig + 1 ActiveCell.Offset(1, 0).Select Loop ActiveCell.EntireRow.Insert ActiveCell = "Total" ActiveCell.Offset(0, 2) = totPage ActiveCell.Offset(0, 3) = totGéné Selection.Resize(1, 4).Font.Bold = True Selection.Resize(1, 4).Interior.ColorIndex = 6 ActiveCell.Offset(1, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
Cordialement JB
bonsoir à tous je cherche à faire l'impression d'un classeur avec 1 mise en page (automatique)des onglets en fonction du nbre de lignes comme c'est de la compta j'aimerai que en fin page il y ait un total et un report en debut de page je voudrais également que dans la partie données une ligne sur deux a it un fond jaune
j'ai trouvé des exemples qui vont me guider sur les sites suivants, po ur enlever les lignes vides,pour faire les entete, les pieds de page
mais tout autre adresse d'exemple sera la bien venue
merci d'avance
Bonjour,
Voir exemple dans PJ:http://cjoint.com/?ieg5XpyEtO
Sub SautPage4()
On Error Resume Next
ActiveSheet.ResetAllPageBreaks ' raz
Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
h = 15 ' hauteur de page
[A2].Select
Do While ActiveCell <> ""
lig = 0
totPage = 0
Do While lig < h And ActiveCell <> ""
totPage = totPage + ActiveCell.Offset(0, 2)
totGéné = totGéné + ActiveCell.Offset(0, 2)
Selection.Resize(1, 4).Interior.ColorIndex = IIf(lig Mod 2 = 1,
2, 36)
lig = lig + 1
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.EntireRow.Insert
ActiveCell = "Total"
ActiveCell.Offset(0, 2) = totPage
ActiveCell.Offset(0, 3) = totGéné
Selection.Resize(1, 4).Font.Bold = True
Selection.Resize(1, 4).Interior.ColorIndex = 6
ActiveCell.Offset(1, 0).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Loop
[A2].Select
End Sub
Cordialement JB
bonsoir à tous
je cherche à faire l'impression d'un classeur avec 1 mise en page
(automatique)des onglets en fonction du nbre de lignes
comme c'est de la compta j'aimerai que en fin page il y ait un total et un
report en debut de page
je voudrais également que dans la partie données une ligne sur deux a it un
fond jaune
j'ai trouvé des exemples qui vont me guider sur les sites suivants, po ur
enlever les lignes vides,pour faire les entete, les pieds de page
Voir exemple dans PJ:http://cjoint.com/?ieg5XpyEtO
Sub SautPage4() On Error Resume Next ActiveSheet.ResetAllPageBreaks ' raz Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Delete h = 15 ' hauteur de page [A2].Select Do While ActiveCell <> "" lig = 0 totPage = 0 Do While lig < h And ActiveCell <> "" totPage = totPage + ActiveCell.Offset(0, 2) totGéné = totGéné + ActiveCell.Offset(0, 2) Selection.Resize(1, 4).Interior.ColorIndex = IIf(lig Mod 2 = 1, 2, 36) lig = lig + 1 ActiveCell.Offset(1, 0).Select Loop ActiveCell.EntireRow.Insert ActiveCell = "Total" ActiveCell.Offset(0, 2) = totPage ActiveCell.Offset(0, 3) = totGéné Selection.Resize(1, 4).Font.Bold = True Selection.Resize(1, 4).Interior.ColorIndex = 6 ActiveCell.Offset(1, 0).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:¬tiveCell Loop [A2].Select End Sub
Cordialement JB
bonsoir à tous je cherche à faire l'impression d'un classeur avec 1 mise en page (automatique)des onglets en fonction du nbre de lignes comme c'est de la compta j'aimerai que en fin page il y ait un total et un report en debut de page je voudrais également que dans la partie données une ligne sur deux a it un fond jaune
j'ai trouvé des exemples qui vont me guider sur les sites suivants, po ur enlever les lignes vides,pour faire les entete, les pieds de page
