3 pièce(s) jointe(s)
Explication sur une fonction de tri en VBA
Bonjour à tous,
Un module VBA me permet d'exporter/trier des données d'un classeur à un autre, j'ai récemment modifié ce module pour optimiser son fonctionnement.
Tout fonctionne normalement, mais quand je ré-ouvre le classeur après l’exécution du script, cette erreur apparaît :
Pièce jointe 182447
Après un clic sur "Oui"
Pièce jointe 182449
Détail du fichier XML (Pour info, la feuille 13 n'a subi aucune modification anormal suite à l'erreur.)
Pièce jointe 182450
Après quelques essais, j'ai localisé une erreur dans mon code. Lors du tri, j'avais oublié la première ligne du code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Activesheet.Sort.SortFields.Clear
Activesheet.Sort.SortFields.Add Key:= _
Activesheet.Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With Activesheet.Sort
.SetRange Activesheet.Range("2:" & Activesheet.Range("A" & Rows.Count).End(xlUp).Row)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With |
Depuis, l'erreur ne semble plus se produire, mais j'ai malgré tout besoin de votre avis pour savoir si l'oubli de cette ligne peut générer ce type d'erreur.
Merci d'avance.
