Script pour filtre avec un Range indeterminé

Version imprimable

03/12/2010, 19h58
Rashlack

Script pour filtre avec un Range indeterminé

Bonjour,
Alors voici un petit problème que j'ai:
J'ai un tableau environ comme celui-ci, cependant les nombre sont appeler a changer, ainsi que le nombre de ligne, mais les colonne reste les même.

1 a 15 60
1 b 10 20
1 a 20 55
1 b 15 20
1 a 15 75
1 c 30 60
1 a 15 75
1 b 10 20
1 a 20 60
1 a 15 60

sur ce tableau, je dois avoir une commande pour faire un tri automatique
cependant si je sélectionne tout le tableau, il ne tri rien puisque la première colonne est a 1 partout (ce chiffre peut changer aussi bien sur). je veux obtenir ceci:

1 a 15 60
1 a 15 60
1 a 15 75
1 a 15 75
1 a 20 55
1 a 20 60
1 b 10 20
1 b 10 20
1 b 15 20
1 c 30 60

manuellement c'est facile. S'il y avait un nombre de ligne toujours pareil avec la même quantité de nombre ou lettre pareil dans chaque. le tri manuel se fait donc en plusieurs étape:
1- tout le tableau selectionné pour faire un tri
2- selectionner toutes les ligne contenant "a" en colonne 2 et faire un autre tri
3- selectionner tous nombre identique de la colonne 3 et faire un autre tri avec la colonne 4 .... etc

comment faire le tout avec un script vba sachant que le tableau change à chaque fois, autant le nombre de ligne, que les lettre et chiffre.

Merci
03/12/2010, 20h36
pgz

Bonsoir.

Regardes la méthode Sort de l'objet range. Tu peux faire le tri sur 3 champs simultanément.

Cordialement,

PGZ

Pour documentation s'il y a des utilisateur qui ont le même problème.

J'ai trouvé la solution avec une macro excel, puis ensuite je l'ai copié dans mon VBA... Car avec la fonction sort de vba on ne peut que trier avec 3 keys.

j'ai donc fait comme suit:

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
Dim noligne As Integer
For i = 1 To 150
    If Cells(i, 1) = "" Then
        noligne = i - 1
        i = 150
    End If
Next i
Range(Cells(1, 1), Cells(noligne, 10)).Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(Cells(1, 1), Cells(noligne, 1)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(Cells(1, 2), Cells(noligne, 2)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(Cells(1, 4), Cells(noligne, 4)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(Cells(1, 5), Cells(noligne, 5)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(Cells(1, 10), Cells(noligne, 10)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range(Cells(1, 1), Cells(noligne, 10))
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

merci pour l'aide