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

aprecu avant impression

  • 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
bonjour, svp j'ai besoin de votre aide,
je suis un débutant en vb, j'ai besoin d'activer l'apercu avant d'impression selon un optionbutton mais ca marche pas, c'est quoi mon erreur? merci
voila le code
Code:
Private Sub CommandButton1_Click() 'Aperçu avant impression 
If OptionButton1 Then
Me.Hide
Worksheets("effet").PrintPreview
Me.Show
If OptionButton2 Then
Me.Hide
Worksheets("cheque").PrintPreview
Me.Show
End If
End If
End Sub
 
Re : aprecu avant impression

Bonjour,

Mets un fichier car là c'est un peu compliqué à répondre. Tu devrais plutôt créer un formulaire contenant 2 boutons et en cliquant sur l'un tu aurais l'aperçu. type :
sub 1
userform1.show 0
end sub

Et dans ton formulaire une textbox demandant quelle feuille imprimer, 2 boutons et pour chaque bouton le code suivant

Private Sub CommandButton1 (=> ou 2)_Click()
sheets("effet"=> ou "chèque").PrintPreview
end sub

En espérant que cela va t'aider...
 
Re : aprecu avant impression

merci pour votre reponse,
en effet, j'ai deux optionbutton, et chaque bouton sera consacré a l'affichage d'une des deux feuilles, merci encore voila le code que j'ai remis

j'aimerai que ces deux feuilles soient masqué et je ne sais pas si ca sera possible ou pas j'aimerai avoir une aide dans ce cadre merci


Code:
Private Sub CommandButton1_Click() 'Aperçu avant impression de la Feuil1
If OptionButton1.Value = True Then
NomFeuil = "effet"
UserForm1.Hide
Worksheets("effet").PrintPreview
Me.Show
ElseIf OptionButton2.Value = True Then
NomFeuil = "cheque"
UserForm1.Hide
Worksheets("cheque").PrintPreview
Me.Show
End If
End Sub
 
Dernière édition:
Re : aprecu avant impression

bonjour Supercrapaud
Hicham

Private Sub CommandButton1_Click() 'Aperçu avant impression de la Feuil1
Dim NomFeuil as string

If OptionButton1.Value = True Then
NomFeuil = "effet"
ElseIf OptionButton2.Value = True Then
NomFeuil = "cheque"
End If

Me.Hide'feuille userform
Worksheets(NomFeuil).PrintPreview
UserForm1.Show'hors feuille userform
End Sub

à bientôt
 
- 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
7
Affichages
366
Réponses
4
Affichages
715
N
Réponses
6
Affichages
2 K
Réponses
2
Affichages
361
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…