XL 2019 Trier les mots d'une colonne après le petit trait.

[Caninge]

Bonjour à tous amis excelliens et excelliens,

j'arrive à trier facilement les codes postaux avec les communes (colonne E) mais comment faire
pour trier les communes dans l'ordre alphabétique (Colonne G) en oubliant les codes postaux.
Comme dans l'exemple que j'envoie en pièce jointe.
Est-ce possible que quand je rajoute un mot à la fin de la liste, cette dernière se trie immédiatement !
J'ai cherché mais rien trouvé de probant.
Pouvez m'aider. Merci !
CANINGE

 

[sylvanu]

Le mystère restera à jamais. 🙄

 

[Caninge]

Oui parfois c'est comme ça. Ce n'est sans doute pas un mystère, il y bien entendu une explication mais elle se trouve où ! je ne connais pas secret des dieux.
Allez on fait comme ça ! A bientôt et merci encore.
CANINGE

 

[sylvanu]

Bonsoir Laurent,
Ma macro de tri TriAlpha marche bien.
Cependant si je l'inclue dans Worksheet_Change pour faire le tri en automatique : ( PJ post #14 )

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    TriAlpha
    Application.EnableEvents = True
End Sub

Alors Caninge a systématiquement une erreur de pile. Et là je suis sec.

 

[JFL_XLD]

Bonjour à toutes et tous !

Une rapide et modeste proposition avec Power Query

Cordialement,

JFL

 

[sylvanu]

@laurent,
Dans la PJ #14 le TriAlpha n'est pas en commentaire.
D'autant que s'il était en commentaire cela expliquerait encore moins l'erreur 38 de Caninge puisque la macro ne ferait rien.

 

[sylvanu]

Votre code marche. Je l'ai testé.
Mais je voulais comprendre pourquoi le mien marche en macro mais pas en Worksheet_Change.
Le mien aussi, j'avis mis les Application.EnableEvents = False dans le mauvais fichier, j'en avais 5 d'ouverts. 🙄
@Caninge, essayez celui là.

 

[laurent950]

@sylvanu
Je n'ai pas su dire pourquoi cela ne fonctionnais pas, mais votre code fonctionne très bien
j'ai effacé mon code pour laisser le votre en Poste #21 vous avez trouvé la solution Bravo @sylvanu

 

[job75]

Bonjour à tous,

Le mystère restera à jamais. 🙄

Dans le fichier du post #14 rien ne neutralise les évènements...

Il y a bouclage sans fin quand cette ligne s'exécute :

Range("$E$4").Resize(DL - 3, 1) = tablo

Donc écrire :

Application.EnableEvents = False 'désactive les évènements
Range("E4").Resize(DL - 3) = tablo
Application.EnableEvents = True 'réactive les évènements

A+

 

[sylvanu]

Bonsoir Job,
Le bon fichier est le dernier, celui du post #21.
et les events sont bloqués au niveau du Worksheet_Change :

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    TriAlpha
    Application.EnableEvents = True
End Sub

 

[laurent950]

Re @sylvanu
Lorsqu'une cellule est modifié la Target (Range) contient qu'une valeur (La target = 1 Valeur)
Mais lorsque l'on colle le variable tableau (soit plus de 1 valeur)
la Target (Range) contient l'ensemble de la plage.
Soit : un excès de lancement de ces procédures
le lancements des procédures est systématiquement exécuté, à chaque changement de valeur de valeurs de cette plage et pour chaque cellule.

Avec cette condition, une fois le tableau copié on sort de la sub

Essayer votre Poste #14 avec cette instruction

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    TriAlpha
End Sub

 

[Caninge]

Bonjour à tous,

J'ai vu que beaucoup se sont attelés à trouver une solution pour résoudre mon problème.
Je pense que j'ai assez de réponses positives et je peux prendre maintenant celle qui me convient.
Je vous remercie bien et je vous dit à bientôt.

CANINGE

 

[Caninge]

Bonjour à tous,
je viens d'enlever la feuille de mon classeur.
elle ne fonctionne pas avec le classeur...pourquoi je n'en sais rien.
Pourtant la solution envoyé par sylvanu avec les boutons marchent très bien.
Je ne comprend pas...
Pouvez-vous m'éclairer ?
Merci.

 

[Hasco]

Bonjour,

Une proposition par Power Query, inclus dans votre version. C'est une requête toute simple.

Cordialement

 

[Caninge]

Bonjour Roblochon,

merci de m'avoir répondu. Je ne comprends pas bien le fonctionnement le Power Query.

A Plus

 

[Hasco]

Re,

Je ne comprends pas bien le fonctionnement le Power Query.

Pourtant, une fois qu'on s'y colle, c'est presque bête 🙂

Cordialement