Titre du sujet : Re: impression de plusieur onglet
par Mytå le 27/11/2011 05:23:51
Salut le forum
Pour le bouton Charger Onglets
Sub ChargeListBox()
Dim Sh As Object
With Sheets("Feuil1").ListBox1
.MultiSelect = fmMultiSelectExtended
.ColumnCount = 2
.ColumnWidths = "60;20"
.Enabled = True
.Clear
For Each Sh In Sheets
If Sh.Name <> ActiveSheet.Name Then
.AddItem 'ajout d'une ligne
.List(.ListCount - 1, 0) = Sh.Name
.List(.ListCount - 1, 1) = 1
End If
Next Sh
End With
End Sub
Un bouton permettant de choisir le nombre de feuille.
Sub NbreFeuille()
Dim Nbre As Byte, I As Integer
Nbre = Application.InputBox("Indiquer le nombre d'impression", Type:=1)
With Sheets("Feuil1").ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then .List(I, 1) = Nbre
Next I
End With
End Sub
Pour l'impression
Sub Imprimer()
Dim i As Integer
With Sheets("Feuil1").ListBox1
For i = 0 To .ListCount - 1
If .List(i, 1) > 0 Then Sheets(.List(i, 0)).PrintOut Copies:=.List(i, 1)
Next i
End With
End Sub
Mytå
| 
Didier FOURGEOT