passage d'une macro d'excel 2007 a 2003

passage d'une macro d'excel 2007 a 2003 - VB/VBA/VBS - Programmation

Marsh Posté le 22-05-2010 à 18:08:15    

Bonjour,
 
pour mon stage je dois réaliser une macro permettant la mise en forme. Je l'ai faite et elle marchait bien sur excel 2007. Cependant pour ma présentation oral à l'école j'ai 2003 donc j'ai essayé et j'ai réussi à comprendre le problème pour certaine donc j'ai réalisé les correction pour la mise en forme comme les bordures.
Concernant le tri decroissnat, là je ne vois pas du tout. En effet, il me dit : erreur d'exécution 438. Propriété ou méthode non gérée par cet objet
 
Voila le code qui marchait sur 2007 : la macro permettait de faire un tri décroissant sur une colonne
 
 
ActiveWorkbook.Worksheets("SuiviMagSFPortes" ).AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("SuiviMagSFPortes" ).AutoFilter.Sort.SortFields.Add _
Key:=Range("E1:E3499" ), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("SuiviMagSFPortes" ).AutoFilter.Sort
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
End With
 
Que dois-je faire pour qu'elle marche sur excel 2003 ?
 
Merci d'avance pour votre aide

Reply

Marsh Posté le 22-05-2010 à 18:08:15   

Reply

Marsh Posté le 23-05-2010 à 00:38:35    

Salut,désolé mais je n'ai pas 2003 mais 2002. Une version d'évaluation d'Office 2010 est téléchargeable sur http://www.microsoft.com/france/of [...] ?wt.srch=1
( 672 Mo quand même ) , ce qui aurait évité une retranscription du code VBA


Message édité par kiki29 le 23-05-2010 à 00:40:47
Reply

Marsh Posté le 23-05-2010 à 08:14:06    

oui mais le problème c'est qu'à mon stage il on 2003 c'est pourquoi je dois trouver comment faire pour word 2003 mais merci quand meme
 
Si quelqu'un a d'autre idée

Reply

Marsh Posté le 24-05-2010 à 19:41:19    

Re, via une macro sous 2002 ( testée sous 2007 ) devrait tourner également sous 2003, à adapter pour la plage


Sub Tri()
    Application.ScreenUpdating = False
    With Worksheets("SuiviMagSFPortes" )
        .Activate
        .AutoFilterMode = False
    End With
     
    Range("A1:H3499" ).Sort Key1:=Range("E2" ), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
     
    Worksheets("SuiviMagSFPortes" ).Range("A1:H1" ).AutoFilter
    Application.ScreenUpdating = True
End Sub


Message édité par kiki29 le 24-05-2010 à 19:42:40
Reply

Marsh Posté le 25-05-2010 à 08:53:23    

merci je viens d'essayer mais le problème c'est qu'il me supprime la maccro me permettant un fltre commancant par H avant et je ne sais pas ce que je dois modifier pour avoir le bon truc

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed