Trier par le nombre de lettres

JRR

XLDnaute Nouveau
Bonjour à toutes et tous,
Novice, je cherche à trier une colonne de mots croissants ou décroissants par nombre de lettres.
(exemple) bye = 3 lettres > polo = 4 lettres > chine = 5 lettres etc)

Merci à tous :rolleyes:
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Trier par le nombre de lettres

Bonjour,


Code:
Sub TriNbCar()
  [B:B].Insert Shift:=xlToRight
  For Each c In Range([A2], [A65000].End(xlUp))
    c.Offset(0, 1).Value = Len(c)
  Next c
  [B2].CurrentRegion.Sort Key1:=[B2], Key2:=[A2], Order1:=xlAscending, Header:=xlGuess
  [B:B].Delete
End Sub

JB
Formation Excel VBA JB
 

Pièces jointes

  • TriNbCaracteresx.xls
    24.5 KB · Affichages: 77

Discussions similaires

  • Résolu(e)
Microsoft 365 Code de tri
Réponses
22
Affichages
561
Réponses
116
Affichages
4 K

Statistiques des forums

Discussions
313 344
Messages
2 097 336
Membres
106 916
dernier inscrit
Soltani mohamed