Tri de données dans une cellule
bonjour,
je cherche désespérément comment trier les données dans une cellule séparées par une virgule.
j'ai un classeur avec plusieurs feuilles. dans chaque feuille, il y a une colonne qui s'appelle licence/marque
je voudrais que sur l'ensemble des feuilles dans cette colonne licence/marque, les données de chaque cellule soit trier de A à Z séparées par des virgules.
merci beaucoup par avance
Salut Lafournière,
On veut voir comment tout ça est organisé, stp...
A+
Bonsoir,
Macro ou Fonction personnalisée selon ta méthode de travail...
Il faut un modèle représentatif des données dont tu veux opérer un tri interne des éléments composants.
Cordialement.
voici mon fichier
et surtout merci par avance pour votre aide
Bonjour tout le monde,
lafourniere, le temps que tu fournisses ton fichier, j'avais chercher une solution.
Je te la montre telle quelle.
Cordialement.
merci
mais quels sont les éléments que je dois modifier en fonction des colonnes dans chaque feuille.
Voici la macro adaptée à ton fichier. Ca mouline un peu, mais ça fonctionne.
La prochaine fois fournis-nous immédiatement ton fichier
Amicalement.
merci
j'avais essayer de modifier "A" et "D" pour modifier sa mouliner en effet mais je pensé que c'était excel qui planté mais comme il y a beaucoup de données c'est peut être pour ça. je vais donc essayer et reviens vers vous des demain pour confirmer
bonne soirée, merci
Bonsoir tout le monde,
pour le plaisir de participer au jeu, voici ma participation.
A l'arrache et à l'ancienne!
Au plaisir!
A+
lafourniere a écrit :je vais donc essayer et reviens vers vous des demain pour confirmer
Demain, c'était hier
Bonsoir,
ma contribution
Sub aargh()
i = 1
While Cells(i, 1) <> ""
t = Split(Cells(i, "B"), ",")
For j = LBound(t) To UBound(t) - 1
t(j) = Trim(t(j))
For k = j + 1 To UBound(t)
t(k) = Trim(t(k))
If UCase(t(j)) > UCase(t(k)) Then a = t(j): t(j) = t(k): t(k) = a
Next k
Next j
Cells(i, "B") = Join(t, ",")
If Left(Cells(i, "B"), 1) = "," Then Cells(i, "B") = Mid(Cells(i, "B"), 2)
Erase t
i = i + 1
Wend
End Sub