- Partage ce devoir avec tes amis !
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 ExplicitSub 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
0 commentaire pour ce devoir
Ils ont besoin d'aide !
- Aucun devoir trouvé, poste ton devoir maintenant.