Discussion :

[LEONARDO95]

bonsoir,

Je voudrais savoir s'il est possible de permuter
un groupe de cellules suivant un ordre croissant
en rajoutant une routine VBA au programme.

le programme que j'utilise trie et classe(voir le fichier joint) selon le tableau
de gauche mais les differents groupes ne sont pas classés par ordre croissant.
le tableau de droite représente cette permutation souhaitée.
mes recherches sur le net sont restées vaines.
merci pour vos conseils sur la méthode à utiliser
pour résoudre ce probleme si possible.

leonardo

[ARTURO83]

Bonjour,

Un simple tri en cascade des 5 colonnes en utilisant l'enregistreur de macro et vous avez le code tout prêt.

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
Sub Tri()
    Range("AA1:AE10").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("AA1:AA10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("AB1:AB10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("AC1:AC10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("AD1:AD10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("AE1:AE10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("AA1:AE10")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Cdlt