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

M
  • Question
Microsoft 365 modifier un code
Réponses
1
Affichages
234
Dranreb
Dranreb
yojema
  • Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
149
Dranreb
Dranreb
P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
318
pat66
P
F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
165
Francky79
F
F
  • Résolu(e)
Microsoft 365 Recherche à partir d'une TextBox
Réponses
4
Affichages
141
Francky79
F
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
126
BenExcel
B
M
  • Résolu(e)
Microsoft 365 Erreur code ou pas ?
2
Réponses
17
Affichages
312
Marvin57
M
M
  • Question
XL 2021 Vba Userform textbox.value
Réponses
3
Affichages
194
MNico1862
M
N
  • Question
Microsoft 365 Imbrication de deux formule Worksheet_BeforeDoubleClick
Réponses
1
Affichages
144
Nathan027
N
S
  • Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
406
Sghaier Chafaa
S

Membres actuellement en ligne

12 membres et 132 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
312 104
Messages
2 085 344
Membres
102 865
dernier inscrit
FreyaSalander