Aide programmation VBA

[janick]

Bonjour,

Un peut d'aide pour combiner ces deux procedures
Merci [file name=Classeur5_20060109151542.zip size=22712]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur5_20060109151542.zip[/file]

 

[Zon]

Salut,

Pour te mettre sur la voie en passant par un tableau:
'modifier cmdimprimer
Private Sub CmdImprimer_Click()
Dim T(), J&
Application.ScreenUpdating = False
For I = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(I) = True Then
ReDim Preserve T(J)
T = LbFeuilles.List(I)
J = J + 1
End If
Next I
If J > 0 Then
Imprim1 T
Else
MsgBox 'Aucune feuille sélectionnée'
End If
End Sub

'puis ta procédure imprim1 du module1
Sub Imprim1(T)
Dim I&
Msg = 'Voulez-vous vraiment imprimer TOUTES les fiches ?'
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = 'IMPRESSION DES FICHES 1er Trimestre'
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
For I = LBound(T) To UBound(T)
on error resume next
With Sheets(T(I))
.PageSetup.PrintArea = '$A$2:$B$20' ' regardes ma page Wiki .

Lien supprimé
rafraichir la page pour un affichage correct.
A+++