Macro Excel 2003

[s2fruit]

Bonjour à tous

Quelqu'un peut-il me depanner sur cette macro rédigée sur excel 2007 mais qui ne fonctionne pas sous Excel 2003

La ligne ActiveWorkbook.Worksheets("RECAPITULATIF").Sort.SortFields.Clear se met en jaune .

Merci de votre aide.

Sub TRIRECAP()
'
' TRIRECAP Macro
'

'
Range("A2:M810").Select
ActiveWorkbook.Worksheets("RECAPITULATIF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("RECAPITULATIF").Sort.SortFields.Add Key:=Range( _
"A3:A810"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("RECAPITULATIF").Sort
.SetRange Range("A2:M810")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
End Sub

 

[Pierrot93]

Re : Macro Excel 2003

Bonjour,

oui la méthode de tri par vba à changer de 2003 vers 2007, plus 2003 sous le coude mais en utilisant l'enregistreur de macro tu devrais retrouver la bonne syntaxe...

bon après midi
@+

 

[s2fruit]

Re : Macro Excel 2003

Bonjour,

oui la méthode de tri par vba à changer de 2003 vers 2007, plus 2003 sous le coude mais en utilisant l'enregistreur de macro tu devrais retrouver la bonne syntaxe...

bon après midi
@+

Merci Pierrot
Je n'ai pas non plus d'Excel 2003 sous le coude et c'est pour cette raison que je cherche de l'aide pour dépanner un collègue.

 

[job75]

Re : Macro Excel 2003

Bonjour s2fruit, Pierrot,

Perso, quelle que soit la version Excel, j'utilise cette syntaxe :

Sub TRIRECAP()
With ActiveWorkbook.Worksheets("RECAPITULATIF")
  .[A2:M810].Sort .[A2], xlAscending, Header:=xlYes
End With
End Sub

A+

 

[s2fruit]

Re : Macro Excel 2003

Bonjour s2fruit, Pierrot,

Perso, quelle que soit la version Excel, j'utilise cette syntaxe :

Sub TRIRECAP()
With ActiveWorkbook.Worksheets("RECAPITULATIF")
  .[A2:M810].Sort .[A2], xlAscending, Header:=xlYes
End With
End Sub

A+

Good Job Merci beaucoup !

 

[s2fruit]

Re : Macro Excel 2003

j'ai adapté ça et ça fonctionne aussi

Dim Lg As Integer
Lg = Range("A65536").End(xlUp).Row
Range("a2:m" & Lg).Sort Key1:=Range("a2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False
End Sub

 

[job75]

Re : Macro Excel 2003

Re,

Vu votre profil.

Je ne savais pas que la Loire-Atlantique était au Canada

A+

 

[s2fruit]

Re : Macro Excel 2003

Re,

Vu votre profil.

Je ne savais pas que la Loire-Atlantique était au Canada

A+

Il n'y'a que la Mer qui nous sépare Tabernacle