Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
If CheckBox1.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Janvier"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Janvier"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox2_Click()
Application.ScreenUpdating = False
If CheckBox2.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Février"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Février"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
End Sub
Private Sub CheckBox3_Click()
Application.ScreenUpdating = False
If CheckBox3.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Mars"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Mars"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox4_Click()
Application.ScreenUpdating = False
If CheckBox4.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Avril"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Avril"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox6_Click()
Application.ScreenUpdating = False
If CheckBox6.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Mai"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Mai"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox7_Click()
Application.ScreenUpdating = False
If CheckBox7.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Juin"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Juin"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox8_Click()
Application.ScreenUpdating = False
If CheckBox8.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Juillet"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Juillet"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox9_Click()
Application.ScreenUpdating = False
If CheckBox9.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Août"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Août"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox10_Click()
Application.ScreenUpdating = False
If CheckBox10.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Septembre"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Septembre"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox11_Click()
Application.ScreenUpdating = False
If CheckBox11.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Octobre"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Octobre"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox12_Click()
Application.ScreenUpdating = False
If CheckBox12.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Novembre"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Novembre"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox13_Click()
Application.ScreenUpdating = False
If CheckBox13.Value = True Then
CheckBox5.Value = False
Application.Goto Reference:="Décembre"
Selection.ColumnWidth = 10.75
Else:
Application.Goto Reference:="Décembre"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub CheckBox5_Click()
Application.ScreenUpdating = False
If CheckBox5.Value = True Then
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox6.Value = False
CheckBox7.Value = False
CheckBox8.Value = False
CheckBox9.Value = False
CheckBox10.Value = False
CheckBox11.Value = False
CheckBox12.Value = False
CheckBox13.Value = FalseApplication.Goto Reference:="Juin"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Juillet"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Août"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Septembre"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Octobre"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Novembre"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Décembre"
Selection.ColumnWidth = 10.75
Else
Application.Goto Reference:="Janvier"
Selection.ColumnWidth = 0
Application.Goto Reference:="Février"
Selection.ColumnWidth = 0
Application.Goto Reference:="Mars"
Selection.ColumnWidth = 0
Application.Goto Reference:="Avril"
Selection.ColumnWidth = 0
Application.Goto Reference:="Mai"
Selection.ColumnWidth = 0
Application.Goto Reference:="Juin"
Selection.ColumnWidth = 0
Application.Goto Reference:="Juillet"
Selection.ColumnWidth = 0
Application.Goto Reference:="Août"
Selection.ColumnWidth = 0
Application.Goto Reference:="Septembre"
Selection.ColumnWidth = 0
Application.Goto Reference:="Octobre"
Application.Goto Reference:="Janvier"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Février"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Mars"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Avril"
Selection.ColumnWidth = 10.75
Application.Goto Reference:="Mai"
Selection.ColumnWidth = 10.75
Selection.ColumnWidth = 0
Application.Goto Reference:="Novembre"
Selection.ColumnWidth = 0
Application.Goto Reference:="Décembre"
Selection.ColumnWidth = 0
End If
Range("A3").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollColumn = 4
End Sub
Private Sub Impression_Click()
DerLig = Range("A65536").End(xlUp).Row
DerCol = Range("IV3").End(xlToLeft).Column
ActiveWorkbook.Names.Add Name:="plage", RefersToR1C1:="=Facturation!R1C1:R" & DerLig & "C" & DerCol
With Sheets("Facturation")
With .PageSetup
.PrintArea = plage
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 30
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.CenterHorizontally = True
.Zoom = False
End With
.PrintOut
End With
End Sub
Private Sub Apercu_Click()
DerLig = Range("A65536").End(xlUp).Row
DerCol = Range("IV3").End(xlToLeft).Column
ActiveWorkbook.Names.Add Name:="plage", RefersToR1C1:="=Facturation!R1C1:R" & DerLig & "C" & DerCol
Place = UserForm2.Top
UserForm2.Top = 600
With Sheets("Facturation")
With .PageSetup
.PrintArea = plage
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 30
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.CenterHorizontally = True
.Zoom = False
End With
.PrintPreview
End With
UserForm2.Top = Place
End Sub
Private Sub Fermer_Click()
ActiveSheet.AutoFilterMode = False
CheckBox5.Value = True
Unload Me
End Sub
Private Sub UserForm2_initialize()
Application.ScreenUpdating = False
Range("A3").EntireRow.AutoFilter
CheckBox5.Value = True
LIG = [A65536].End(xlUp).Row
JANV = Rows("1:3").Find(What:="Janvier").Offset(0, 1).Column
FEVR = Rows("1:3").Find(What:="Février").Offset(0, 1).Column
MARS = Rows("1:3").Find(What:="Mars").Offset(0, 1).Column
AVRI = Rows("1:3").Find(What:="Avril").Offset(0, 1).Column
MAI = Rows("1:3").Find(What:="Mai").Offset(0, 1).Column
JUIN = Rows("1:3").Find(What:="Avril").Offset(0, 1).Column
JUIL = Rows("1:3").Find(What:="Juillet").Offset(0, 1).Column
AOUT = Rows("1:3").Find(What:="Août").Offset(0, 1).Column
SEPT = Rows("1:3").Find(What:="Septembre").Offset(0, 1).Column
OCTO = Rows("1:3").Find(What:="Octobre").Offset(0, 1).Column
NOVE = Rows("1:3").Find(What:="Novembre").Offset(0, 1).Column
DECE = Rows("1:3").Find(What:="Décembre").Offset(0, 1).Column
Rows("1:3").Find(What:="Janvier").Activate
ActiveWorkbook.Names.Add Name:="Janvier", RefersToR1C1:=Range(ActiveCell, Cells(LIG, JANV - 1))
Rows("1:3").Find(What:="Février").Activate
ActiveWorkbook.Names.Add Name:="Février", RefersToR1C1:=Range(ActiveCell, Cells(LIG, FEVR - 1))
Rows("1:3").Find(What:="Mars").Activate
ActiveWorkbook.Names.Add Name:="Mars", RefersToR1C1:=Range(ActiveCell, Cells(LIG, MARS - 1))
Rows("1:3").Find(What:="Avril").Activate
ActiveWorkbook.Names.Add Name:="Avril", RefersToR1C1:=Range(ActiveCell, Cells(LIG, AVRI - 1))
Rows("1:3").Find(What:="Mai").Activate
ActiveWorkbook.Names.Add Name:="Mai", RefersToR1C1:=Range(ActiveCell, Cells(LIG, MAI - 1))
Rows("1:3").Find(What:="Juin").Activate
ActiveWorkbook.Names.Add Name:="Juin", RefersToR1C1:=Range(ActiveCell, Cells(LIG, JUIN - 1))
Rows("1:3").Find(What:="Juillet").Activate
ActiveWorkbook.Names.Add Name:="Juillet", RefersToR1C1:=Range(ActiveCell, Cells(LIG, JUIL - 1))
Rows("1:3").Find(What:="Août").Activate
ActiveWorkbook.Names.Add Name:="Août", RefersToR1C1:=Range(ActiveCell, Cells(LIG, AOUT - 1))
Rows("1:3").Find(What:="Septembre").Activate
ActiveWorkbook.Names.Add Name:="Septembre", RefersToR1C1:=Range(ActiveCell, Cells(LIG, SEPT - 1))
Rows("1:3").Find(What:="Octobre").Activate
ActiveWorkbook.Names.Add Name:="Octobre", RefersToR1C1:=Range(ActiveCell, Cells(LIG, OCTO - 1))
Rows("1:3").Find(What:="Novembre").Activate
ActiveWorkbook.Names.Add Name:="Novembre", RefersToR1C1:=Range(ActiveCell, Cells(LIG, NOVE - 1))
Rows("1:3").Find(What:="Décembre").Activate
ActiveWorkbook.Names.Add Name:="Décembre", RefersToR1C1:=Range(ActiveCell, Cells(LIG, DECE - 1))
End Sub