Bonjour,

Je suis très ennuyé. J'utilise XL2007, alors que mon employeur utilise XL2003.

Ce code fonctionne très bien sous 2007. Mais pas du tout sous 2003.
Code issu de mon amie Enregistrement Macro.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Range("AA100").Select
ActiveWorkbook.Worksheets("Datas").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Datas").Sort.SortFields.Add Key:=Range("AA100"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
 
With ActiveWorkbook.Worksheets("Datas").Sort
    .SetRange Range("A101:" & Cells(100 + NBLines, NBColumns).Address)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .Apply
End With
Qu'est ce qui cloche sous 2003 ? serait-ce SortFields ?
Avez-vous une solution à la fois pour XL2003 et XL2007 ?

Merci par avance.

________________________

NB la création du filtre automatique est faite dans un autre module avec le code suivant.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
'Création du filtre
Range("$A$100:" & Cells(100, NBColumns).Address).Select
Selection.AutoFilter