Discussion :

[ToFind]

Bonjour,
Objectif : faire un sous total de la colonne E en fin de chaque page (ligne 60 (=somme de E1 à E59, ligne 120 (=somme de E61 à E119, ligne 180(=somme de E,121 à E179)
Précision : des lignes peuvent être insérées ou supprimées à tout moment, mais le total doit toujours se faire à la même place (soit en bas de page).
Merci de votre aide.

[blepy]

Bonsoir,

Plusieurs façons de répondre du plus simple (c'est relatif !) au très compliqué (passer par des macros de mise en pages et d'impression).
Un façon assez simple, à mon sens, serait d'organiser la feuille en base de donnée, 1ère ligne titre, les autres lignes sont les lignes de données,

En première colonne mettre une formule de haut en bas du type (

Code :

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

=ENT(LIGNE(B2)/60)+1

utiliser 'Données / Sous totaux' A chaque changement de la première colonne en cochant les colonnes à Sommer cocher 'Saut de page entre les groupe et Synthèse sous les données.

Ne pas oublier à chaque insertion de ligne de répéter la formule de la première cellule. Refaire 'Données / Sous Totaux avant chaque impression pour bien réintialiser la mise en page.

Cela me parait le plus simple.

A+

[ToFind]

Merci pour la réponse. Hélas, sauf erreur de ma part, la formule proposée ne fonctionne pas. De plus, j'aimerais obtenir un positionnement du total de fin de page à chaque 60me ligne de manière automatique même en cas d'insertion ou de suppression de ligne.. Je sais que je suis difficile, mais je suppose que ça doit être faisable. Merci encore de votre aide.

[blepy]

Bonjour,
Oui tout est faisable, mais à quel prix !
Là on est pas dans les fonctions basiques d'Excel, c'est ce que l'on pourrait appeler du bricolage.
Cela dit la formule que je te donne marche, il suffit de l'insérer en première colonne et de le recopier jusqu'en bas de la base de donnée.
Après c'est de la manipulation simple de la fonction 'Sous-totaux' du menu 'Données'.
Mets en lien un extrait de ton fichier pour t'en convaincre.

A+

[cafeine]

Hello,

Un exemple de sous-total en bas de page :
ceci suppose d'avoir défini une zone d'impression.
Fonctionne avec la collection HPageBreaks (saut de page horizontaux)

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
19
20
21
22
23
Sub recapPage()
 
Dim pb As HPageBreak
Dim RowStart As Long
 
RowStart = 2
For Each pb In ActiveSheet.HPageBreaks
    Range("O" & pb.Location.Row - 1).FormulaLocal = _
        "=SOMME(P" & RowStart & ":P" & pb.Location.Row - 1 & ")"
    RowStart = pb.Location.Row
Next pb
 
'check s'il y a une zone d'impression
If ActiveSheet.PageSetup.PrintArea & "" <> "" Then
    Range("O" & Range(ActiveSheet.PageSetup.PrintArea).SpecialCells( _
        xlCellTypeLastCell).Row).FormulaLocal = _
        "=SOMME(P" & RowStart & ":P" & Range( _
        ActiveSheet.PageSetup.PrintArea).SpecialCells(xlCellTypeLastCell).Row & ")"
End If
 
Set pb = Nothing
 
End Sub

[Daranc]

en colonne F

Code :

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

=SI(LIGNE()/61=ENT(LIGNE()/61);SOMME(INDIRECT(CONCATENER("e";LIGNE()-60;":e";LIGNE()-1)));"")

renvoyez la formule le long de la colonne F