Bonsoir a tous,
J'espére que vous allez bien!!
Voila j'ai un code qui fo,ctionne sous excel 2007 mais qui ne fonctionne pas sous excel 2003!
Donc est ce qu'il serais possible de le modifier pour qu'il fonctionne sous 2003?
Voici le code:
Merci Beaucoup
Et bonne soirée a vous
J'espére que vous allez bien!!
Voila j'ai un code qui fo,ctionne sous excel 2007 mais qui ne fonctionne pas sous excel 2003!
Donc est ce qu'il serais possible de le modifier pour qu'il fonctionne sous 2003?
Voici le code:
Code:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("B3:N22").Select
ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add(Range("C3:C22"), _
xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(255, _
255, 255)
ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range("B3:B22") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range("H3:H22") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("classement").Sort.SortFields.Add Key:=Range("J3:J22") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Classement").Sort
.SetRange Range("B2:N22")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Merci Beaucoup
Et bonne soirée a vous