XL 2013 Code VBA incompatible avec version Excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Averell1976

XLDnaute Junior
Bonjour à toutes et à tous,

J'ai un code vba me permettant de faire un tri sur des données (tri aléatoire en fonction d'un roulement) qui fonctionne très bien sous excel 2016, mais qui me pointe une erreur d'exécution 438 (propriété ou méthode non gérée par cet objet) sous excel 2013 (version qui va utiliser ce code...)
Il faut donc que je le réécrive, mais je ne sais pas comment.

Voici le code en question:
VB:
Sub tri_alea()
'
' tri_alea Macro
'

'
    Sheets("DATA").Select
      
    Range("B2:B8").Select
    Selection.Copy
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=0
    Range("D2:E8").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Clear
   [COLOR=rgb(250, 197, 28)] ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add2 Key:=Range _
        ("E2:E8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal[/COLOR]
    With ActiveWorkbook.Worksheets("DATA").Sort
        .SetRange Range("D2:E8")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
      
    Sheets("Affectations Saisie PY").Select
    Range("B2:E2").Select
    MsgBox ("Planning généré avec succès")
      
    End With
 Exit Sub
    
End Sub

Le débugage pointe sur le code en jaune....
je vous met le fichier en PJ; le code s'exécute lorsqu'on clique sur le bouton "REGENERER"

Merci pour votre aide
 

Pièces jointes

Solution
Bonjour Averell1976, le forum

Je n'ai ni 2013, ni 2016 pour tester mais j'ai déjà rencontré ce problème de compatibilité entre 365 et 2010 où la méthode .Sort.SortFields.Add2 n'existait pas encore.
Remplacez .Sort.SortFields.Add2 par .Sort.SortFields.Add et cela devrait fonctionner sous 2013 en restant compatible 2016.

Cordialement, @+

Ps : inutile d'essayer de mettre dans une couleur spécifique une partie de code VB dans une fenêtre de code, cela n'apporte que de la confusion.
Bonjour Averell1976, le forum

Je n'ai ni 2013, ni 2016 pour tester mais j'ai déjà rencontré ce problème de compatibilité entre 365 et 2010 où la méthode .Sort.SortFields.Add2 n'existait pas encore.
Remplacez .Sort.SortFields.Add2 par .Sort.SortFields.Add et cela devrait fonctionner sous 2013 en restant compatible 2016.

Cordialement, @+

Ps : inutile d'essayer de mettre dans une couleur spécifique une partie de code VB dans une fenêtre de code, cela n'apporte que de la confusion.
 
Bonjour Averell1976, le forum

Je n'ai ni 2013, ni 2016 pour tester mais j'ai déjà rencontré ce problème de compatibilité entre 365 et 2010 où la méthode .Sort.SortFields.Add2 n'existait pas encore.
Remplacez .Sort.SortFields.Add2 par .Sort.SortFields.Add et cela devrait fonctionner sous 2013 en restant compatible 2016.

Cordialement, @+

Ps : inutile d'essayer de mettre dans une couleur spécifique une partie de code VB dans une fenêtre de code, cela n'apporte que de la confusion.
super, merci à toi pour ton aide efficace
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
773
Réponses
17
Affichages
878
Réponses
3
Affichages
518
Réponses
10
Affichages
455
Réponses
2
Affichages
371
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
622
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
45
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
365
Réponses
2
Affichages
410
Retour