Discussion :

[tom.com]

Bonjour,

L'intitulé de mon post n'est pas clair du tout mais mon problème est simple :

Dans mon classeur je voudrais trier les cellules par ordre alphabétique des valeurs de la rangée H, ces valeurs sont de la forme "NOMBRE_TEXTE-CHIFFRE", et j'ai besoin de classer les cellules selon la valeur TEXTE.

Actuellement j'effectue le code :
Range("A1:Z1000").Sort Key1:=Range("H1"), Order1:=xlAscending

Mais évidement le résultat me donne C201_ISO-1 suivi de C202_DATA-1 etc.

J'ai essayé le code Range("A1:Z1000").Sort Key1:=Split(Range("H1"), "_"), Order1:=xlAscending mais Excel n'as pas aimé.

Sinon j'ai pensé faire une boucle avec un Split et une réécriture dans une autre colonne, ensuite un tri et enfin supprimer la colonne mais mon fichier comprend plus de 100.000 lignes donc j'ai peur du temps de traitement.
J'utiliserai cette méthode en dernier recours.

Merci de vos éventuelles réponse/aides

[Philippe Tulliez]

Bonjour,
Une idée serait de créer une colonne en prenant les caractères après le "_" et ensuite faire le tri par rapport à cette colonne
En supposant que la référence est en A2, la formule est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=STXT(A2;CHERCHE("_";A2)+1;NBCAR(A2))

Ou la concaténation inverse avec cette formule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=STXT(A2;CHERCHE("_";A2)+1;NBCAR(A2)) & GAUCHE(A2; CHERCHE("_";A2)-1)

Ces formules sont bien évidemment à adapter en VBA mais pour le test sans VBA cela prend 2 minutes (Le temps de copier la formule et l'étendre vers le bas par un double clic et ensuite cliquer sur le tri).

[tom.com]

ça a fonctionné
Merci beaucoup