DIGGERJACK
XLDnaute Occasionnel
Bonjour le forum
La macro suivante me permet de sélectionner par checkbox dans une lsitbox les onglets à imprimer en excluant quelques onglets "accueil" et "aide"
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim wk As Worksheet
For Each wk In ThisWorkbook.Worksheets
If wk.Name <> "ACCUEIL" And wk.Name <> "AIDE" And Then
If wk.Visible = True Then
ListBox1.AddItem wk.Name
End If
End If
Next
End Sub
Private Sub CommandButton3_Click()
Dim i As Integer
Dim NbFeuil As Integer
Application.ScreenUpdating = False
With ListBox1
NbFeuil = .ListCount - 1
For i = 0 To NbFeuil
If .Selected(i) = True Then
Worksheets(.List(i)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.Selected(i) = False
End If
Next
End With
Sheets("accueil").Select
Unload Me
Application.ScreenUpdating = True
End Sub
Je voudrais pouvoir cocher toutes les checkbox avec un commandbutton
mais je ne vois pas comment faire
Merci de votre aide
La macro suivante me permet de sélectionner par checkbox dans une lsitbox les onglets à imprimer en excluant quelques onglets "accueil" et "aide"
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim wk As Worksheet
For Each wk In ThisWorkbook.Worksheets
If wk.Name <> "ACCUEIL" And wk.Name <> "AIDE" And Then
If wk.Visible = True Then
ListBox1.AddItem wk.Name
End If
End If
Next
End Sub
Private Sub CommandButton3_Click()
Dim i As Integer
Dim NbFeuil As Integer
Application.ScreenUpdating = False
With ListBox1
NbFeuil = .ListCount - 1
For i = 0 To NbFeuil
If .Selected(i) = True Then
Worksheets(.List(i)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.Selected(i) = False
End If
Next
End With
Sheets("accueil").Select
Unload Me
Application.ScreenUpdating = True
End Sub
Je voudrais pouvoir cocher toutes les checkbox avec un commandbutton
mais je ne vois pas comment faire
Merci de votre aide