Private Sub CommandButton1_Click() 'bouton Aperçu
If ComboBox1.ListIndex = -1 Then Exit Sub
Dim c As range
With Sheets("Archive")
For Each c In .range("D1", .range("D" & Rows.Count).End(xlUp))
If c & " " & c(1, 4) = ComboBox1 Then
.PageSetup.PrintArea = .Rows(c.Row - 2).Resize(24, 9).Address
Me.Hide 'masque l'USF
.PrintPreview 'aperçu avant impression
Me.Show 'affiche l'USF
Exit For
End If
Next
End With
End Sub
Private Sub UserForm_Initialize()
Dim c As range
'-------
With Sheets("Archive")
For Each c In .range("D1", .range("D" & .Rows.Count).End(xlUp))
If c Like "*/ ####" Then ComboBox1.AddItem c & " " & c(1, 4)
Next
End With
End Sub