VBA Problème Tri Multicritères

[Excelced]

Bonjour le forum,

J'ai un soucis avec une procedure écrite sous XL2007 et retranscrit en XL2003
il me dit que la variable n'est pas défini et me surligne
"SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal"

Sub Tri_Multicritere()
'
' Tri_Multicritere Macro
'

'
    ActiveWorkbook.Worksheets("Tri").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Tri").Sort.SortFields.Add Key:=Range("B2:B2000"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Tri").Sort.SortFields.Add Key:=Range("D2:D2000"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Tri").Sort
        .SetRange Range("A1:AI2000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

pour info,
cette prcocèdure contenanait 4 tri sous 2007 et je l'ai séparéré en 2 fonctions pour le passage en 2003.

Merci d'avance

ExcelCed

 

[kjin]

Re : VBA Problème Tri Multicritères

Bonjour,
Cette méthode n'est effectivement pas compatible avec les versions antérieures à 2007 !
Soit tu gardes cette méthode mais en prenant soin de tester la version xl auparavant et si elle ne convient pas, appliquer un tri classique si possible

If Val(Application.Version) >= 12 then '>= à 2007
'ta macro
Else
'tri classique
End If

A+
kjin

 

[Excelced]

Re : VBA Problème Tri Multicritères

Merci kjin

Bonne journée

ExcelCed