Bonjour,

J'ai un code pour imprimer en fonction du choix de la combobox qui marche trés bien.
J'aimerai lui apporter une modification je voudrais avoir un aperçu avant impression.

Je joint mon code/

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton1_Click()
 
Sheets("Liste").Select
    Selection.AutoFilter Field:=2, Criteria1:=ComboBox6.Value
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.StatusBar = ""
Selection.AutoFilter Field:=2
Unload UserImprimerActeur
Sheets("Menu").Select
End Sub
Private Sub CommandButton2_Click()
 
Unload UserImprimerActeur
Application.StatusBar = ""
End Sub
 
 
Private Sub UserForm_Activate()
 
Application.StatusBar = "Imprimer un Acteur"
 
    DerniereComboBox6 = Worksheets("données").Range("Acteur").End(xlDown).Address
    ComboBox6.RowSource = "Acteur"
    ComboBox6.ListIndex = -1
    Sheets("Menu").Select
 
End Sub
Je vous remercie de votre aide.

Cordialement

Max