Discussion :

[blacksun1]

bonjour,

j'ai une macro VBA écrite sous excel 2003 qui ne fonctionne pas sous excel 97, le poste utilisé ne pouvant être upgradé en 2003 celle ci doit donc fonctionner.
je ne vois pas ou le bat blesse, auriez vous une idée.

merci

code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
' ########## tri du suivi déchets ##########
    Sheets("PI - 0258 suivi des dechets").Select
    Range("A4:BK" & ligne).Select ' modifier si ajout de colonne doit pointer sur dernière colonne (BE)
    Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Key2:=Range("A4") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
        , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
    ActiveWindow.SmallScroll Down:=6

[Pierre Fauconnier]

Bonjour

Message d'erreur?
Ligne sur laquelle se produit l'erreur?
...?

[kiki29]

Salut, en supprimant dans ta procédure de tri

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal

cela devrait tourner

Par la suite on peut envisager une compilation conditionnelle
du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    #If VBA6 Then
	......
    #Else
	......
    #End If

Accessoirement tu peux déjà "optimser" le code en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With Sheets("PI - 0258 suivi des dechets")
        .Range("A4:BK" & Ligne).Sort Key1:=.Range("C4"), Order1:=xlAscending, Key2:=.Range("A4") _
        , Order2:=xlAscending ....
    End With

[blacksun1]

Bonjour,

Voici le message d'erreur:
erreur d'execution '1004'
erreur définie par l'application ou l'objet


Et les lignes incriminées:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Key2:=Range("A4") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
        , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal

pour kiki29:
j'ai testé en supprimant les lignes que tu proposes et cela ne change rien au problème

[kiki29]

Salut,et pourtant cela a été testé sous Excel 97 SR2

[blacksun1]

Ca passe pas sous excel 97 de base