XL 2019 concours boules / compatibilite macro tri qui fonctionne avec excel 2019 et pas sur 2007 ou 2013

[berru76]

Bonjour
cet macro tri fonctionne bien sur toute les feuilles du dossier chez moi avec excel 2019
j'ai testé le concours sur autre ordi avec des version excel 2007 ou excel 2013 la macro tri bug (erreur 438)
au club on a des PC avec ces config
modèle sur fichier joint
si vous avez une solution merci

Sub Tri()
'
' Tri Macro
'

'
Range("AB3:AD" & Range("AB" & Rows.Count).End(xlUp).Row).Select
Selection.Copy
Range("BO3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add2 Key:=Range("BO4:BO" & Range("BO" & Rows.Count).End(xlUp).Row), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
'ActiveSheet.Sort.SortFields.Add2 Key:=Range("BP4:BP" & Range("BP" & Rows.Count).End(xlUp).Row), _
'SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add2 Key:=Range("BP4:BP" & Range("BP" & Rows.Count).End(xlUp).Row), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("BO3:BQ" & Range("BO" & Rows.Count).End(xlUp).Row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

modèle sur fichier joint
si vous avez une solution merci

 

[dg62]

bonjour,

votre problème vient sans doute d'ici SortMethod = xlPinYin

 

[berru76]

que doit on mettre pour que cela fonctionne sur des versions différentes merci

 

[dg62]

c'est optionnel, vous pouvez l'enlever

 

[berru76]

j'ai supprime la ligne et la macro fonctionne toujours sous 2019
mais pas sous les autres excel
merci

 

[pierrejean]

Bonjour berru76

Avec version 2010

 

[berru76]

merci je teste

 

[berru76]

Nickel fonctionne aussi dans 2007/2013 /2019
Merci