Tri par ordre alphabétique au sein d'une cellule
Bonjour à tous,
Je commence la programmation VBA et j'ai besoin de votre aide.
Je voudrais trier des mots par ordre alphabétique au sein d'une même cellule.
Actuellement la cellule contient les mots sous cette forme:
Papier, crayon, feuille
et je voudrais avoir a la fermeture de ma Userform
Crayon, feuille, papier
Est ce possible ?
Merci d'avance
Bonjour
Je suis bête j'avais complétement zappé de le joindre.
Voici mon Problème quand on clique sur la colonne LDS concerné ou Key Word la box apparait.
Après avoir coché, les mots s'ajoutent dans la cellule.
Je voudrais qu'en quittant la box les mots s'ordonnent automatiquement par ordre alphabétique.
L'intérêt? Que lorsque je filtre je retrouve toujours les mêmes intitulés.
Je vous serais très reconnaissant de m'aider
Cdt
Guillaume
Bonjour,
Ci-dessous fonction vba personnalisée fichier modifié en conséquence.
Option Explicit
Public Function TriCellule(c) As String
Dim Temp
Dim Sauv As String
Dim i As Byte, j As Byte
If IsEmpty(c) Then Exit Function
Temp = Split(c, ";")
'---- tri
For i = LBound(Temp) To UBound(Temp)
For j = i To UBound(Temp)
If Temp(j) < Temp(i) Then
Sauv = Temp(j)
Temp(j) = Temp(i)
Temp(i) = Sauv
End If
Next j
Next i
TriCellule = Join(Temp, ";")
End FunctionRéactif, Net et précis.
Il n'y a rien à redire, vous êtes top!
Merci beaucoup
Bonjour
Pouvez m'expliquer le code?
Je souhaite exatecment faire la même chose mais je n'y parviens pas.
Je souhaite trier le contenue d'une cellule en colonne C par ordre alphabtique.
Exemple si C2 contient!
Thierry
Bernard
Après la macro
C2 =
Bernard
Thierry
Merci
Bonjour Eramond,
Le code donné est une fonction et s'appelle avec =Fonction
Donc en D2 tu mets
=TriCellule(C2)A+
Merci
Le souci est que j'essaye de convertir cettre fonction en processus pour la colonne C (enfin de C2 jusqu'à la fin....) je n'y arrive pas
Re,
Merci d'ouvrir un nouveau fil avec un titre explicite et un fichier exemple