Boucle de tri

Version imprimable

Boucle de tri

Bonjour,
J'ai plusieurs fiches "collées" côte à côte (oui, je sais... mais changer les habitudes des utilisateurs est trèèès compliqué), et je souhaiterais faire un tri sur une plage donnée pour chaque fiche. J'ai la macro de tri qui fonctionne, mais j'ai un problème avec la boucle. J'apprécierais un petit coup de main...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Filtre()
'
' Filtre Macro
'
'
Dim Cell As Range
'
Range("6:6").Select
For Each Cell In Selection
If Cell.Value <> "" Then
    If Cell = "Nb tiges fleurs" Then
    Set ActiveCell = Cell.Offset(x, y)
    Range("Cell.Offset(4, 0):Cell.Offset(22, 4)").Select
    ActiveWorkbook.Worksheets("chiffrage").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("chiffrage").Sort.SortFields.Add Key:=Range("Cell.Offset(4, 0)") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("chiffrage").Sort.SortFields.Add Key:=Range("Cell.Offset(4, 1)") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("chiffrage").Sort
        .SetRange Range("Cell.Offset(4, 0):Cell.Offset(22, 4)")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With
    End If
    End If
    Next Cell
End Sub

Merci d'avance

08/12/2016, 19h41
parmi

Bonjour,

Qu'est-ce que tu entends par fiches côte à côte ? Dans la même feuille ?
Si oui, tu ne peux pas filtrer en même temps différents tableaux sur une même feuille sauf si tous les tableaux sont du même format ou ont les mêmes colonnes à filtrer...

Mais je n'ai peut-être pas très bien compris le problème... (?)

Et tu ne dois pas mettre de guillemets autour d'un Range comme ici

Code:

Key:=Range("Cell.Offset(4, 0)")

Essaie plutôt

Code:

Key:=Cell.Offset(4, 0)

Citation:

Envoyé par parmi

Bonjour,

Qu'est-ce que tu entends par fiches côte à côte ? Dans la même feuille ?
Si oui, tu ne peux pas filtrer en même temps différents tableaux sur une même feuille sauf si tous les tableaux sont du même format ou ont les mêmes colonnes à filtrer...

Oui c'est le cas, les fiches sont toutes identiques et doivent toutes être triées de la même façon. D'où la macro...
J'ai fait la modif pour les "Key", mais ça bloque avant : ça me met l'erreur "LA méthode Range de l'objet global a échoué" pour cette ligne :

Code:

Range("Cell.Offset(4, 0):Cell.Offset(22, 4)").Select

J'ai essayé d'enlever les guillemets mais ça m'affiche un message d'erreur...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Sub Filtre() ' ' Filtre Macro ' ' Dim Cell As Range ' Range("6:6").Select For Each Cell In Selection If Cell.Value <> "" Then If Cell = "Nb tiges fleurs" Then Set Cell = Cell.Offset(x, y) Range("Cell.Offset(4, 0):Cell.Offset(22, 4)").Select ActiveWorkbook.Worksheets("chiffrage").Sort.SortFields.Clear ActiveWorkbook.Worksheets("chiffrage").Sort.SortFields.Add Key:=Cell.Offset(4, 0) _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("chiffrage").Sort.SortFields.Add Key:=Cell.Offset(4, 1) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("chiffrage").Sort .SetRange Range("Cell.Offset(4, 0):Cell.Offset(22, 4)") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End If End If Next Cell End Sub

En fait j'ai trouvé, c'était juste une histoire de syntaxe, il fallait mettre

Code:

Range(Cell.Offset(4, 0), Cell.Offset(22, 4)).Select

et c'est bon ça marche ! Merci de m'avoir donné cette piste ;)

Le code complet et fonctionnel si ça peut servir à quelqu'un :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Filtre()
'
' Filtre Macro
'
'
Dim Cell As Range
'
Range("6:6").Select
For Each Cell In Selection
If Cell.Value <> "" Then
    If Cell = "abcd" Then
    Set Cell = Cell.Offset(x, y)
    Range(Cell.Offset(4, 0), Cell.Offset(22, 4)).Select
    ActiveWorkbook.Worksheets("feuill1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("feuill1").Sort.SortFields.Add Key:=Cell.Offset(4, 0) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("feuill1").Sort.SortFields.Add Key:=Cell.Offset(4, 1) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("feuill1").Sort
        .SetRange Range(Cell.Offset(4, 0), Cell.Offset(22, 4))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With
    End If
    End If
    Next Cell
End Sub