VBA pour la Gestion

Sujet du devoir

Formulaire de menu général permettant d'aller vers:
soit la saisie des paramètres de période,
soit la saisie des décisions des entreprises,
soit la consultation des décisions d'une période donnée,
soit la consultation des résultats des différentes entreprises pour une période donnée,
soit de quitter les programmes.

Le sujet entier est un PDF de 10 pages.

Où j'en suis dans mon devoir

Option Explicit

Sub trier_periode_1_pv()
'
'
Range("B2:B4").Select
ActiveWorkbook.Worksheets("TAB_RESULRANGPV").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TAB_RESULRANGPV").Sort.SortFields.Add Key:=Range( _
"B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("TAB_RESULRANGPV").Sort
.SetRange Range("A2:B6")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub



Sub trier_periode_2_pv()

Range("B9:B12").Select
ActiveWorkbook.Worksheets("TAB_RESULRANGPV").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TAB_RESULRANGPV").Sort.SortFields.Add Key:=Range( _
"B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("TAB_RESULRANGPV").Sort
.SetRange Range("A9:B14")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With


End Sub


Sub trier_periode_3_pv()


Range("B17:B21").Select
ActiveWorkbook.Worksheets("TAB_RESULRANGPV").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TAB_RESULRANGPV").Sort.SortFields.Add Key:=Range( _
"B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("TAB_RESULRANGPV").Sort
.SetRange Range("A17:B21")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub