Re : Comment imprimer une partie de tableau
Re,
tu écris dans ton modèle :
j'ai fait un procede par macro j'ai copié la partie a imprimer que je colle dans feuil1 puis que je dois imprimer ensuite je l'efface
et dans ton code :
Sub vider()
'
' vider Macro
' Macro enregistrée le 03/12/2007 par Unicornis
'
'
Sheets(Array("janvier", "fevrier", "mars", "avril", "mai", "juin", "juillet", "aout", _
"sept", "oct", "nov", "decembre")).Select
Sheets("janvier").Activate
Range("B7:I7,B10:I10,B13:I13,B27:I27,B30:I30,B33:I33,B36:I36").Select
Range("B36").Activate
Selection.ClearContents
Sheets("janvier").Select
Range("B7").Select
End Sub
Sub IMPR_KALLEE()
'
' IMPR_KALLEE Macro
' Macro enregistrée le 03/12/2007 par Unicornis
'
'
Range("B4:J20").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Feuil1").Select
Range("B12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Sheets("janvier").Select
Range("B4").Select
End Sub
Sub IMPR_CETA()
'
' IMPR_CETA Macro
' Macro enregistrée le 03/12/2007 par Unicornis
'
'
Range("B24:J40").Select
Selection.Copy
Sheets("Feuil1").Select
Range("B8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Sheets("janvier").Select
Range("B27").Select
End Sub
Sub ImprKallee1()
Application.Goto Reference:="ImprKallee"
Selection.PrintOut Copies:=1, Collate:=True
End Sub
Sub ImprCeta1()
Application.Goto Reference:="ImprKallee"
Selection.PrintOut Copies:=1, Collate:=True
End Sub
Je te suggère de supprimer tout le code en rouge et de copier coller le code en bleu à la place.
D'affecter le code aux boutons correspondant de tes feuilles
Pour ce qui est de ton code Sub vider() je ne comprend pas car tu efface des cellules qui n'ont aucun contenu....
Fais un essai sur ta feuille janvier en cliquant sur les boutons IMPRIMER KALLEE & IMPRIMER CETA et dis-nous si ca te convient
Au plaisir