Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

apercu avant impression feuille masqué

  • Initiateur de la discussion Initiateur de la discussion hicham28
  • 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 !

hicham28

XLDnaute Occasionnel
bonsoir a vous, merci en avance de votre aide,
mon problmes se resume que j'aimerai affichier avoir une aprecu avant impression de deux feuilles masqué: effet et cheque, voila mon code
et merci
Code:
Private Sub Apercu_Click() 'Aperçu avant impression de la Feuil1
If Effet.Value = True Then
NomFeuil = "effet"
UserForm1.Hide
Worksheets("effet").PrintPreview
Me.Show
ElseIf Cheque.Value = True Then
NomFeuil = "cheque"
UserForm1.Hide
Worksheets("cheque").PrintPreview
Me.Show
Else
MsgBox ("vous devez choisir une feuille")
End If
End Sub
 
Re : apercu avant impression feuille masqué

Bonjour Hicham28,

Tu dois obligatoirement afficher la feuille avant de faire un apperçu avant impression 😉

Code:
Private Sub Apercu_Click()  'Aperçu avant impression de la Feuil1
  If Effet.Value = True Then
    NomFeuil = "effet"
    UserForm1.Hide
    With Worksheets("effet")
      .Visible = True
      .PrintPreview
      .Visible = False
    End With
    Me.Show
  ElseIf Cheque.Value = True Then
    NomFeuil = "cheque"
    UserForm1.Hide
    With Worksheets("cheque")
      .Visible = True
      .PrintPreview
      .Visible = False
    End With
    Me.Show
  Else
    MsgBox ("vous devez choisir une feuille")
  End If
End Sub

A+
 
Re : apercu avant impression feuille masqué

bonjour, une autre question svp, comment faire pour activé une feuille apres la fin de l'apreçu, avec activate ca n'as pas marché, et je ne comprends pas pk,
merci
 
- 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

Réponses
11
Affichages
1 K
F
Réponses
6
Affichages
778
F
R
Réponses
9
Affichages
8 K
Compte Supprimé 979
C
Réponses
0
Affichages
743
C
Réponses
3
Affichages
3 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…