bonsoir aiglon74
je n'ai pas ouvert le fichier mais je pense que dans le code il y a printout=1 collate true etc... tu n'as que mettre
PrintPreview a la place de Printout et tu auras l'aperçu
voici le code car je viens d'ouvrir le fichier
Private Sub CmbValider_Click()
Unload Me
Sheets("BASE").Activate
Sheets("BASE").Range("c5") = TextBox1.Value
Range("B7").Select
Dim DerLig As Long
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("b7:g" & DerLig).Name = "base"
Range("base").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B4:G5"), Unique:=False
Range("b1:g" & DerLig).Select
ActiveSheet.PageSetup.PrintArea = Selection
Selection.PrintPreview 'Out Copies:=1, Collate:=True
Range("A1").Select
End Sub
tu verras que j'ai mis unload me au debut du code autrement tu aurais bloqué, mais Me.hide etait bien aussi
Pascal