tri alphanumérique

[ducat 996 2001]

bonjour

J'ai besoin de trier des cellules par ordre alphanumerique, mais (il y à toujours un mais ) j'aimerai débuter le tri par (par exemple) par la lettre T et donc avoir un tri sous la forme: T,U,V,W,X,Y,Z,A,B,C,D.....etc

est-ce possible ?

merci

 

[BOISGONTIER]

Re : tri alphanumérique

Bonsoir,

Sub Essai()
 [b:b].Insert
  For Each c In Range([A2], [a65000].End(xlUp))
    c.Offset(0, 1) = IIf(Asc(c) >= 84, Asc(c) - 20, Asc(c) + 6)
  Next c
  [A1].Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
  [b:b].Delete
End Sub

JB

 

[marmotte18]

Re : tri alphanumérique

Bonjour tout le monde,

Question pour BOISGONTIER :

J'annule ma question vu qu'entre temps, tu as changé la solution !

 

[marmotte18]

Re : tri alphanumérique

Bonjour tout le monde,

Pour répondre sans macro à la question (c'est-à-dire de trier dans l'ordre T U V W X Y Z A B ... S) , je propose la méthode suivante :

1ère étape => enregistrer l'ordre des lettres dans une liste personnelle :

• Cliquer sur Outils < Options < Liste pers.
• Dans le champs nommé "Entrées de la liste", saisir T et faire Entrée, puis U et faire Entrée, puis V puis faire Entrée, ... pour terminer par S et faire Entrée.
• Cliquer sur le bouton "ajouter"
• Cliquer sur le bouton "ok"

2ème étape => mettre dans une colonne la 1ère lettre de la zone à trier :

Utiliser la fonction GAUCHE(ZoneàTrier;1)

3ème étape => appliquer le tri personnalisé :

• Sélectionner la zone à trier
• Cliquer sur Données < Trier
• En premier champs, choisir la colonne comportant la 1ère lettre
• Cliquer sur options
• Dans la liste déroulante nommée "1ère clé de l'ordre de tri", cliquer sur la liste personnelle enregistrée précédemment
• Cliquer sur le bouton "ok"
• En 2ème champs, prendre la colonne à trier
• Cliquer sur le bouton "ok"

 

[chris]

Re : tri alphanumérique

Bonjour

J'aurais proposé une solutions équivalente à celle de Marmotte.

Donc précisions supplémentaires

• noter que lorsqu'on utilise les options de tri pour utiliser une liste perso, cette option s'enregistre dans le classeur et peut donc perturber d'autres tris éventuels. Il faut donc bien penser pour les autres tri à rétablir "Normal".
• la liste perso s'installe sur le PC et non dans le classeur. Donc si on doit diffuser le classeur il faut la recréer sur chaque poste.
  Ou bien transférer le fichier où se mettent les listes mais je ne ne sais pas son nom.

 

[BOISGONTIER]

Re : tri alphanumérique

Bonjour,

Pour créer la liste perso sur le poste:

Sub Auto_open()
Application.AddCustomList ListArray:=Array("T", "U", "V", "W", "X", "Y", "Z", "A", _
"B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S")
End Sub

JB
Formation Excel VBA JB

 

[marmotte18]

Re : tri alphanumérique

Bonjour,

Pour créer la liste sans macro, il suffit de :

• Taper dans une colonne, une lettre par ligne : T U V, ... R S
• Sélectionner l'ensemble de ces lettres
• Cliquer sur Outils < Options < Liste Pers.
• Cliquer sur le bouton "Importer"
• Cliquer sur le bouton "ok"

 

[chris]

Re : tri alphanumérique

Re

Vérification faite, les listes persos sont stockées dans la base de registre.
Donc plus sûr d'utiliser les solutions manuelles de Marmotte ou Macro de Boisgontier que d'exporter puis importer
HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Excel\Options
pour la version 2002.

 

[marmotte18]

Re : tri alphanumérique

Merci chris, pour la précision

 

[JCGL]

Re : tri alphanumérique

Bonjour à tous,
Salut Chris ,

Un mix de vos propositions par macro : mettre dans l'ordre souhaité la liste en A

Un clique sur le GO créée la Liste Personnelle

Elle est limitée à 26 items mais cela peut s'arranger aisément

A+

 

[ducat 996 2001]

Re : tri alphanumérique

merci pour vos réponses, je vais étudier ça

@+