bonsoir a tous,

Voila j'ai un classement de chiffres que je voudrais classé  par groupes du plus grand au plus petit

Mais comme mille explications ne vaudra jamais un exemple je vous joint un petit fichier qui sera

plus explicite !

Si vous voulez bien y jeter un coup d'oeil

Je vous en Remerci Beaucoup!

Bonne soirée a vous

Phil

Bonjour a tous,

Et Bonjour Jean Marie,

Les Deux Solutions fonctionne super bien!!

Mille Mercis!

Et Bon Week end a toi et a tout le forum

Phil59110

Bonjour a tous,

Voila j'ai un petit souci avec des chiffres a extraire donc comme mille frases ne remplaceront jamais un bon exemple je vous est mis un petit fichier !

Si vous voulez y jeter un petit coup d'oeil

Je vous en remerci beaucoup!!

Phil59110

Bonjour a tous,
J'espére que vous allez Bien!!
 
Voila j'ai un code vba qui a était créé sous excel 2007 et qui ne fonctionne pas sous excel 2003 
est ce qu'il serais possible de le modifier pour qu'il fonctionne sous excel 2003?
Voici le 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

Phil