Discussion :

[thomas93]

Bonjour à tous,

Voilà mon problème, je cherche à trier dans l'ordre croissant les valeurs d'un tableau (B2;G5) et les inscrire (dans l'ordre croissant) en colonne J.
Je ne souhaite pas toucher au tableau donc.
Je ne vois pas trop comment procéder.
Auriez-vous une idée ? svp

Cordialement,
Tom

[SfJ5Rpw8]

Bonjour,

Essai déjà avec l'enregistreur de macro..tu copie ta colonne B en J puis tu tri.. et on regarde ensuite le code génèré.

[thomas93]

Ok merci !

Voici le code généré :

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
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("B2:B5").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=15
    Range("J36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Couverture").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Couverture").Sort.SortFields.Add Key:=Range( _
        "J36:J39"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Couverture").Sort
        .SetRange Range("J36:J39")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[PMO2017]

je cherche à trier dans l'ordre croissant les valeurs d'un tableau (B2;G5) et les inscrire (dans l'ordre croissant) en colonne J.

Bonjour,

Une piste en utilisant System.Collections.SortedList

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
Sub aa()
Dim SL As Object
Dim S As Worksheet
Dim R As Range
Dim C As Range
Dim i&
'--- A adapter ---
Set S = Sheets("test")
Set R = S.Range("B2:G5")
'--- Tri par SortedList (avec doublon) ---
Set SL = CreateObject("System.Collections.SortedList")
For Each C In R
  i& = i& + 1
  SL.Add C & i&, C
Next C
'--- Inscription à partir de J1 ---
For i& = 0 To SL.Count - 1
  S.Range("J" & i& + 1 & "") = SL.GetByIndex(i&)
Next i&
End Sub

[thomas93]

Merci pour ton aide !
Je viens de regarder, j'ai changé les valeur 'mois' en nombre.
Lorsque je lance la macro, il me tri mal les nombre par contre.
En fait, il regarde simplement le premier caractére des nombres.
Du coup, il tri par exemple comme cela :
1
12
2
26
3
35
36
4

Tom

[thomas93]

C'est ok ! J'ai trouvé
Merci de votre aide