Trie sur colonne

[tinet]

bonjour le forum,

je vous soumets une demande sur une cle de trie.

J'utilise en VBA un tri automatique sur plusieurs colonnes.
J'ai besoin de modifier la formule pour trier sur le même principe mais d'attacher deux colonnes ensemble.

c'est-à-dire, que la colonne B soit triée, mais que la colonne C suit les lignes la colonne B

bien sûr il me faut les informations suivantes sur colonne suivante
trie sur la colonne B et C en parallèle
Trie sur la colonne D et E en parallèle
Puis
F avec G
H avec I
J avec k.

Voilà je ne sais pas si c'est possible.
Voici ma formule que j'utilise actuellement.

On Error Resume Next
'for i = 1 to 1 pour 1 colonne,for i = 1 to 2 pour 2 colonnes, etc
   For i = 2 To 12
        Sheets("liste").Range(Cells(1, i), Cells(65536, i).End(xlUp)).Sort Key1:=Cells(1, i), Header:=xlGuess, Order1:=xlAscending
    Next i

Merci de votre aide

 

[CHALET53]

Re : Trie sur colonne

bonjour,

Pas sûr d'avoir compris : un essai

For i = 2 To 12 Step 2
Sheets("Liste").Range(Cells(1, i), Cells(65536, i + 1).End(xlUp)).Sort Key1:=Cells(1, i), Header:=xlGuess, Order1:=xlAscending
Next i

a+

 

[tinet]

Re : Trie sur colonne

Bonjour Chalets 53,

je n'ai plus de clés de tri avec cette formule.
Petits fichiers pour mieux comprendre.
Colonnes b doit être trié automatiquement par ordre alphabétique, la colonne C doit suivre la colonne B à savoir
a=1, b,=2, c=3
et ceci doit être identique pour les autres colonnes

a+

 

[CHALET53]

Re : Trie sur colonne

Re,

je n'ai pas changé grand chose
J'ai supprimé la macro événementielle (qui fait boucler la macro)
en effet, dès que tu fais un tri, tu modifies la feuille qui, donc, relance la macro : for i .....

 

[tinet]

Re : Trie sur colonne

Chalet53,

Merci, Si je souhaite garder "Sub Worksheet_SelectionChange"

que faut-il changer dans la formule pour que ça marche.

a+

 

[CHALET53]

Re : Trie sur colonne

bonjour,

En désactivant la procédure événementielle avant le tri et en le réactivant après le tri
J'ai en plus créer une procédure de réenclenchement de l'événementiel en cas de plantage dans la procédure de tri. En effet dans ce cas, VBA resterait dans la position : Application.EnableEvents= false et la procédure Worksheets_selectionChange ne fonctionnerait plus

La petite procédure permet de le réactiver.

 

[tinet]

Re : Trie sur colonne

Bonjour le forum et chalet53,

Je vai rester avec un tri sur bouton dans l'attente de trouver une autre solution.

Merci de ton aide.

 

[CHALET53]

Re : Trie sur colonne

Bonjour,

Ce que je t'ai proposé fonctionne très bien. La petite procédure Activer Evénementiel ne te servirait que dans le cas où, pour une raison non maîtrisée, la procédure Worksheets_selectionChange se planterait juste après l'avoir désactivée (derrière l'instruction : Application.EnableEvents = False). Dans ce cas Excel ne réinitialise pas spontanément la procédure événementielle.

A+

 

[tinet]

Re : Trie sur colonne

Re,

Chalet53, pas de problème sur ta formule, j'utilise juste une autre feuille qui rajoute des noms automatiquement dans la liste si ils n'y sont pas dans ce même fichier.

Donc ceci devient compliqué sur le tri automatique avec deux colonnes.

Donc je suis en train de voir pour trouver une autre solution.

Merci à toi