allegé macro

Cuistoy · 25 Novembre 2005

Bonsoir le forum

voici une macro que je voudrais allegé et en faire une seul
si vous avez des idée

mrci pour votre aide

bonne soiré

Sub IMPRESSIONBLTOURNEE1()
'
' IMPRESSIONBLTOURNEE1 Macro
' Macro enregistrée le 06/08/04
'

'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
Range('C132:I164').Select
ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL5
Range('C165:I197').Select
ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL6
Range('C198:I230').Select
ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL7
Range('C231:I263').Select
ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=44
'BL8
Range('C264:I296').Select
ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=40
'BL9
Range('C297:I329').Select
ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=40
'BL10
Range('C330:I362').Select
ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=45
'BL11
Range('C363:I395').Select
ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=45
'BL12
Range('C396:I428').Select
ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=43
'BL13
Range('C429:I461').Select
ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.LargeScroll Down:=1
'BL14
Range('C462:I494').Select
ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=46
'BL15
Range('C495:I527').Select
ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=45
'BL16
Range('C528:I560').Select
ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=47
'BL17
Range('C561:I592').Select
ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.LargeScroll Down:=-17
'BL17
Range('C594:I626').Select
ActiveSheet.PageSetup.PrintArea = '$C$594:$I$626'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
End Sub
Sub IMPRESSIONBLTOURNEE2()
'
' IMPRESSIONBLTOURNEE2 Macro
' Macro enregistrée le 06/08/04
'

'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
'Range('C66:I98').Select
'ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=38
'BL3
'Range('C99:I131').Select
'ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=39
'BL4
'Range('C132:I164').Select
'ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=39
'BL5
'Range('C165:I197').Select
'ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL6
'Range('C198:I230').Select
'ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL7
'Range('C231:I263').Select
'ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=44
'BL8
'Range('C264:I296').Select
'ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL9
'Range('C297:I329').Select
'ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL10
'Range('C330:I362').Select
'ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL12
'Range('C396:I428').Select
'ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select

End Sub
Sub IMPRESSIONBLTOURNEE3()
'
' IMPRESSIONBLTOURNEE3 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
Range('C132:I164').Select
ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL5
Range('C165:I197').Select
ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL6
Range('C198:I230').Select
ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL7
Range('C231:I263').Select
ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=44
'BL8
Range('C264:I296').Select
ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=40
'BL9
Range('C297:I329').Select
ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=40
'BL10
Range('C330:I362').Select
ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=45
'BL11
Range('C363:I395').Select
ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=45
'BL12
Range('C396:I428').Select
ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'
End Sub
Sub IMPRESSIONBLTOURNEE4()
'
' IMPRESSIONBLTOURNEE4 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
Range('C132:I164').Select
ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL5
'Range('C165:I197').Select
'ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL6
'Range('C198:I230').Select
'ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL7
'Range('C231:I263').Select
'ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=44
'BL8
'Range('C264:I296').Select
'ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL9
'Range('C297:I329').Select
'ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL10
'Range('C330:I362').Select
'ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL12
'Range('C396:I428').Select
'ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'
End Sub
Sub IMPRESSIONBLTOURNEE5()
'
' IMPRESSIONBLTOURNEE5 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
Range('C132:I164').Select
ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL5
Range('C165:I197').Select
ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL6
Range('C198:I230').Select
ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL7
Range('C231:I263').Select
ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=44
'BL8
Range('C264:I296').Select
ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=40
'BL9
Range('C297:I329').Select
ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=40
'BL10
Range('C330:I362').Select
ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=45
'BL11
Range('C363:I395').Select
ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=45
'BL12
Range('C396:I428').Select
ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=43
'BL13
Range('C429:I461').Select
ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.LargeScroll Down:=1
'BL14
Range('C462:I494').Select
ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=46
'BL15
Range('C495:I527').Select
ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=45
'BL16
Range('C528:I560').Select
ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=47
'BL17
Range('C561:I592').Select
ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'
End Sub
Sub IMPRESSIONBLTOURNEE6()
'
' IMPRESSIONBLTOURNEE6 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
'Range('C132:I164').Select
'ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=39
'BL5
'Range('C165:I197').Select
'ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL6
'Range('C198:I230').Select
'ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL7
'Range('C231:I263').Select
'ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=44
'BL8
'Range('C264:I296').Select
'ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL9
'Range('C297:I329').Select
'ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL10
'Range('C330:I362').Select
'ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL12
'Range('C396:I428').Select
'ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'
End Sub
Sub IMPRESSIONBLTOURNEE8()
'
' IMPRESSIONBLTOURNEE8 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
Range('C132:I164').Select
ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL5
Range('C165:I197').Select
ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL6
Range('C198:I230').Select
ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL7
Range('C231:I263').Select
ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=44
'BL8
'Range('C264:I296').Select
'ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL9
'Range('C297:I329').Select
'ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL10
'Range('C330:I362').Select
'ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL12
'Range('C396:I428').Select
'ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'
End Sub
Sub IMPRESSIONBLTOURNEE9()
'
' IMPRESSIONBLTOURNEE9 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
Range('C132:I164').Select
ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL5
Range('C165:I197').Select
ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL6
'Range('C198:I230').Select
'ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL7
'Range('C231:I263').Select
'ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=44
'BL8
'Range('C264:I296').Select
'ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL9
'Range('C297:I329').Select
'ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL10
'Range('C330:I362').Select
'ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL12
'Range('C396:I428').Select
'ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'
End Sub
Sub IMPRESSIONBLTOURNEE10()
'
' IMPRESSIONBLTOURNEE10 Macr
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
Range('C132:I164').Select
ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL5
Range('C165:I197').Select
ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL6
Range('C198:I230').Select
ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=42
'BL7
Range('C231:I263').Select
ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=44
'BL8
Range('C264:I296').Select
ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=40
'BL9
Range('C297:I329').Select
ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=40
'BL10
Range('C330:I362').Select
ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL12
'Range('C396:I428').Select
'ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'
End Sub
Sub IMPRESSIONBLTOURNEE11()
'
' IMPRESSIONBLTOURNEE11 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
'Range('C66:I98').Select
'ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=38
'BL3
'Range('C99:I131').Select
'ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=39
'BL4
'Range('C132:I164').Select
'ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=39
'BL5
'Range('C165:I197').Select
'ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL6
'Range('C198:I230').Select
'ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL7
'Range('C231:I263').Select
'ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=44
'BL8
'Range('C264:I296').Select
'ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL9
'Range('C297:I329').Select
'ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL10
'Range('C330:I362').Select
'ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL12
'Range('C396:I428').Select
'ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'
End Sub
Sub IMPRESSIONBLTOURNEE12()
'
' IMPRESSIONBLTOURNEE12 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
'Range('C66:I98').Select
'ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=38
'BL3
'Range('C99:I131').Select
'ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=39
'BL4
'Range('C132:I164').Select
'ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=39
'BL5
'Range('C165:I197').Select
'ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL6
'Range('C198:I230').Select
'ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL7
'Range('C231:I263').Select
'ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=44
'BL8
'Range('C264:I296').Select
'ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL9
'Range('C297:I329').Select
'ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL10
'Range('C330:I362').Select
'ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL12
'Range('C396:I428').Select
'ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'
End Sub
Sub IMPRESSIONBLTOURNEE13()
'
' IMPRESSIONBLTOURNEE13 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
'Range('C132:I164').Select
'ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=39
'BL5
'Range('C165:I197').Select
'ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL6
'Range('C198:I230').Select
'ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL7
'Range('C231:I263').Select
'ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=44
'BL8
'Range('C264:I296').Select
'ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL9
'Range('C297:I329').Select
'ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL10
'Range('C330:I362').Select
'ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL12
'Range('C396:I428').Select
'ActiveSheet.PageSetup.PrintArea = '$C$396:$I$428'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=43
'BL13
'Range('C429:I461').Select
'ActiveSheet.PageSetup.PrintArea = '$C$429:$I$461'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=1
'BL14
'Range('C462:I494').Select
'ActiveSheet.PageSetup.PrintArea = '$C$462:$I$494'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=46
'BL15
'Range('C495:I527').Select
'ActiveSheet.PageSetup.PrintArea = '$C$495:$I$527'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL16
'Range('C528:I560').Select
'ActiveSheet.PageSetup.PrintArea = '$C$528:$I$560'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=47
'BL17
'Range('C561:I592').Select
'ActiveSheet.PageSetup.PrintArea = '$C$561:$I$592'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.LargeScroll Down:=-17
Range('A1').Select
'

End Sub
Sub IMPRESSIONBLTOURNEE14()
'
' IMPRESSIONBLTOURNEE14 Macro
' Macro enregistrée le 06/08/04
'
ActiveWindow.SmallScroll Down:=12
Range('C33:I65').Select
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$C$33:$I$65'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.46)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 160
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=28
'BL 2
Range('C66:I98').Select
ActiveSheet.PageSetup.PrintArea = '$C$66:$I$98'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=38
'BL3
Range('C99:I131').Select
ActiveSheet.PageSetup.PrintArea = '$C$99:$I$131'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL4
Range('C132:I164').Select
ActiveSheet.PageSetup.PrintArea = '$C$132:$I$164'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SmallScroll Down:=39
'BL5
'Range('C165:I197').Select
'ActiveSheet.PageSetup.PrintArea = '$C$165:$I$197'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL6
'Range('C198:I230').Select
'ActiveSheet.PageSetup.PrintArea = '$C$198:$I$230'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=42
'BL7
'Range('C231:I263').Select
'ActiveSheet.PageSetup.PrintArea = '$C$231:$I$263'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=44
'BL8
'Range('C264:I296').Select
'ActiveSheet.PageSetup.PrintArea = '$C$264:$I$296'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL9
'Range('C297:I329').Select
'ActiveSheet.PageSetup.PrintArea = '$C$297:$I$329'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=40
'BL10
'Range('C330:I362').Select
'ActiveSheet.PageSetup.PrintArea = '$C$330:$I$362'
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ActiveWindow.SmallScroll Down:=45
'BL11
'Range('C363:I395').Select
'ActiveSheet.PageSetup.PrintArea = '$C$363:$I$395'
'ActiveWindow.SelectedSh

Creepy · 25 Novembre 2005

Bonjour All,

Le gagnat du post le plus long de tout les temps est :

Cuistoy !!!

Vive l'enregistruer de macro !!!!

Mais bon pour une aide efficace merci de mettre le fichier contenant cette macro en PJ, car elle me semble pas complète.

Et merci d'expliquer ce que doit faire la macro !

@+

Creepy

Robert · 25 Novembre 2005

Bonsoir Cuistoy, Creepy, bonsoir le forum,

C'est quoi cette blague !!! Je te cite : voici une macro... Y'en a pas une mais 12 de macros ! Apparemment c'est pratiquement le même code. Une macro que tu as enregistrée 12 fois avec l'enregistreur de macro nommé IMPRESSIONBLTOURNEE de 1 à 13 et, va savoir pourquoi, dans ton immense bonté, tu nous a épargné l'enregistrement numéro sept...

C'est pas très sérieux tout ça... Moi j'ai l'IMPRESSION que tu vas devoir nous payer une BLonde TOURNEE de Duvel pour réparer ton innocente plaisanterie.

Message édité par: Robert, à: 25/11/2005 22:27

Cuistoy · 25 Novembre 2005

Bonsoir Creepy, Robert, bonsoir le forum,

c'est exact il y a 14 macro parceque j'ai 14 onglet sur mon fichier excel

J'ai racourci la macro mais je suis obliger d'éxecuter 14 fois la macro ce que je souhaite c'est cliqué une foie pour imprimé les feuille des 14 onglets

il y a 18 feuille par onglet la macro modifier imprime que les feuille plaine.

Et il possible de racourcir cette macro car toute les feuille sont de taille et de forme identique

voilà jespère avoir été pas trop compliqué dans mes explication

merci de votre aide

Function IsToPrintIMPRESSIONBLTOURNEE1To14(Ligne As Long) As Boolean

If Range('F' & Ligne).Text = '' And _
Range('G' & Ligne).Text = '' And _
Range('H' & Ligne).Text = '' Then _

IsToPrintIMPRESSIONBLTOURNEE1To14 = False
Else
IsToPrintIMPRESSIONBLTOURNEE1To14 = True
End If
End Function
Sub IMPRESSIONBLTOURNEE1()
'
' IMPRESSIONBLTOURNEE1 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub
Sub IMPRESSIONBLTOURNEE2()
'
' IMPRESSIONBLTOURNEE2 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE3()
'
' IMPRESSIONBLTOURNEE3 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE4()
'
' IMPRESSIONBLTOURNEE4 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE5()
'
' IMPRESSIONBLTOURNEE5 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE6()
'
' IMPRESSIONBLTOURNEE6 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE7()
'
' IMPRESSIONBLTOURNEE7 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE8()
'
' IMPRESSIONBLTOURNEE8 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE9()
'
' IMPRESSIONBLTOURNEE9 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE10()
'
' IMPRESSIONBLTOURNEE10 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE11()
'
' IMPRESSIONBLTOURNEE11 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE12()
'
' IMPRESSIONBLTOURNEE12 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE13()
'
' IMPRESSIONBLTOURNEE13 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Sub IMPRESSIONBLTOURNEE14()
'
' IMPRESSIONBLTOURNEE14 Macro
' Macro enregistrée le 31/10/05 par SOGERES
'
Range('C33:I65').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(52) Then Selection.PrintOut
'
Range('C66:I98').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(85) Then Selection.PrintOut
'
Range('C99:I131').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(118) Then Selection.PrintOut
'
Range('C132:I164').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(151) Then Selection.PrintOut
'
Range('C165:I197').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(184) Then Selection.PrintOut
'
Range('C198:I230').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(217) Then Selection.PrintOut
'
Range('C231:I263').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(250) Then Selection.PrintOut
'
Range('C264:I296').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(283) Then Selection.PrintOut
'
Range('C297:I329').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(316) Then Selection.PrintOut
'
Range('C330:I362').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(349) Then Selection.PrintOut
'
Range('C363:I395').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(382) Then Selection.PrintOut
'
Range('C396:I428').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(415) Then Selection.PrintOut
'
Range('C429:I461').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(448) Then Selection.PrintOut
'
Range('C462:I494').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(481) Then Selection.PrintOut
'
Range('C495:I527').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(514) Then Selection.PrintOut
'
Range('C528:I560').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(547) Then Selection.PrintOut
'
Range('C561:I592').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(580) Then Selection.PrintOut
'
Range('C594:I626').Select
If IsToPrintIMPRESSIONBLTOURNEE1To14(614) Then Selection.PrintOut
'
End Sub

Cuistoy · 25 Novembre 2005

RE Bonsoir Creepy, Robert, bonsoir le forum,

Je vient de mappersevoir qu'il sufisait que d'une macro pour toutes les pages mais command inclure mes 14 onglets a l'interieur ?

merci @++

Robert · 25 Novembre 2005

Bonsoir Cuistoy, Creepy, bonsoir le forum,

Autant pour moi Cuistoy... Ça m'apprendra à ouvrir ma gu... pour rien. Je te dois une caisse de Duvel...

Mêêê , revenons à nos moutons. Tu places une seule macro nommée IMPRESSIONBLTOURNEE dans un module (Module 1 par exemple) :

Sub IMPRESSIONBLTOURNEE()
'ton petit code commun
End Sub

Puis tu boucles (ça frise la folie..) du style :

For x = 1 To 14 'à adapter en fonction de la position des onglets
Sheets(x).Select
Call IMPRESSIONBLTOURNEE
next x

Ça implique que tes onglet se suivent... Mais même si ce n'est pas le cas tu pourras t'en sortir avec une boucle du style :

For x = 1 To 15 'à adapter en fonction de la position des onglets
If Sheets(x).Name = 'TOTO' Then GoTo suite
'ou If x = 12 Then GoTo suite
Sheets(x).Select
Call IMPRESSIONBLTOURNEE
suite:
next x

L'onglet 'ToTo' (ou le 12ème onglet) n'est pas imprimé.

Cuistoy · 25 Novembre 2005

RE Bonsoir Creepy, Robert, bonsoir le forum,

Juste pour info mes onglet porte un nom et pas un chiffre
je remplace les chiffre per les nom sa ne possera aucun problème ?

merci Robert

Robert · 26 Novembre 2005

Bonsoir le fil, bonsoir le forum,

Ok Cuistoy, tes onglets portent de noms mais en Vba pour activer le premier onglet qui s'apelle 'Toto' par exemple tu peux faire soit Sheets('Toto').Select soit Sheets(1).Select. Le numéro correspond à l'index de sa position dans le classeur. Il est donc préférable de faire une boucle sur 14 onglets avec trois ligne :

For x = 1 To 14 'ou x = 9 To 22 selon la position dans le classeur
Sheets(x).Select
Call IMPRESSIONBLTOURNEE
next x

que :

Sheets('Toto1').Select
Call IMPRESSIONBLTOURNEE
Sheets('Toto2').Select
Call IMPRESSIONBLTOURNEE
....
Sheets('Toto13').Select
Call IMPRESSIONBLTOURNEE
Sheets('Toto14').Select
Call IMPRESSIONBLTOURNEE

28 lignes avec les noms !!!

Cuistoy · 26 Novembre 2005

Bonjour le forum
je remerci tout ceux qui on apporté leur aide

voici le code modifier

a bientôt pour de nouvel aventure

Sub IMPRESSIONTOTALBL()
'
' IMPRESSIONTOTALBL Macro
' Macro enregistrée le 28/08/02

Sheets('Chalon').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=10
'Sheets('Chalon 2').Select
'Application.Run 'IMPRESSIONBL'
'ActiveWindow.SmallScroll Down:=10
Sheets('Le Creusot').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=10
Sheets('St Vallier').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=10
Sheets('Montceau').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=10
Sheets('Sanvignes').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=10
Sheets('Autun').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=10
Sheets('Quetigny').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=12
Sheets('Divers Livres').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=10
Sheets('Beaune').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=10
'Sheets('Rochefort').Select
'Application.Run 'IMPRESSIONBL'
'ActiveWindow.SmallScroll Down:=10
'Sheets('Couternon').Select
'Application.Run 'IMPRESSIONBL'
'ActiveWindow.SmallScroll Down:=10
Sheets('Bellignat').Select
Application.Run 'IMPRESSIONBL'
Sheets('Oyonnax').Select
Application.Run 'IMPRESSIONBL'
ActiveWindow.SmallScroll Down:=10
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets('Effectifs').Select
Range('A2').Select
End Sub

Effectuez une recherche sur Excel Downloads...

allegé macro

Cuistoy

XLDnaute Occasionnel

Creepy

XLDnaute Accro

Robert

XLDnaute Barbatruc

Cuistoy

XLDnaute Occasionnel

Cuistoy

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Cuistoy

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Cuistoy

XLDnaute Occasionnel

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums