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