Bonjour a vous voilà j'ai une liste d'environ 100 nombres sur laquelle je voudrais faire un tri. En effet les nombres sont données dans le désordre et peuvent parfois se répéter. C'est pourquoi je cherche à faire une commande qui me permet d'une part de les trier du plus petit au plus grand et d'effacer la ligne lorsque j'ai un double. J'ai fais ce code pour l'instant mais il ne fonctionne pas du tout. Une idée s'il vous plait. Car la j'avour ne pas voir ce qu'il se passe.Merci d'avance
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 Private Sub CommandButton1_Click() Dim Buf As Long For I = 2 To 100 If Sheet2.Cells(I + 1, "a").Value < Sheet2.Cells(I, "a").Value Then Buf = Sheet2.Cells(I + 1, "a").Value Sheet2.Cells(I + 1, "a").Value = Sheet2.Cells(I, "a").Value Sheet2.Cells(I, "a").Value = Buf ElseIf Sheet2.Cells(I + 1, "a").Value = Sheet2.Cells(I, "a").Value Then Sheet2.Rows(I).Delete End If I = I + 1 Next End Sub
Partager