Trier des chiffres .Txt par ordre croissant

[albert]

bonjour forum, bonjour à tous,

... encore une énigme que je ne saurais résoudre seul...

)

les caractères en Txt ne seraient pas reconnus par le tri croissant ???
(fichier joint)

Dans la colonne A, les chiffres sont précédés d’une apostrophe => .Txt
Colonne C les chiffres sont tabulés normalement dans excel.

Le tri sur la colonne C s’effectue sans problèmes alors que ...
sur la colonne A, le tri doit se faire sur les deux premier chiffres : ’52 se trouve placé après ‘12978

Je conclus qu’il faut que je trouve un code qui supprime l’apostrophe à gauche du nombre pour effectuer un tri, code qui ensuite remet cette même apostrophe pour retrouver le « .Txt »(après le tri qui est conservé)

…j’ai donc cherché… patiemment…

j’ai essayé un code tout fait… bullet.zip
http://www.xl-logic.com/pages/vba.html


Sub Bullet()
Bull = Chr(149) & Chr(32)
Dash = Chr(32) & Chr(32) & Chr(32) & Chr(45) & Chr(32)

For Each Cell In Selection
Tstring = Cell.Value

If Left(Tstring, Len(Bull)) = Bull Then
Tstring = Right(Tstring, Len(Tstring) - Len(Bull))
Cell.Value = Dash & Tstring
Else
If Left(Tstring, Len(Dash)) = Dash Then
Tstring = Trim(Cell.Value)
x = Len(Tstring) - 1
If x >= 0 Then
Cell.Value = Trim(Right(Tstring, x))
End If
Else
Cell.Value = Bull & Tstring
End If
End If

Next Cell
End Sub

J’ai cherché dans l’aide la signification du .Txt et du .xls pour remplacer Chr(149) ; Chr(32) ; Chr(45)… l’aide n’est pas très efficace (ou je ne sais pas m’en servir)



merci d'avance à celui ou ceux qui pourront me dépanner

albert

 

[sylvain]

bonjour,

pourquoi ne pas simplement convertir le texte en chiffres :
=CNUM(A1)
après le tri se fait seul.

A+

 

[albert]

il suffirait donc de faire une seconde colonne de contrôle, ce qui éviterait de mpdifier le .Txt...

en effet, c'est pas mal comme idée

merci

;-)

albert