Discussion :

[romain8544]

Bonjour,
je souhaite faire une macro de tri personnalisé sous excel.

Dans toutes mes cellules ce sont des nombres.
Ma colonne B doit être trié par ordre décroissant

après le tri, je veux contrôler:
- que dans ma colonne A la ligne contenant "10" soit obligatoirement après toutes c'est cellules "1,2,3,4,5,6,7,8,9" sinon déplacer après la derrière de la liste "2,3,4,5,6,7,8,9"
- que dans ma colonne A la ligne contenant "20" soit obligatoirement après toutes c'est cellules "11,12,13,14,15,16,17,18,19" sinon déplacer après la derrière de la liste "11,12,13,14,15,16,17,18,19" .

Merci de votre aide

[Marc-L]

Bonjour,

aucun souci de tri en manuel si les options sont bien paramétrées (décroissant, pas de titre de colonne)
et en activant l'Enregistreur de macros une base de code est livrée sur un plateau !

Ou encore tout simplement en lisant l'aide VBA de la méthode Range.Sort …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[romain8544]

MERCI

J'ai essayer un tri personnalisé par niveau mais ça ne marche pas avec la colonne A.

Voici une deuxième feuille excel pour mieux comprendre.

colonne AB= base donnée
colonne DE= après un tri de la colonne B
colonne GH= c'est que je cherche à réaliser déplacer la ligne 10 après 1,2,...,9 et 20 après 11,12,...,19

[Marc-L]

Oui alors là ce n'est plus une logique de tri Excel !

Il suffit de parcourir les cellules depuis la dernière (voir l'aide VBA de For … Next avec l'option Step -1) …

[Kiouane]

Je peux te proposer une solution mais il y aura sûrement mieux.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub x()
 
Dim a, b As Integer
n = Range("A" & Rows.Count).End(xlUp).Row
 
 
 Range("A3:B" & n).Sort Key1:=Range("B3"), Order1:=xlDescending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
 
 
 For j = 1 To 20
   For i = n - 1 To 3 Step -1
 
     If Cells(i, 1).Value = 10 And Cells(i + 1, 1).Value < 10 Then
         a = Cells(i, 1).Offset(0, 1).Value
         Cells(i, 1).Value = Cells(i + 1, 1).Value
         Cells(i, 1).Offset(0, 1).Value = Cells(i + 1, 1).Offset(0, 1).Value
         Cells(i + 1, 1).Value = 10
         Cells(i + 1, 1).Offset(0, 1).Value = a
     End If
 
  Next
 
 Next
 
For j = 3 To n - 1
  For i = n - 1 To 3 Step -1
 
    If Cells(i, 1).Value = 20 And Cells(i + 1, 1).Value < 20 Then
 
        b = Cells(i, 1).Offset(0, 1).Value
       Cells(i, 1).Value = Cells(i + 1, 1).Value
       Cells(i, 1).Offset(0, 1).Value = Cells(i + 1, 1).Offset(0, 1).Value
       Cells(i + 1, 1).Value = 20
       Cells(i + 1, 1).Offset(0, 1).Value = b
 
     End If
 
  Next
 
Next
 
 
End Sub

[romain8544]

ça l'air de marcher. Merci beaucoup à vous deux.
Je teste la macro dans la journée et je reviens vers vous.