XL 2010 Imprimer avec paramètres et affichage initial

Orson83

Orson83

XLDnaute Impliqué
Bonjour à tous,
Je cherche à imprimer des feuilles avec des paramètres spécifiques courants.
Les paramètres s'applique correctement mais que les feuilles ne se retrouvent pas dans leur état initial.
J'ai codé les paramètres VBA pour la page Stats générales que je souhaiterai appliquer pour l'impression.
Après l'impression, j'aimerai que la ou les pages se retrouvent avec leur affichage de départ.
Je joins mon fichier exemple dans ce post.
Merci pour votre aide.
Tchotchodu31
 

Pièces jointes

  • Exemple V1.xlsm
    37.7 KB · Affichages: 11
Solution
Phil69970
Tchotchodu31, le forum

Le principe est simple du cache les lignes que tu veux tu lances l'impression et du démasques les lignes avant de sortir ...
VB: 
'****************************************
'IMPRIMER 3 PAGES DEPUIS LA PAGE ACCUEIL
'MERCI A Rag02700 POUR LE CODAGE INITIAL
'****************************************
Sub ButtonPrintStats()
Dim bStatP As Boolean, bStatM As Boolean, bStatG As Boolean

'**********
'LES LIGNES A MASQUER SONT ICI
Sheets("Stats population").Range("12:13").EntireRow.Hidden = True
'***********'

If Sheets("Stats population").Visible = True Then bStatP = True Else Sheets("Stats population").Visible = True
If Sheets("Stats métiers").Visible = True Then bStatM = True Else Sheets("Stats métiers").Visible = True
If...
Trier par date Trier par votes
Phil69970

Phil69970

XLDnaute Barbatruc
Tchotchodu31, le forum

Le principe est simple du cache les lignes que tu veux tu lances l'impression et du démasques les lignes avant de sortir ...
VB: 
'****************************************
'IMPRIMER 3 PAGES DEPUIS LA PAGE ACCUEIL
'MERCI A Rag02700 POUR LE CODAGE INITIAL
'****************************************
Sub ButtonPrintStats()
Dim bStatP As Boolean, bStatM As Boolean, bStatG As Boolean

'**********
'LES LIGNES A MASQUER SONT ICI
Sheets("Stats population").Range("12:13").EntireRow.Hidden = True
'***********'

If Sheets("Stats population").Visible = True Then bStatP = True Else Sheets("Stats population").Visible = True
If Sheets("Stats métiers").Visible = True Then bStatM = True Else Sheets("Stats métiers").Visible = True
If Sheets("Stats générales").Visible = True Then bStatG = True Else Sheets("Stats générales").Visible = True

'Feuil2.Copy '???
'With Sheets("Stats population") 'Paramètres pour l'impression. Doit revenir à l'état d'origine après l'impression
        '.[12:13].EntireRow.Hidden = True 'Masque des lignes
        '.[9:10].EntireRow.Interior.ColorIndex = xlNone 'Intérieur incolore des lignes
        '.[D15:E15,G15:H15].Interior.Color = [A1].Interior.Color 'Colore la plage en blanc selon la cellule [A1] non masquée
        '.[D15:E15,G15:H15].Font.ColorIndex = 1 'Données renseignées - Colore le texte en noir (1 = noir)
        '.[D15:E15,G15:H15].Borders.LineStyle = xlNone 'Bordures de cellules incolores

With Sheets("Stats population").PageSetup
            .Zoom = False
            .PrintArea = "C4:M26" 'Zone d'impression
            .LeftMargin = Application.InchesToPoints(0.5) 'Marge gauche
            .RightMargin = Application.InchesToPoints(0.8)  'Marge droite
            .TopMargin = Application.InchesToPoints(0.8) 'Marge haut de page ou top
            .BottomMargin = Application.InchesToPoints(0.8) 'Marge bas de page si nécessaire
            .FitToPagesWide = 1 'Définit le nombre de pages à l’échelle
            .FitToPagesTall = 1 'Définit le nombre de pages en hauteur
            .Orientation = xlLandscape 'Portrait = xlPortrait ou Paysage = xlLandscape
            Application.Goto Sheets("Stats population").Range("A1") 'Remonte en haut de la page
            Application.Goto Sheets("Stats population").Range("F6") 'Se position dans la cellule
        'End With
End With

With Sheets("Stats métiers").PageSetup
            .Zoom = False
            .PrintArea = "D5:N27" 'Zone d'impression
            .LeftMargin = Application.InchesToPoints(0.8) 'Marge gauche
            .RightMargin = Application.InchesToPoints(0.1)  'Marge droite
            .TopMargin = Application.InchesToPoints(0.8) 'Marge haut de page ou top
            .BottomMargin = Application.InchesToPoints(0.8) 'Marge bas de page si nécessaire
            .FitToPagesWide = 1 'Définit le nombre de pages à l’échelle
            .FitToPagesTall = 1 'Définit le nombre de pages en hauteur
            .Orientation = xlLandscape 'Portrait = xlPortrait ou Paysage = xlLandscape
End With

With Sheets("Stats générales").PageSetup
            .Zoom = False
            .PrintArea = "E6:O28" 'Zone d'impression
            .LeftMargin = Application.InchesToPoints(0.8) 'Marge gauche
            .RightMargin = Application.InchesToPoints(0.1)  'Marge droite
            .TopMargin = Application.InchesToPoints(0.8) 'Marge haut de page ou top
            .BottomMargin = Application.InchesToPoints(0.8) 'Marge bas de page si nécessaire
            .FitToPagesWide = 1 'Définit le nombre de pages à l’échelle
            .FitToPagesTall = 1 'Définit le nombre de pages en hauteur
            .Orientation = xlLandscape 'Portrait = xlPortrait ou Paysage = xlLandscape
End With

Sheets(Array("Stats population", "Stats métiers", "Stats générales")).PrintPreview 'Prévisualiser

'**********
'LES LIGNES A DEMASQUER SONT ICI
Sheets("Stats population").Range("12:13").EntireRow.Hidden = False
'**********

Sheets("Stats métiers").Visible = bStatM
Sheets("Stats générales").Visible = bStatG

Sheets("Accueil").Select

End Sub

@Phil69970
 
Vote positif 0 Vote négatif
Solution
Orson83

Orson83

XLDnaute Impliqué
Phil69970 à dit:
Tchotchodu31, le forum

Le principe est simple du cache les lignes que tu veux tu lances l'impression et du démasques les lignes avant de sortir ...
VB: 
'****************************************
'IMPRIMER 3 PAGES DEPUIS LA PAGE ACCUEIL
'MERCI A Rag02700 POUR LE CODAGE INITIAL
'****************************************
Sub ButtonPrintStats()
Dim bStatP As Boolean, bStatM As Boolean, bStatG As Boolean

'**********
'LES LIGNES A MASQUER SONT ICI
Sheets("Stats population").Range("12:13").EntireRow.Hidden = True
'***********'

If Sheets("Stats population").Visible = True Then bStatP = True Else Sheets("Stats population").Visible = True
If Sheets("Stats métiers").Visible = True Then bStatM = True Else Sheets("Stats métiers").Visible = True
If Sheets("Stats générales").Visible = True Then bStatG = True Else Sheets("Stats générales").Visible = True

'Feuil2.Copy '???
'With Sheets("Stats population") 'Paramètres pour l'impression. Doit revenir à l'état d'origine après l'impression
        '.[12:13].EntireRow.Hidden = True 'Masque des lignes
        '.[9:10].EntireRow.Interior.ColorIndex = xlNone 'Intérieur incolore des lignes
        '.[D15:E15,G15:H15].Interior.Color = [A1].Interior.Color 'Colore la plage en blanc selon la cellule [A1] non masquée
        '.[D15:E15,G15:H15].Font.ColorIndex = 1 'Données renseignées - Colore le texte en noir (1 = noir)
        '.[D15:E15,G15:H15].Borders.LineStyle = xlNone 'Bordures de cellules incolores

With Sheets("Stats population").PageSetup
            .Zoom = False
            .PrintArea = "C4:M26" 'Zone d'impression
            .LeftMargin = Application.InchesToPoints(0.5) 'Marge gauche
            .RightMargin = Application.InchesToPoints(0.8)  'Marge droite
            .TopMargin = Application.InchesToPoints(0.8) 'Marge haut de page ou top
            .BottomMargin = Application.InchesToPoints(0.8) 'Marge bas de page si nécessaire
            .FitToPagesWide = 1 'Définit le nombre de pages à l’échelle
            .FitToPagesTall = 1 'Définit le nombre de pages en hauteur
            .Orientation = xlLandscape 'Portrait = xlPortrait ou Paysage = xlLandscape
            Application.Goto Sheets("Stats population").Range("A1") 'Remonte en haut de la page
            Application.Goto Sheets("Stats population").Range("F6") 'Se position dans la cellule
        'End With
End With

With Sheets("Stats métiers").PageSetup
            .Zoom = False
            .PrintArea = "D5:N27" 'Zone d'impression
            .LeftMargin = Application.InchesToPoints(0.8) 'Marge gauche
            .RightMargin = Application.InchesToPoints(0.1)  'Marge droite
            .TopMargin = Application.InchesToPoints(0.8) 'Marge haut de page ou top
            .BottomMargin = Application.InchesToPoints(0.8) 'Marge bas de page si nécessaire
            .FitToPagesWide = 1 'Définit le nombre de pages à l’échelle
            .FitToPagesTall = 1 'Définit le nombre de pages en hauteur
            .Orientation = xlLandscape 'Portrait = xlPortrait ou Paysage = xlLandscape
End With

With Sheets("Stats générales").PageSetup
            .Zoom = False
            .PrintArea = "E6:O28" 'Zone d'impression
            .LeftMargin = Application.InchesToPoints(0.8) 'Marge gauche
            .RightMargin = Application.InchesToPoints(0.1)  'Marge droite
            .TopMargin = Application.InchesToPoints(0.8) 'Marge haut de page ou top
            .BottomMargin = Application.InchesToPoints(0.8) 'Marge bas de page si nécessaire
            .FitToPagesWide = 1 'Définit le nombre de pages à l’échelle
            .FitToPagesTall = 1 'Définit le nombre de pages en hauteur
            .Orientation = xlLandscape 'Portrait = xlPortrait ou Paysage = xlLandscape
End With

Sheets(Array("Stats population", "Stats métiers", "Stats générales")).PrintPreview 'Prévisualiser

'**********
'LES LIGNES A DEMASQUER SONT ICI
Sheets("Stats population").Range("12:13").EntireRow.Hidden = False
'**********

Sheets("Stats métiers").Visible = bStatM
Sheets("Stats générales").Visible = bStatG

Sheets("Accueil").Select

End Sub

@Phil69970
Cliquez pour agrandir...

Merci Phil69970,

J'ai pu adapter les autres arguments ci-dessous :

VB: 
 .[9:10].EntireRow.Interior.ColorIndex = xlNone 'Intérieur incolore des lignes
 .[D15:E15,G15:H15].Interior.Color = [A1].Interior.Color 'Colore la plage en blanc selon la cellule [A1] non masquée
 .[D15:E15,G15:H15].Font.ColorIndex = 1 'Données renseignées - Colore le texte en noir (1 = noir)
 .[D15:E15,G15:H15].Borders.LineStyle = xlNone 'Bordures de cellules incolores

Merci pour ton aide.

Très bonne soirée.

Tchotchodu31
 
Vote positif 0 Vote négatif

Discussions similaires

S
  • Résolu(e)
XL 2016 Comment classer des résultats avec attributs et couleurs et avoir la somme des classes sur une feuille Excel?
Réponses
6
Affichages
612
stuka
S
O
  • Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2
Réponses
25
Affichages
472
olivier1984
O
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
441
GClaire
G
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
390
Webperegrino
W
B
  • Question
Microsoft 365 Remplacer "." par "," avec VBA sans qu'il considère que c'est des milliers si ça ne commence par "0."
Réponses
1
Affichages
525
Eric KERGRESSE
E
T
  • Question
Microsoft 365 Import de données et liaisons entre classeurs
Réponses
14
Affichages
764
TCHIS
T
L
  • Question
Microsoft 365 Rechercher des valeurs dans un tableau et modifier celles-ci
Réponses
9
Affichages
691
Louloulou4
L
Etoto
  • Résolu(e)
XL 2016 Macro impression multiple avec incrémentation de dates
Réponses
6
Affichages
1 K
Etoto
Etoto
M
  • Question
XL 2016 Probleme creation d,un tableur avec diagramme de gant pour planification de plusieurs stagiaires avec plusieurs affectations (milieu hospitalier)
Réponses
2
Affichages
887
p56
p56
P
  • Question
XL 2019 Enregistrer et imprimer une feuille en pdf
Réponses
9
Affichages
2 K
PeewhY
P

Membres actuellement en ligne

4 membres et 43 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 771
Messages
2 112 768
Membres
111 653
dernier inscrit
Vanie0082