trie de valeurs par suite arithmétique

[marie33000]

Bonjour tous le monde j'aimerais trier mes données d'une certaine façon.
Voici un exemple de mes données:

100		n
100.5		n
101		n+1
101.5		n+1
102		n+2
102.5		n+2

Serait il possible de faire un petit programme pour les trier de cette façon :

100		n
101		n+1
102		n+2
100.5		n
101.5		n+1
102.5		n+2

J'aimerais les trier par groupe de suite arithmétique en fait.

Merci par avance

 

[youky(BJ)]

Re : trie de valeurs par suite arithmétique

Bonjour Marie,
Avec une formule en E1
=SI(ENT(A1)/A1=1;A1;A1*1000000)
Tirer en bas la formule, ensuite sélectionner tout le tableau et menu >trier>
col E>croissant...........

 

[hoerwind]

Re : trie de valeurs par suite arithmétique

Bonjour,

J'avais quelque chose de semblable :
Les valeurs à trier en colonne A
B1 : =SI(MOD(A1;1)=0;A1;A1*100)
Formule à copier vers le bas,
trier les colonnes A et B sur la colonne B,
effacer la colonne B

 

[marie33000]

Re : trie de valeurs par suite arithmétique

Bonjour Marie,
Avec une formule en E1
=SI(ENT(A1)/A1=1;A1;A1*1000000)
Tirer en bas la formule, ensuite sélectionner tout le tableau et menu >trier>
col E>croissant...........

Merci beaucoup pour votre réponse 🙂
En fait, il me faudrait faire cela à l'aide d'une macro pour pouvoir l'intégrer à mon programme.
Donc si un tel programme est réalisable en vba excel je suis preneuse.

Merci par avance

 

[youky(BJ)]

Re : trie de valeurs par suite arithmétique

Voici en macro

For k = 1 To [A65536].End(3).Row
Cells(k, 4) = IIf(Int(Cells(k, 1)) / Cells(k, 1) = 1, Cells(k, 1), Cells(k, 1) * 1000000)
Next
Columns("A:D").Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess
[D:D].ClearContents

 

[marie33000]

Re : trie de valeurs par suite arithmétique

merci mille fois 😉

c'est exactement ce que je souhaitais 🙂