Tri tableau nombre décimaux

[adelaidetermote]

BOnjour tous le monde,

J'aurai aimé savoir si l' un de vous aurait un code VBA pour trier un tableau de données de nombre décimaux par ordre croissant en partant du haut du tableau. Par exemple:

4.5 8.2 5.3 2.2 2.1

Donne

2.1 2.2 4.5 5.3 8.2

voili voilou

Merci bonne journée

 

[pierrejean]

Re : Tri tableau nombre décimaux

Bonjour adelaidetermote

ceci devrait convenir

Sub test()
tablo = Array(4.5, 8.2, 5.3, 2.2, 2.1)
For n = LBound(tablo) To UBound(tablo)
  For m = LBound(tablo) To UBound(tablo)
     If tablo(n) < tablo(m) Then
       temp = tablo(n)
       tablo(n) = tablo(m)
       tablo(m) = temp
     End If
  Next
Next
For n = LBound(tablo) To UBound(tablo)
  MsgBox (tablo(n))
Next
End Sub

 

[adelaidetermote]

Re : Tri tableau nombre décimaux

Bonjour,

Merci Beaucoup

Merci pour le code il fonctionne bien en effet et j' ai essayé de l' intégrer dans mon outils. Néanmoins ca ne fonctionne pas sur ce dernier il ne me ressort pas dans l' ordre et je en comprend pas pour quelles raisons.

Le principe est qu' à partir d' un nombre entrer dans la feuille principale il le compare par rapport au nombre des autres feuilles, et ressort les noms des 4 premières feuilles dont la caractéristique se rapproche le plus du nombre entrée.

Voila le fichier en pièce jointe

Pour informations lorsque je rentre 2 dans Cara Thermique il me ressort

Façade 2 1 4 3

Cependant lorsque je rentre un nombre supérieur à tous les nombres des feuilles façades cela fonctionne.

Si qqun sait d' où provient le bug dans le VBA je suis intéressé parce que la je suis un peu perplexe

Voili voilou

Adé

 

[adelaidetermote]

Re : Tri tableau nombre décimaux

Re BOnjour,

Voila alors j' ai modifié le Code pour qu'il me renvoie dans le tableau les valeurs de différence rentrées dans le tableau td

SI je saisie 2, il me ressort 0 0 1 1, donc je pense que l'algortihme de tri est bon.

L' opération de différence n' est pas correcte, je ne comprend pas pourquoi il ne me ressort pas 0.25 0.05 1.25 0.75, finalement dans le bon sens 0.05 0.25 0.75 1.25

Je suis preneuse de toute suggestion la, je ne comprend pas pourquoi il arrondi au nombre entier le plus proche dans l' opération????

Merci

Adé

 

[pierrejean]

Re : Tri tableau nombre décimaux

Re

Rapidement

teste

Dim td() As double

 

[adelaidetermote]

Re : Tri tableau nombre décimaux

Re PierreJean

Testé avec td() as double, fonctionne pas, toujours la différence en valeurs entière.....

Perplexe...Je trouve pas d' ou ca vient...

Merci

Adé

 

[pierrejean]

Re : Tri tableau nombre décimaux

Re

j'etais sur la bonne voie mais je n'etais pas allé assez loin

tester:

Dim dif As Double 
Dim td() As Double  
Dim temp0 As Double, temp1 As Double

 

[adelaidetermote]

Re : Tri tableau nombre décimaux

Re

YES ca a l' air de fonctionner, je vous remercie de la réponse, en revanche pas trop compris ce que ça fait Double, je vais me renseigner sur le net.

Merci

Bonne journée

 

[pierrejean]

Re : Tri tableau nombre décimaux

Re

Pas besin du Net !
Utilise plutot l'aide de Visual basic (curseur sur double et touche F1)
Je n'ose pas te conseiller ma technique : Ne pas declarer les variables ,ce qui revient a les declarer toutes en Variant