Discussion :

[yaume91]

Bonjour,

Je n'arrive pas à comprendre.
J'ai une macro à laquelle a la fin je met en forme le contenu d'une feuille en triant sur une colonne.
Quand j'arrive dans cette partie lorsque je met un point d'arret avant cette mise en forme et que je le lance pas a pas, cela s'execute bien.
Par contre si apres le point d'arret je fait "run" alors j'ai le droit a l'erreur run time error 9.

voici le bout de code qui me pose tant probleme:

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
16
'MISE EN FORME DU TABLEAU "GLOBAL ISSUES" => classement alphabetique et insertion de la ligne d'entete
    Dim lastrow As Integer
 
    lastrow = to_be_analyzed_workbook.Worksheets("Global issues").Cells.SpecialCells(xlCellTypeLastCell).Row
    to_be_analyzed_workbook.Worksheets("Global issues").Sort.SortFields.Clear
    to_be_analyzed_workbook.Worksheets("Global issues").Sort.SortFields.Add Key:=Range( _
        "A1:A" & lastrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Global issues").Sort
        .SetRange Range("A1:I" & lastrow)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

auriez vous une idee de ce qui cause ce probleme ?

Merci.

[AlainTech]

Bonjour,

Ton tri doit-il s'exécuter sur le classeur où se situe la macro?

Si non, remplace

Code :

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

With ActiveWorkbook.Worksheets("Global issues").Sort

par

Code :

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

With to_be_analyzed_workbook.Worksheets("Global issues").Sort