Sub PlanningTemporel(date1, date2)
'imprime le planning defini par une periode temporelle fixe
StopProtection 'autre macro
Sheets("Planning Temporel").Select
With Sheets("Planning Temporel")
.Select
.Range("A1", Cells.SpecialCells(xlCellTypeLastCell)).Clear
.Range("A1").FormulaR1C1 = "Machines"
.Range("B1").FormulaR1C1 = "Dates"
.Range("C1").FormulaR1C1 = "Interventions"
End With
'tri du listing par prochaine date d'intervention
With Worksheets("Listing").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("E:E")
.SetRange Range("B:AF")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'création du tableau a imprimer
Worksheets("Planning Temporel").ListObjects _
.Add(xlSrcRange, Range("$A$1:$C$1"), , xlYes) _
.Name = "TabPlanningTemporel"
'on parcourt ttes les lignes a partir de la 2e
For Li = 2 To Worksheets("Listing").Cells.SpecialCells(xlCellTypeLastCell).Rows.Count
If Worksheets("Listing").Cells(Li, "E").IsEmpty = False Then 'si la prochaine date dintervention est definie
Worksheets("Planning Temporel") _
.ListObjects("TabPlanningTemporel").ListRows.Add (1)
With Worksheets("Listing")
.Cells(Li, "I").Content.Copy (Worksheets("Planning Temporel") _
.ListObjects("TabPlanningTemporel").Range(1, 1))
.Cells(Li, "E").Content.Copy (Worksheets("Planning Temporel") _
.ListObjects("TabPlanningTemporel").Range(1, 2))
.Cells(Li, "M").Content.Copy (Worksheets("Planning Temporel") _
.ListObjects("TabPlanningTemporel").Range(1, 3))
End With
'voir si lintervention dapres est a imprimer
'ie periode dintervention < intervalle du planning
'a faire
End If
Next
Sheets("Planning Temporel").Range("A1").Select
End Sub