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
| Private Sub CommandButton2_Click()
'Impression de Novembre
'Imprime les onglets en fonction du choix : 1 imprime la feuille, 0 n'imprime pas
Select Case MsgBox("Confirmez-vous l'impression du moi de Novembre ?", vbYesNo + vbInformation, "Confirmation")
Case vbYes
Dim vararray() As String
csname = Range("D7").Column
c = Range("E7").Column
Set sname = ActiveSheet
r = Range("E7").Row
countarr = 0
While sname.Cells(r, csname) <> ""
If sname.Cells(r, c) = 1 Then
ReDim Preserve vararray(countarr)
vararray(countarr) = sname.Cells(r, csname).Value
countarr = countarr + 1
End If
r = r + 1
Wend
Sheets(vararray).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate:=True
sname.Activate
MsgBox ("Impression en cours")
Case vbNo
End Select
End Sub |
Partager