ub Bouton6_QuandClic() 'effectue un tri bulle
Salut le forum!!
Bon je vous explique, j'essaye depuis ce matin de faire mon tri bulle. Il fonctionne mais à moitié, j'aimerais savoir si l'un d'entre vous à une idée à ce sujet. Sachant que Tablo est définit de 2 à Ubound(Tablo). Le tri fonctionne mais il ne commence pas à la valeur la plus basse et au bout d'un moment il ne tri plus le tableau (cependant, il permute toujours certaines valeurs...)
J'ai évidemment cherché sur internet, sur le forum, dans les bouquin. Mais je ne vois pas d'explication.
Bonne journée mesdames, mesdemoiselles, messieurs
For h = LBound(tablo) To UBound(tablo)
For k = 2 To h - 1
If tablo(k) > tablo(k + 1) Then
tmp = tablo(k)
tablo(k) = tablo(k + 1)
tablo(k + 1) = tmp
End If
Next k
Next h
For i = 2 To UBound(tablo)
Sheets("repartition_masses").Cells(20, i) = tablo(i)
Next i
End Sub
Salut le forum!!
Bon je vous explique, j'essaye depuis ce matin de faire mon tri bulle. Il fonctionne mais à moitié, j'aimerais savoir si l'un d'entre vous à une idée à ce sujet. Sachant que Tablo est définit de 2 à Ubound(Tablo). Le tri fonctionne mais il ne commence pas à la valeur la plus basse et au bout d'un moment il ne tri plus le tableau (cependant, il permute toujours certaines valeurs...)
J'ai évidemment cherché sur internet, sur le forum, dans les bouquin. Mais je ne vois pas d'explication.
Bonne journée mesdames, mesdemoiselles, messieurs
For h = LBound(tablo) To UBound(tablo)
For k = 2 To h - 1
If tablo(k) > tablo(k + 1) Then
tmp = tablo(k)
tablo(k) = tablo(k + 1)
tablo(k + 1) = tmp
End If
Next k
Next h
For i = 2 To UBound(tablo)
Sheets("repartition_masses").Cells(20, i) = tablo(i)
Next i
End Sub