Tri Chronologique dans colonne
Bonjour à vous tous,
Je souhaiterais trier la colonne A par ordre chronologique.
Quand je trie avec (A à Z), il me classe différemment.
Pouvez-vous m'aider, je vous joins une photo qui parle.
Par avance merci.
Bonjour,
"Pouvez-vous m'aider, je vous joins une photo qui parle."
mais NOUS cela ne nous aide pas
Partage ton document comme suit https://www.sheets-pratique.com/fr/cours/partage
sinon utiliser un Query pour faire un tri (SORT)
Merci de votre réponse.
Le QUERY je connais pas, je suis novice.
Je vous joins le partage :
Bonjour,
accès refusé
autre solution, ajoute une colonne et trie sur celle-ci, avec en-tête de colonne (= mettre sur une cellule vide ligne 1)
={"colonne à trier";arrayformula(if(A2:A="",,regexextract(A2:A,"\D+")&text(regexextract(A2:A,"\d+"),"000")))}merci de ta réponse, j'ai modifié accès au lien, je pense que tu peux le modifier.
En Q2
={"colonne à trier";arrayformula(if(A3:A="";;regexextract(A3:A;"\D+") & text(regexextract(A3:A;"\d+");"000")))}tu peux alors trier sur cette colonne
Génial, un grand merci pour ta contribution
Re bonjour,
je reviens vers vous, je viens de m'apercevoir qu'il y a des erreurs, par ex: les lignes 92, 93, 101.......
ok, augment le nombre de 0 dans le format
={"colonne à trier";arrayformula(if(A3:A="";;regexextract(A3:A;"\D+") & text(regexextract(A3:A;"\d+");"00000")))}Cette formule peut fonctionner sur un fichier Excel ?
on peut appliquer le même principe : séparer lettres et chiffres et mettre les nombres avec un format du même type, mais la formule sera différente parec que excel n'accepte pas nativement les expressions régulières, il faut passer par VBA
je vais regarder et donner une réponse
excel, avec en colonne Z le critère de tri
Sub colonneDeTri()
Set obj1 = CreateObject("vbscript.regexp")
obj1.Pattern = "\D+"
obj1.Global = True
Set obj2 = CreateObject("vbscript.regexp")
obj2.Pattern = "\d+"
obj2.Global = True
On Error Resume Next
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Range("Z" & i) = obj1.Execute(Range("A" & i))(0) & Format(obj2.Execute(Range("A" & i))(0), "00000")
Next
End Sub