XL 2019 Ajouter un " aperçu avant impression " à ce code

Yann71

Yann71

XLDnaute Occasionnel
Bonjour, me voici confronté à ce problème. J'ai un Userform où se trouve des cases à cocher
permettant de choisir les feuilles à imprimer. Mais le problème réside qu'avec ce code
je n'ai pas la possibilité de faire un aperçu avant impression. J'ai déjà chercher ici et ailleurs,
mais rien de fonctionne. Merci pour votre futur aide.


'Private Sub UserForm_Activate()
'With frm_imprimer_janvier
'.StartUpPosition = 3
'.Width = Application.Width
'.Height = Application.Height
'.Left = 0
'.Top = 0
'End With
'End Sub


'***********************************************

Private Sub CheckBox4_Click() 'N°4
If CheckBox4.Value = True Then 'Si coché ...
Range("bd2") = "Coché"
Else 'Si non coché ...
Range("bd2") = "Non coché"
End If
End Sub

Private Sub CheckBox5_Click() 'N°5
If CheckBox5.Value = True Then 'Si coché ...
Range("be2") = "Coché"
Else 'Si non coché ...
Range("be2") = "Non coché"
End If
End Sub

Private Sub CheckBox6_Click() 'N°6
If CheckBox6.Value = True Then 'Si coché ...
Range("bf2") = "Coché"
Else 'Si non coché ...
Range("bf2") = "Non coché"
End If
End Sub

Private Sub CheckBox7_Click() 'N°7
If CheckBox6.Value = True Then 'Si coché ...
Range("bg2") = "Coché"
Else 'Si non coché ...
Range("bg2") = "Non coché"
End If

End Sub

Private Sub CommandButton2_Click()

Dim Ind As Integer
For Ind = 1 To 7
If Me("CheckBox" & Ind).Value = True Then
Sheets(Sheets("Imprimer").Range("I" & 14 + Ind).Value).PrintOut Copies:=1
End If
Next Ind
End Sub



Private Sub CommandButton3_Click()

CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
CheckBox7.Value = False


End Sub

Private Sub UserForm_Initialize() 'Valeurs initiales des cases à cocher


TextBox1 = Sheets("Imprimer").Range("I15")
TextBox2 = Sheets("Imprimer").Range("I16")
TextBox3 = Sheets("Imprimer").Range("I17")
TextBox4 = Sheets("Imprimer").Range("I18")
TextBox5 = Sheets("Imprimer").Range("I19")
TextBox6 = Sheets("Imprimer").Range("I20")
TextBox7 = Sheets("Imprimer").Range("I21")

If Range("BA2") = "Coché" Then
CheckBox1.Value = True
End If

If Range("BB2") = "Coché" Then
CheckBox2.Value = True
End If

If Range("BC2") = "Coché" Then
CheckBox3.Value = True
End If

If Range("Bd2") = "Coché" Then
CheckBox4.Value = True
End If

If Range("Be2") = "Coché" Then
CheckBox5.Value = True
End If

If Range("Bf2") = "Coché" Then
CheckBox6.Value = True
End If

If Range("Bg2") = "Coché" Then
CheckBox7.Value = True
End If

End Sub

Private Sub CheckBox1_Click() 'N°1

If CheckBox1.Value = True Then 'Si coché ...
Range("BA2") = "Coché"
Else 'Si non coché ...
Range("BA2") = "Non coché"
End If
End Sub

Private Sub CheckBox2_Click() 'N°2
If CheckBox2.Value = True Then 'Si coché ...
Range("BB2") = "Coché"
Else 'Si non coché ...
Range("BB2") = "Non coché"
End If
End Sub

Private Sub CheckBox3_Click() 'N°3
If CheckBox3.Value = True Then 'Si coché ...
Range("BC2") = "Coché"
Else 'Si non coché ...
Range("BC2") = "Non coché"
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me 'Fermeture

Range("BA1").Select
ActiveCell.FormulaR1C1 = "Non coché"
Range("BA1").Select
Selection.AutoFill Destination:=Range("BA1:BA2"), Type:=xlFillDefault
Range("BA1:BA2").Select
Selection.AutoFill Destination:=Range("BA1:BG2"), Type:=xlFillDefault
Range("BA1:BG2").Select
Range("A1").Select





End Sub
 
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
bonjour
il y a largement plus simple a faire
faut il avoir un exemple de fichier

en attendant ton fichier j'ai quand même fait un nettoyage de code
et pour info
PrintOut=imprimer
PrintPreview = appercu avant impression
VB: 
'Private Sub UserForm_Activate()
'With frm_imprimer_janvier
'.StartUpPosition = 3
'.Width = Application.Width
'.Height = Application.Height
'.Left = 0
'.Top = 0
'End With
'End Sub


'***********************************************

Private Sub CommandButton2_Click()
    Dim Ind As Integer
    For Ind = 1 To 7
        If Me.Controls("CheckBox" & Ind).Value = True Then
            Sheets(Sheets("Imprimer").Range("I" & 14 + Ind).Value).PrintOut Copies:=1
            ' si tu veux l'apercu c'est PrintPreview à la place de PrintOut
        End If
    Next Ind
End Sub

Private Sub CommandButton3_Click()
    Dim I&
    For I = 1 To 7: Me.Controls("CheckBox" & I).Value = False: Next
End Sub

Private Sub UserForm_Initialize()    'Valeurs initiales des cases à cocher
    Dim I&, SH As Worksheet
     Set SH = Sheets("Imprimer")
  For I = 1 To 7
        Me.Controls("TextBox" & I) = SH.Range("I" & I + 14)
    Next
     CheckBox1.Value = SH.[BA2] = "Coché"
    CheckBox2.Value = SH.[BB2] = "Coché"
    CheckBox3.Value = SH.[BC2] = "Coché"
    CheckBox4.Value = SH.[BD2] = "Coché"
    CheckBox5.Value = SH.[BE2] = "Coché"
    CheckBox6.Value = SH.[BF2] = "Coché"
    CheckBox7.Value = SH.[Bg2] = "Coché"
End Sub

Sub coche(ByVal check As Object, ByVal rng As Range): rng.Value = Array("non coché", "coché")(check.Value): End Sub
Private Sub CheckBox1_Click(): coche CheckBox1, [BA2]: End Sub
Private Sub CheckBox2_Click(): coche CheckBox2, [BB2]: End Sub
Private Sub CheckBox3_Click(): coche CheckBox3, [BC2]: End Sub
Private Sub CheckBox4_Click(): coche CheckBox4, [BD2]: End Sub
Private Sub CheckBox5_Click(): coche CheckBox5, [BE2]: End Sub
Private Sub CheckBox6_Click(): coche CheckBox6, [BF2]: End Sub
Private Sub CheckBox7_Click(): coche CheckBox7, [Bg2]: End Sub

Private Sub CommandButton1_Click()
    Range("BA1:BG2") = "Non coché"
End Sub
 
Vote positif 0 Vote négatif
Yann71

Yann71

XLDnaute Occasionnel
patricktoulon à dit:
bonjour
il y a largement plus simple a faire
faut il avoir un exemple de fichier

en attendant ton fichier j'ai quand même fait un nettoyage de code
et pour info
PrintOut=imprimer
PrintPreview = appercu avant impression
VB: 
'Private Sub UserForm_Activate()
'With frm_imprimer_janvier
'.StartUpPosition = 3
'.Width = Application.Width
'.Height = Application.Height
'.Left = 0
'.Top = 0
'End With
'End Sub


'***********************************************

Private Sub CommandButton2_Click()
    Dim Ind As Integer
    For Ind = 1 To 7
        If Me.Controls("CheckBox" & Ind).Value = True Then
            Sheets(Sheets("Imprimer").Range("I" & 14 + Ind).Value).PrintOut Copies:=1
            ' si tu veux l'apercu c'est PrintPreview à la place de PrintOut
        End If
    Next Ind
End Sub

Private Sub CommandButton3_Click()
    Dim I&
    For I = 1 To 7: Me.Controls("CheckBox" & I).Value = False: Next
End Sub

Private Sub UserForm_Initialize()    'Valeurs initiales des cases à cocher
    Dim I&, SH As Worksheet
     Set SH = Sheets("Imprimer")
  For I = 1 To 7
        Me.Controls("TextBox" & I) = SH.Range("I" & I + 14)
    Next
     CheckBox1.Value = SH.[BA2] = "Coché"
    CheckBox2.Value = SH.[BB2] = "Coché"
    CheckBox3.Value = SH.[BC2] = "Coché"
    CheckBox4.Value = SH.[BD2] = "Coché"
    CheckBox5.Value = SH.[BE2] = "Coché"
    CheckBox6.Value = SH.[BF2] = "Coché"
    CheckBox7.Value = SH.[Bg2] = "Coché"
End Sub

Sub coche(ByVal check As Object, ByVal rng As Range): rng.Value = Array("non coché", "coché")(check.Value): End Sub
Private Sub CheckBox1_Click(): coche CheckBox1, [BA2]: End Sub
Private Sub CheckBox2_Click(): coche CheckBox2, [BB2]: End Sub
Private Sub CheckBox3_Click(): coche CheckBox3, [BC2]: End Sub
Private Sub CheckBox4_Click(): coche CheckBox4, [BD2]: End Sub
Private Sub CheckBox5_Click(): coche CheckBox5, [BE2]: End Sub
Private Sub CheckBox6_Click(): coche CheckBox6, [BF2]: End Sub
Private Sub CheckBox7_Click(): coche CheckBox7, [Bg2]: End Sub

Private Sub CommandButton1_Click()
    Range("BA1:BG2") = "Non coché"
End Sub
Cliquez pour agrandir...
Bonjour patricktoulon, merci pour ton intervention. Effectivement un fichier se montre être de rigueur. Voici dès lors mon fichier. Le code est associé au bouton avec logo imprimante et ceci sur chaque feuille. J'ai du allégé le fichier car trop volumineux pour l'envoyer en totalité.
 

Pièces jointes

  • Comptabilité_TEST_2.zip
    988 KB · Affichages: 10
Vote positif 0 Vote négatif
Yann71

Yann71

XLDnaute Occasionnel
patricktoulon à dit:
re
a ben là oui tu cour a la catastrophe
36 userform qui font la meme chose ca sert rien tu pourrais simplifier
puré le pauvre classeur :oops: ouff!!!
Cliquez pour agrandir...
euh non pas 36 userform mais 36 commandes qui appellent le même userform. Question simplification je ne suis pas très doué, j'essaie avec le très peut de connaissance que j'ai d'avancer grâce à des codes trouvé ici. Ma question est-il possible de faire quelque chose:rolleyes:
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
tout ces userform font la meme chose pour un mois différent ca peut en etre qu'un seul qui fait tout les mois
1659810275410.png
 
Vote positif 0 Vote négatif

Discussions similaires

P
  • Question
Microsoft 365 problème de filtre avec une checkbox
2
Réponses
18
Affichages
598
ChTi160
ChTi160
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
116
sebastien176
S
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
1 K
Banbara
B
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
302
gillesda
G
M
  • Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
316
Gégé-45550
Gégé-45550
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
116
escudo
E
lynyrd
  • Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
486
AtTheOne
AtTheOne
N
  • Résolu(e)
Microsoft 365 Simplifier un code pour activer ou désactiver des CheckBox
6 7 8
Réponses
115
Affichages
2 K
ChTi160
ChTi160
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
1 K
NONO14
N
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
460
ThierryP
T

Membres actuellement en ligne

3 membres et 49 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 708
Messages
2 112 096
Membres
111 416
dernier inscrit
philipperoy83