Discussion :

[nibledispo]

bonjour,

Ma solution souffrait un inconvénient pour un nombre de lignes situé entre 50 et 100.

la solution ci-dessous encore plus simplifiée donne totale satisfaction selon mes essais
cerise sur le gateau, les deux lignes précédemment rajoutées après feuil2............. deviennent inutiles.

je pense que c'est ce que voulait faire comprendre Bbil en écrivant : "ben je crois que tu as la solution"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Last = Feuil2.Range("A" & Application.Rows.Count).End(xlUp).Row
If Feuil2.Cells(Last, "A") <> "Total Général" Then
    Feuil2.Cells(Last + 1, "A").EntireRow.Insert (xlShiftDown) '**Permet d'étendre la zone d'impression
    Feuil2.Cells(Last + 1, "A") = "Total Général"
 
    With Feuil2.Range(Feuil2.Cells(Last + 1, "A"), Feuil2.Cells(Last + 1, "E"))
            .Interior.ColorIndex = 45
            .Font.Bold = True
    End With
 
    If I = 0 Then Set Cpb = Feuil2.Cells(2, 1)
    Feuil2.Cells(Last + 1, "C") = "=SUM(C" & WorksheetFunction.Max(9, Cpb.Row - 2) & ":C" & Last & ")+C5"
    Feuil2.Cells(Last + 1, "D") = "=SUM(D" & WorksheetFunction.Max(9, Cpb.Row - 2) & ":D" & Last & ")+D5"
    Feuil2.Cells(Last + 1, "E") = "=SUM(E" & WorksheetFunction.Max(9, Cpb.Row - 2) & ":E" & Last & ")+E5"
End If

Cordialement

[BERRACHED SAID]

Bonjour le forum Bonjour nibledispo

j'ai essayé la partie que tu as modifier je ne sais si tu l'a remarqué il fait ressortir des différence dans les montants il calcule pas bien.

de ma part je vais me pencher la dessus pour voir d'ou vienne cette erreur.

merci

[nibledispo]

bonjour,

Je n'ai pas constaté de calculs erronés sur les essais que j'ai fait.

Par contre, j'ai constaté un comportement erratique de la boucle "for pb in .....".
A savoir, que souvent elle ne fait qu'un premier passage et de ce fait ignore certains sous totaux.
Je suis allé voir dans l'aide EXCEL et j'ai recopié l'exemple donné. le comportement semble tout aussi aléatoire.

Peut-être des membres du forum pourraient-ils répondre à ce hic.

En attendant, je pense qu'il serait préférable de boucler sur le résultat entier de la division "nbr lignes fichier / nbr lignes page".

code de l'aide microsoft:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub essai()
Feuil1.Select
 
ActiveSheet.ResetAllPageBreaks   'mon ajout qui semble avoir amélioré le comportement
'Range("a2").CurrentRegion.Select
Feuil1.PageSetup.PrintArea = "$A$1:" & Range("E" & Rows.Count).End(xlUp).Address 'mon ajout
cfull = 0: cpartial = 0
For Each pb In Feuil1.HPageBreaks
    If pb.Extent = xlPageBreakPartial Then
        cfull = cfull + 1
    Else
        cpartial = cpartial + 1
    End If
Next
MsgBox cfull & " full-screen page breaks, " & cpartial & _
    " print-area page breaks"
 
End Sub

cordialement,

[nibledispo]

re.....,

Problème sous totaux au comportement erratique.
Il parait certain que cela ne fonctionne correctement que si l'ensemble du fichier est visible à l'écran.
Pour ce faire, rajouter les trois premières lignes du code ci-dessous avant l'instruction existante (4ème ligne) décrivant l'adresse de la plage à imprimer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Feuil2.ResetAllPageBreaks  'purge les sauts de page existants
Feuil2.Range("a2").CurrentRegion.Select 'selection l'ensemble du fichier
ActiveWindow.Zoom = True  'fait un zoom total
Feuil2.PageSetup.PrintArea = "$A$2:" & Range("E" & Rows.Count).End(xlUp).Address '"$F$52"

A la sortie restituer un zoom 100%

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWindow.Zoom = 100
End Sub

Sinon, j'ai recontrôlé les résultats: pour ce qui me concerne, ils sont bons.

Par contre, il y a un réglage à faire sur la position des sous totaux et des reports.
En effet, le premier sous total additionne 50 cellules et les suivants 48 cellules.
Même si l'on tient compte du fait que le calcul commence à la deuxième ligne, il reste un écart de 1 ligne.

cordialement.