XL 2010 Imprimer avec paramètres et affichage initial

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Orson83
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

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
766
stuka
S
O
  • Question 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 3
Réponses
35
Affichages
2 K
olivier1984
O
Etoto
  • Résolu(e)
XL 2016 Macro impression multiple avec incrémentation de dates
Réponses
6
Affichages
1 K
Etoto
Etoto
A
  • Question Question
Excel Code VBA ouvrir et imprimer publipostage sur PUBLISHER
Réponses
6
Affichages
3 K
aitelhachmi
A
Orson83
  • Question Question
XL 2010 Macro imprimer, masquer et compacter des lignes
2
Réponses
17
Affichages
3 K
Orson83
Orson83
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
R
  • Question Question
Microsoft 365 pb avec format "texte"/"nombre"
Réponses
4
Affichages
3 K
rafi93
R
B
  • Question Question
Impression de pages à la suite avec répétition de l'entête
Réponses
1
Affichages
918
Modeste geedee
Modeste geedee
Vindediou
  • Question Question
comment imprimer un excel en word comme avec l'impression pdf
2
Réponses
15
Affichages
4 K
Robert
Robert
D
  • Question Question
Projet de recherche et transfert semi-automatique de données Excel
Réponses
10
Affichages
2 K
jeanba
jeanba
A
  • Question Question
affichage en 3D de trois tableaux
2
Réponses
17
Affichages
2 K
AzoR
A
V
  • Question Question
Copiage de ligne selon double critère (date et présence dans une liste)
Réponses
0
Affichages
832
Victorien
V
E
  • Question Question
récupération et modification des données à partir des USFS
Réponses
2
Affichages
828
E2zri
E
N
  • Question Question
Remplir ligne excel spécifique avec informations textbox
Réponses
8
Affichages
3 K
Pierrot93
Pierrot93
pascal21
  • Question Question
imprimer une ligne d'en-têtes et un nbre variable de lignes sur la même feuille
Réponses
1
Affichages
1 K
pascal21
pascal21
troopers87
  • Question Question
Imprimer par macro et gérer les sauts de page
Réponses
2
Affichages
1 K
troopers87
troopers87
O
  • Question Question
Boutons et cases à cocher pour imprimer
Réponses
2
Affichages
12 K
oveg63
O
zorglubxp
  • Question Question
Planning multi-rôle et mono-feuille ( « time-line » unique de 13 mois)
Réponses
8
Affichages
11 K
zorglubxp
zorglubxp
M
  • Question Question
Impression Excel, en PDF, avec Adobe PDF
Réponses
2
Affichages
2 K
madlolo
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
Retour