Discussion :

[shipuden64]

Bonjour à tous,
Je sollicite votre aide pour savoir où mon code bug. Voilà, j’aimerai (en appuyant sur un bouton) trier une plage de cellule sauf que cette plage n’est pas toujours la même (il peut y avoir plus ou moins de lignes, le nombre de colonne lui reste le même).
J’ai l’erreur suivante : 1004 Erreur définie par l’application ou par l’objet.
Après plusieurs recherches sur le site je n’ai pas réussi à débloquer la situation.

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
17
18
19
20
21
22
23
 
Sub triertableau()
 
Dim i As Integer
 
For i = 4 To 300 Step 1
Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("J" & i, "J" & i), SortOn:=xlSortOnValues, Order:=xlAscending
Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("H" & i, "H" & i), SortOn:=xlSortOnValues, Order:=xlAscending
Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("G" & i, "G" & i), SortOn:=xlSortOnValues, Order:=xlAscending
Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("F" & i, "F" & i), SortOn:=xlSortOnValues, Order:=xlAscending
Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("D" & i, "D" & i), SortOn:=xlSortOnValues, Order:=xlAscending
With ActiveWorkbook.Worksheets("Feuil1").Sort
     .SetRange Range("A" & i, "O" & i)
     .Header = xlYes
     .MatchCase = False
     .Orientation = xlTopToBottom
     .SortMethod = xlPinYin
     .Apply
End With
 
Next i
 
End Sub

[shipuden64]

Finalement voici ce que j’ai fait :

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
17
18
Sub triertableau()
With Sheets("Feuil1")
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("J4:J1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SortFields.Add Key:=Range("H4:H1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SortFields.Add Key:=Range("G4:G1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
    .Sort.SortFields.Add Key:=Range("F4:F1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SortFields.Add Key:=Range("D4:D1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
            .SetRange Range("A4:O1000")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
    End With
End With
End Sub

Si quelqu'un à une autre solution elle est la bienvenue car trier sur des lignes sui n'existant pas c'est pas terrible.
merci