Discussion :

[Kutoh]

Bonjour, j'essaie de faire un tri à partir d'une macro VBA. J'ai choisi l'algorithme de tri par insertion. Voici mon code

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 tritableau()
Dim i As Integer, j As Integer, n As Range
Dim t(100) As Long
 
For i = 6 To 100
n = Rows(i)
 
j = i
Do Until Rows(j - 1).Value < n.value
Rows(j) = Rows(j - 1)
j = j - 1
Loop
Rows(j) = n
 
Next i
 
End Sub

Mais ça ne fonctionne pas. J'aimerai s'il vous plait avoir une autre alternative

[SMBeccaria]

Bonjour,

ça n'est pas clair, peux tu envoyer le fichier stp

[Kutoh]

Sur mon fichier tu vas constater que dans la première cellule il y'a des chiffres, dans la deuxième, il y'a des lettres. Je voudrai classer les chiffres par ordre croissant et que chaque chiffre en se déplacant lors du tri, se déplace avec la lettre qui lui est attribuée.
Comme quoi, ce sont les lignes qui devraient êtres déplacées.

[Kutoh]

Voici le code que j'ai écris, et il fonctionne

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
Sub tritableau()
Dim i As Integer, j As Integer, n As Long, d As Long
Dim s As String
 
For i = 1 To 20
    n = i
      For j = i + 1 To 20
   If Cells(j, 2).Value < Cells(n, 2).value Then n = j
  Next j
  d = Cells(n, 2).Value
 s = Cells(n, 3).Value
 
 Cells(n, 2).Value = Cells(i, 2).Value
 Cells(n, 3).Value = Cells(i, 3).Value
 
  Cells(i, 2).Value = d
 Cells(i, 3).Value = s
Next i
End Sub

Merci pour l'assistance.