Sous-totaux sur la dernière ligne avant changement de page

Bonsoir le Forum,

J'ai projet qui a été réalisé par Job75....

Mon problèmes, j'ai des sous-totaux qui apparaissent toutes les 30 lignes....

J'aimerais que ces sous-totaux se mettent à chaque fois sur la dernière ligne de chaque page...j'ai bouton qui permet d'afficher ou de masquer ces sous-totaux....

j'ai essayé d'introduire ce code qui calcule chaque dernière ligne de chaque page

[Inline

]Public Sub Test()

Dim Sauts_naturels, num_cells, I As Long, ca

With ActiveSheet

Set ca = ActiveCell

.Cells(Rows.Count, 1).Select

Sauts_naturels = .HPageBreaks.Count

For I = 1 To Sauts_naturels

num_cells = .HPageBreaks(I).Location.Row

.Cells(num_cells - 1, 11).Value = .HPageBreaks(I).Location.Row - 1

Next I

End With

ca.Select

End Sub

[/Inline]

Le problème, je sais pas ou le mettre et l'adapter.....

Je sollicite donc votre aide.....

Merci d'avance

Bonsoir le Forum,

Personne pour une petite aide....

Merci

Bonsoir le Forum,

Toujours personne pour une petite aide....

Oli