Macro Excel 2003

s2fruit · 8 Avril 2015

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 · 8 Avril 2015

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 · 8 Avril 2015

Re : Macro Excel 2003

Pierrot93 à dit:
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 · 8 Avril 2015

Re : Macro Excel 2003

Bonjour s2fruit, Pierrot,

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

Code:

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

A+

s2fruit · 8 Avril 2015

Re : Macro Excel 2003

job75 à dit:
Bonjour s2fruit, Pierrot,

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

Code:

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

A+

Good Job 😉 Merci beaucoup !

s2fruit · 8 Avril 2015

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 · 8 Avril 2015

Re : Macro Excel 2003

Re,

Vu votre profil.

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

A+

s2fruit · 9 Avril 2015

Re : Macro Excel 2003

job75 à dit:
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 😛

Macro Excel 2003

s2fruit

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

s2fruit

XLDnaute Junior

job75

XLDnaute Barbatruc

s2fruit

XLDnaute Junior

s2fruit

XLDnaute Junior

job75

XLDnaute Barbatruc

s2fruit

XLDnaute Junior

Discussions similaires

Macro Excel 2003

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency