Trier sur une plage de cellules variable
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:
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 |
