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

berru76

XLDnaute Occasionnel
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
 

Pièces jointes

  • Tri.xlsm
    87.4 KB · Affichages: 12

Discussions similaires

Réponses
3
Affichages
686
Réponses
11
Affichages
563

Statistiques des forums

Discussions
313 311
Messages
2 097 039
Membres
106 816
dernier inscrit
Garry972