Erreur sur macro pour trier

[pierrof]

Bonjour
J'ai réaliser sur mon PC une macro pour trier un tableau ci-joint le code:

Range("C2").Select
ActiveWorkbook.Worksheets("Salariés").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Salariés").Sort.SortFields.Add Key:=Range("C2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Salariés").Sort
.SetRange Range("A2:O10000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Quand j'ai installer cette macro sur un autre PC ça ne fonctionne plus😕

Est-ce que quelqu'un a une solution?

Merci

 

[kjin]

Re : Erreur sur macro pour trier

Bonjour,
Les paramètres de tri d'excel 2007 ne sont pas compatibles avec ceux des versions antérieures
A+
kjin

 

[jeanpierre]

Re : Erreur sur macro pour trier

Bonjour pierrof,

Une idée en passant.

Qu'elle est la version d'Excel sur ton autre post ? et la tienne par la même occasion.

Si c'est une version inférieure à la tienne, essaie en supprimant ce qui est en rouge :

ActiveWorkbook.Worksheets("Salariés").Sort.SortFie lds.Add Key:=Range("C2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Bonne journée.

Jean-Pierre

Edit : Bonjour kjin

 

[pierrof]

Re : Erreur sur macro pour trier

Bonjour

Merci pour les infos je vais tester

 

[Eimoan]

Re : Erreur sur macro pour trier

Bonjour,

Je rencontre le même problème que pierrof sur l'une de mes macros :

Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Taux de saturation").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Taux de saturation").Sort.SortFields.Add Key:=Range("A3:A64000") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Cette macro marche sur mon pc mais ne marche pas sur un autre

Les deux pc ont deux version d'excel différentes et il semblerait que le problème se trouve au niveau de la dernière ligne, sur le :

"SortOn:=xlSortOnValues"

J'ai tenté de supprimer ", DataOption:=xlSortNormal" comme suggérer par jeanpierre mais cela ne marche toujours pas...

Une idée ?

Merci d'avance !

 

[julberto]

Re : Erreur sur macro pour trier

Bonjour à tous,

Comme déjà dit plus haut "incompatibilité de version"
Pour cette raison préférer cette syntaxe (aide d'Excel):
Référence du développeur Excel
Range.Méthode Sort
Trie une plage de valeurs.
Syntaxe
expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
expression Variable représentant un objet Range.

cordialement

 

[Eimoan]

Re : Erreur sur macro pour trier

Bonjour,

merci pour la réponse !

Sinon j'ai trouvé sa qui a l'air de marcher :

Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Enfin je devrais tester sa demain 😀

Cordialement.

 

[kjin]

Re : Erreur sur macro pour trier

Bonjour,

Sinon j'ai trouvé sa qui a l'air de marcher :

Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Tu ne lis donc pas les messages précédents ?!
A+
kjin