Erreur d'exécution 1004 référence de tri non valide

Bonjour,

Un message d'erreur 1004 référence de tri non valide s'affiche lorsque j'exécute la macro. Je comprend pas le problème.

Je viens donc vous demander votre aide.

Voici mon code et le fichier:

Sub Exo_7b()

' Ecriture d'un formule dans le bas d'un tableau

'déclaration variables

Dim i As Integer

' se placer en K11

Range("K11").Select

'initialiser i = 1ere ligne à regarder

i = 11

' se déplacer en bas de colonne par balayage

While Range("K" & i).Value <> ""

Range("K" & i).Select

i = i + 1

Wend

' se décaler d'une ligne vers le bas

i = i - 1

Range("A11" & ":K" & i).Select

' le tri

ActiveWorkbook.Worksheets("suivi chantier tourret").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("suivi chantier tourret").Sort.SortFields.Add Key:= _

Range("A11" & ":K" & i), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _

:=xlSortNormal

ActiveWorkbook.Worksheets("suivi chantier tourret").Sort.SortFields.Add Key:= _

Range("A11" & ":K" & i), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _

:=xlSortTextAsNumbers

With ActiveWorkbook.Worksheets("suivi chantier tourret").Sort

.SetRange Range("A11" & ":K" & i)

.Header = xlGuess

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

Ps : j'ai regarder sur le forum avant...

Bonjour,

selon moi, le problème vient du fait de ta définition des clés de tri elles ne peuvent pas être multi-colonnes. Sur quelles colonnes veux-tu faire le tri ?

En premier la colonne D (salarié) et ensuite la colonne A (date d'intervention).

Bonjour,

alors voici comment rédiger l'instruction de tri

' le tri

 ActiveWorkbook.Worksheets("suivi chantier tourret").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("suivi chantier tourret").Sort.SortFields.Add Key:= _
        Range("D11" & ":D" & i), SortOn:=xlSortOnValues, Order:=xlAscending
    ActiveWorkbook.Worksheets("suivi chantier tourret").Sort.SortFields.Add Key:= _
        Range("A11" & ":A" & i), SortOn:=xlSortOnValues, Order:=xlAscending
    With ActiveWorkbook.Worksheets("suivi chantier tourret").Sort
        .SetRange Range("A11" & ":K" & i)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Merci H2S04

J'ai testé sa marche nickel sa fait vraiment plaisir.