Discussion :

[matthieu.rolland]

Bonjour,

Dans un tableau Excel, j'ai une colonne on va dire C dont les valeurs se répètent assez souvent. Après avoir trié les valeurs de cette colonne, j'aimerais sortir des impressions en ayant un saut de page à chaque nouvelle valeur.

Cordialement,

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
    For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
        If Cells(i, 3) <> Cells(i + 1, 3) Then
        ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 3)
        End If
    Next i
    ActiveSheet.Printout

[matthieu.rolland]

Merci n'y connaissant pas grand chose en VBA, j'ai regardé un peu le contenu et je pense avoir compris le fonctionnement, en regardant sur le net j'ai remplacé la ligne ActiveSheet.PrintOut par l’aperçu avant impression
Application.Dialogs(xlDialogPrintPreview).Show et j'ai désactivé la ligne ActiveSheet.PrintOut.

Merci

[Daniel.C]

Au lieu de :

Code :

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

Application.Dialogs(xlDialogPrintPreview).Show

tu peux utiliser :

Code :

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

ActiveSheet.PrintPreview