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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #16

Le mystère restera à jamais.

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 24 Mars 2021

• #17

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #18

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 )

VB:

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.

 

Vote positif 0 Vote négatif

J

JFL_XLD

XLDnaute Junior

• 24 Mars 2021

• #19

Bonjour à toutes et tous !

Une rapide et modeste proposition avec Power Query

Cordialement,

JFL

 

Pièces jointes

• Trier colonne après le petit trait.xlsx

  83.3 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #20

@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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #21

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à.

 

Pièces jointes

• Trier colonne après le petit trait (1) (4) (1) (1) (9) (3).xlsm

  16.6 KB · Affichages: 12

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 24 Mars 2021

• #22

@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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Mars 2021

• #23

Bonjour à tous,

sylvanu à dit:

Le mystère restera à jamais.

Cliquez pour agrandir...

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

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

VB:

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

Donc écrire :

Code:

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

A+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #24

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

VB:

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

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 24 Mars 2021

• #25

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

VB:

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

 

Dernière édition: 24 Mars 2021

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 25 Mars 2021

• #26

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

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 29 Mars 2021

• #27

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.

 

Pièces jointes

• Trier Colonne après le petit trait (5).xlsm

  13.3 KB · Affichages: 4

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 29 Mars 2021

• #28

Bonjour,

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

Cordialement

 

Pièces jointes

• Trier colonne après le petit trait (1).xlsx

  23.6 KB · Affichages: 5

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 30 Mars 2021

• #29

Bonjour Roblochon,

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

A Plus

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 30 Mars 2021

• #30

Re,

Caninge à dit:

Je ne comprends pas bien le fonctionnement le Power Query.

Cliquez pour agrandir...

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

Cordialement

 

Vote positif 0 Vote négatif