Problème de VBA sous excel 2003 pour excel 97.

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:

---

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

---

Bonjour

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

Salut, en supprimant dans ta procédure de tri

Code:

---

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

---

cela devrait tourner

Par la suite on peut envisager une compilation conditionnelle
du style

Code:

---

1 2 3 4 5

#If VBA6 Then ...... #Else ...... #End If

---

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

Code:

---

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

---

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:

---

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

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

Ca passe pas sous excel 97 de base