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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Mars 2021

• #2

Bonjour Caninge,
Un essai en PJ avec du VBA.

 

Pièces jointes

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

  17.1 KB · Affichages: 15

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mars 2021

• #3

Bonjour Caninge, sylvanu,

Triez le tableau E:F sur la colonne auxiliaire F.

A+

 

Pièces jointes

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

  11.2 KB · Affichages: 8

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 23 Mars 2021

• #4

Bonsoir sylvanu, Job75

je me rappelle avoir été aidé il y a quelques temps avec ce code dans un fichier de sport.
en écrivant le code postal à la dernière ligne, le tri se fait automatiquement sans appuyer sur un bouton.
Il faut certainement modifier le code. Merci de regarder.

Private Sub Worksheet_Change(ByVal Target As Range)

Range("E4:E280").Select
ActiveWorkbook.Worksheets("Références").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Références").Sort.SortFields.Add Key:=Range("b1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Références").Sort
.SetRange Range("B4:B280")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With


End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #5

Bonjour Caninge,
En PJ vous l'avez en automatique. j'ai gardé les deux boutons que vous pouvez supprimer. J'ai simplement ajouté dans Feuil1 :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    TriAlpha
End Sub

Je n'avais pas utilisé cette option car j'en ai horreur.
Vous ajoutez une référence, et par reflexe vous voulez la vérifier. Hop! elle a disparue, il vous faut la rechercher dans la liste car celle ci a été triée.
Mais bon, chacun son truc. Si cela vous sied, c'est le principal.

 

Pièces jointes

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

  18.1 KB · Affichages: 5

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 24 Mars 2021

• #6

Bonjour sylvanu, Job75

Je suis nul...je n'arrive pas à faire fonctionner la macro.
en fait je ne sais pas où il faut positionner TriAlpha. Et puis peut-être autre chose...pfff
Je suis embêté aussi avec mon site que je ne peux pas publier. message d'erreur...Mais ça c'est autre chose...
A plus

 

Pièces jointes

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

  20 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #7

Bonjour,
Mais faites comme dans ma PJ.
Dans Feuil1 vous mettez :
Private Sub Worksheet_Change(ByVal Target As Range)
TriAlpha
End Sub
et dans un module :

VB:

Sub TriAlpha()
Dim DL%, i%, j%, T(), tablo()
Application.ScreenUpdating = False
DL = Range("E65500").End(xlUp).Row
tablo = Range("E4:E" & DL)
ReDim T(UBound(tablo), 1)
For i = 1 To UBound(tablo)
    T(i, 0) = Split(tablo(i, 1), " - ")(0)
    T(i, 1) = Split(tablo(i, 1), " - ")(1)
Next i
For i = 1 To UBound(T)
    For j = 1 To UBound(T)
        If T(i, 1) < T(j, 1) Then
            buffer1 = T(j, 0): buffer2 = T(j, 1)
            T(j, 0) = T(i, 0): T(j, 1) = T(i, 1)
            T(i, 0) = buffer1: T(i, 1) = buffer2
        End If
    Next j
Next i
For i = 1 To UBound(tablo)
    tablo(i, 1) = T(i, 0) & " - " & T(i, 1)
Next i
Range("$E$4").Resize(DL - 3, 1) = tablo
End Sub

ou encore tout dans feuille 1 comme vous voulez.
si vous séparez la macro peut être accessible dans une autre feuille en rajoutant un Worksheet_Change.

 

Pièces jointes

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

  16.5 KB · Affichages: 9

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 24 Mars 2021

• #8

Je reviens !

ca fonctionne presque sylvanu !
Di je rajoute un code postal à la fin de la liste.
si je clique sur débogage. Ca bloque sur la ligne: DL = Range("E65500").End(xlUp).Row
si je clique sur Fin. Ca débugue.
Allez je vais jardiner un peu.
A plus

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #9

Je viens de tester en rajoutant des lignes sans aucun problème. Voir PJ.
Je ne vois pas d'où ça peut venir car le DL = Range("E65500").End(xlUp).Row donne la dernière ligne occupée et n'a jamais de problème habituellement.

 

Pièces jointes

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

  16.5 KB · Affichages: 9

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 24 Mars 2021

• #10

re,
je pense que cela vient de mon ordinateur. pas assez puissant peut-être.
Erreur d'exécution 28
Espace pile insuffisant.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #11

Essayez avec DL = Range("E100").End(xlUp).Row.
Vous avez quoi comme PC ?

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 24 Mars 2021

• #12

C'est Lenovo Thinkpad L530
j'ai changé le code mais c'est pareil.
Sinon on revient en appuyant sur un bouton sylvanu

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #13

Testez la PJ du post #2.
Si ça marche alors le pb vient d'autre part car avec ou sans bouton c'est la même macro TriAlpha qui est utilisée.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2021

• #14

Essayez cette PJ, je pense avoir trouvé. J'invalide les events avant le tri pour éviter les ré entrances.

 

Pièces jointes

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

  16.5 KB · Affichages: 21

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 24 Mars 2021

• #15

Ca ne marche pas mieux...Pas de problème avec les deux boutons.
je vais garder cette solution c'est parfait.

 

Vote positif 0 Vote négatif