Bonjour à tous,
une macro Excel écrite en VB tourne sous excel 2000 mais pas 2003.

Il semblerait que ce soit à cause de ce paragraphe. Seulement, je ne vois pas pourquoi. Quelqu'un aurait-il la solution miracle pour me sortir de ce mauvais pas ?

Merci à tous.

Cédric


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
--------------------
 
                Range("A4").AutoFilter Field:=1, Criteria1:="=somme*", Operator:=xlAnd
                Range("A4").CurrentRegion.Offset(2, 0).Resize(Range("A4").CurrentRegion.Rows.Count - 2, Range("A4").CurrentRegion.Columns.Count).EntireRow.Delete
                Selection.AutoFilter Field:=1
                Selection.AutoFilter Field:=2, Criteria1:="=somme*", Operator:=xlAnd
                Range("A4").CurrentRegion.Offset(2, 0).Resize(Range("A4").CurrentRegion.Rows.Count - 2, Range("A4").CurrentRegion.Columns.Count).Select
                Selection.Font.FontStyle = "Italique"
                Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
                Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
                Selection.Interior.ColorIndex = 15
                Selection.AutoFilter Field:=2
                Selection.AutoFilter Field:=3, Criteria1:="=somme*", Operator:=xlAnd
                Range("A4").CurrentRegion.Offset(2, 0).Resize(Range("A4").CurrentRegion.Rows.Count - 2, Range("A4").CurrentRegion.Columns.Count).EntireRow.Delete
                Selection.AutoFilter