Macro apercu avant impression sans page blanche
Bonjour le forum,
J'ai besoin d'un petit coup de main dans excel 2007. Voici ma situation :
1) Mon fichier excel comporte plusieurs fiches : fiche1, fiche2, fiche3... qui correspondent à différents onglets également.
2) J'ai créé un bouton dans un nouvel onglet "synthèse" qui fait apparaitre une pop-up offrant le choix de cocher plusieurs cases, chacune correspondant à une fiche que l'on souhaite faire apparaître sur l'onglet "synthèse".
La macro ne développe que les fiches cochées par des masquer/développer.
3) J'ai ensuite fait une macro qui sélectionne les zones d'impression correspondant aux fiches sur l'onglet "synthèse" puis créé un apercu avant impression.
Le problème : lorsque je ne séléctionne pas certaines fiches, l'apercu affiche des feuilles blanches.
Comment ne faire apparaître dans l'apercu, que des pages pleines (1 page = 1 fiche) ???
Merci d'avance pour votre aide précieuse.
Les codes sont ci-dessous :
Chaque case à cocher possède ce code :
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
'
' AffichFiche1 Macro
'
'
Sheets("Synthèse").Select
Rows("65:106").Select
Selection.EntireRow.Hidden = False
Else
'
' MasqFiche1 Macro
'
'
Sheets("Synthèse").Select
Rows("66:105").Select
Selection.EntireRow.Hidden = True
End If
End Sub
... et le bouton qui exécute l'apercu :
Private Sub CommandButton1_Click()
'
' Apercu Macro
'
'
OptionsImpression.Hide
Range("B2:K24,B41:E61").Select
Range("B41").Activate
ActiveWindow.SmallScroll Down:=5
Range("B2:K24,B41:E61,B76:K100").Select
Range("B76").Activate
Range("B2:K24,B41:E61,B76:K100,B122:P149").Select
Range("B122").Activate
Range("B2:K24,B41:E61,B76:K100,B122:P149,B167:E203").Select
Range("B167").Activate
Range("B2:K24,B41:E61,B76:K100,B122:P149,B167:E203,B217:M230").Select
Range("B217").Activate
Range("B2:K24,B41:E61,B76:K100,B122:P149,B167:E203,B217:M230,B243:D270").Select
Range("B243").Activate
ActiveSheet.PageSetup.PrintArea = _
"$B$2:$K$24,$B$41:$E$61,$B$76:$K$100,$B$122:$P$149,$B$167:$E$203,$B$217:$M$230,$B$243:$D$270"
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Bonjour,
Et
Peux-tu mettre le code que tu utilises, pour visualiser tes pages?
Voire tout le code....
@ te relire