Discussion :

[Aymeline]

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 :

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
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

[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 :

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

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

Essaie plutôt

Code :

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

Key:=Cell.Offset(4, 0)

[Aymeline]

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 :

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

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 :

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
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

[Aymeline]

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

Code :

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

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 :

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
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