Trier cellule avec texte et nombre Fermé

Question

Bonjour, 

je cherche a faire le tri croissant d'une plage de données qui est composée de cellules toute construite de cette façon : "YA ###" .
N° abri
YA 1  
YA 100
YA 101
YA 102
YA 103
YA 11 
YA 12 
YA 13 
YA 14 
YA 15 
YA 16 
YA 17 
YA 18 
YA 2  
YA 20 
YA 200


j'ai essayé par format de cellule personnalisé : "YA" ###  mais il continue à trier de A-Z et non pas un tri croissant par le nombre.

Merci d'avance !

Configuration: Windows XP / Safari 535.7

forgotten · Answer

Salut, elle est dans quoi ta liste ?

lermite222 · Answer

Bonjour,
Avec le format "YA" ###
Ca fonctionne impec.
A+

skipass · Answer

Liste sur excel 2007. J'ai re-essayé encore suite à ton post lermite222 mais ca ne trie pas sur le nombre croissant : 

concrètement excel trie : 
YA 1
YA 100
...
YA 2
YA 20
YA 200

ce ne convient pas !

merci pour voter aide !

lermite222 · Answer

Oui, Mais ça c'est inévitable et inhérent au logiciel. (malheureux mais c'est comme ça)
Même sans format tu va avoir le même résultat.
Seule façon de faire, formater la colonne en texte et mettre des YA 001, YA 002, YA 010, YA 100 etc.
A+

pijaku · Answer

Bonjour,

Essayez comme ceci :
1- saisir des chiffres, de 1 à 500,
2- sélectionner les cellules / Format de cellule / choisir "texte"
3- OK
4- sélectionner les cellules / Format de cellule / choisir "personnalisé" et saisir : "YA" ###
5- OK
6- Triez...

Un classeur exemple

michel_m · Answer

Bonjour  

par VBA: résultat du tri effectué sur une autre colonne "pour voir l'essai du code") A ADAPTER A LA STRUCTURE DU CLASSEUR  

https://www.cjoint.com/?3BqqbQ2ZCLn 

Option Base 1  

Sub trier_par_nombre()  
Dim T_in, T_sep, separ  
Dim Fin As Integer
  
Fin = Range("A1").End(xlDown).Row  
T_in = Application.Transpose(Range("A1:A" & Fin).Value)  
ReDim T_sep(Fin, 2)
  
For cptr = 1 To Fin  
     separ = Split(T_in(cptr))  
     T_sep(cptr, 1) = separ(0)  
     T_sep(cptr, 2) = separ(1)  
Next
  
TriMulti T_sep, 2, LBound(T_sep), UBound(T_sep) 
 
For cptr = 1 To Fin  
     T_in(cptr) = T_sep(cptr, 1) & " " & T_sep(cptr, 2)  
Next
  
Range("C1").Resize(Fin, 1) = Application.Transpose(T_in)  

End Sub 
 

  Sub TriMulti(Tablo, Col As Byte, Min&, Max&)  
  'Auteurs : Ti et Zon  
    Dim I&, J&, K&, M, Chaine 
 
     I = Min  
     J = Max  
     M = Tablo((Min + Max) / 2, Col)
  
     While (I <= J)  
       While (Tablo(I, Col) < M And I < Max)  
         I = I + 1  
       Wend  
       While (M < Tablo(J, Col) And J > Min)  
         J = J - 1  
       Wend
 Michel

lermite222 · Answer

Bonjour Michel,
Je suis d'accord avec toi, seul une fonction VBA pourra résoudre sont problème.
A+

Nanyick · Answer

Bonjour,

Ton tri est-il fait ponctuellement ?

Si oui, en imaginant que ta colonne "n° Abri" soit la colonne A,  tu peux ajouter dans une colonne voisine la formule : =SUBSTITUE(A1;"YA ";;1)

Tu copies vers le bas la formule puis tu appliques un tri sur cette dernière colonne.

(cette colonne peut être supprimé après tri)

lermite222 · Answer

Bonjour tous,
Une tite fonction ?
Sub TriPerso()
Dim TB, T As Boolean, Buff As Double
Dim Fin As Integer
    Fin = Range("A1").End(xlDown).Row
    TB = Application.Transpose(Range("A1:A" & Fin).Value)
    Do
        T = False
        For i = 2 To Fin
         If TB(i) < TB(i - 1) Then
            T = True: Buff = TB(i)
            TB(i) = TB(i - 1): TB(i - 1) = Buff
         End If
        Next i
    Loop Until T = False
    Range("A1").Resize(Fin, 1) = Application.Transpose(TB)
End Sub
A+

Trier cellule avec texte et nombre

9 réponses

Discussions similaires