Signaler

Tri par ordre croissant dans une cellule [Résolu]

Posez votre question sandwyne - Dernière réponse le 14 oct. 2016 à 17:52
Bonjour,

Je cherche une solution pour trier par ordre croissant des valeurs numériques dans une cellule. Par exemple en A1 J'ai: 1233, 4416, 2256, 1659 et je souhaite obtenir: 1233, 1659, 2256, 4416. Mon problème est que je n'ai vu nul part de solution pour trier plusieurs données enregistrées dans une même cellule. Est-ce c'est possible?
Afficher la suite 
Utile
+0
moins plus
Bonjour,

Tu peux effectuer cette opération en 3 temps :
1) scinder la cellule avec la virgule pour séparateur,
2) effectuer le tri des éléments
3) regrouper ces éléments.

A+
Ajouter un commentaire
Utile
+0
moins plus
Bonjour sandwyne.

Non, il n'est pas possible d'effectuer un tri à l'intérieur d'une cellule.
Il est obligatoire de sortir de la cellule, comme Gyrus le propose.
D'ailleurs pourquoi et comment plusieurs nombres se retrouvent-ils dans une même cellule ?
Excel est conçu pour gérer des données placées chacune dans sa cellule.
Il est anormal et contre-indiqué d'en mettre plus d'une par cellule.

C'est bien, la retraite ! Surtout aux Antilles ... :-) 
Raymond (INSA, AFPA, CF/R)
Ajouter un commentaire
Utile
+0
moins plus
Bonjour Gyrus,
J'ai déjà réalisé la solution que vous me proposez sur une vingtaine de cellules mais mon fichier en compte plus de mille!! Je ne peux pas tout traiter comme cela...Merci pour votre réponse rapide
Raymond Pentier, je me doutais bien que cela ne se faisait pas après de nombreuses recherches sur le net, mais j'avais espéré une formule miracle...! En fait mon fichier est un export de base de données voilà pourquoi j'ai des suites de nombre dans la même cellule. Merci et bonne journée à vous
Ajouter un commentaire
Utile
+0
moins plus
Bonjour,
teste ce code, normalement il devrait faire ton affaire, les valeurs numériques à l'origine sont en colonne A et les valeurs trier dans l'ordre croissant seront en colonne B
Ps: pour lancer ta macro il faut créer un bouton de Cde

Private Sub CommandButton1_Click()
Dim plage As Range, DerCel As Range, cel As Range
Dim tbl(), TbTrie As Integer, x As Integer, cible

With Sheets("Feuil1") 'à remplacer par le nom de feuille
Set DerCel = .Range("A" & .Rows.Count).End(xlUp)
Set plage = .Range("A2", DerCel) 'si titre en A1
For Each cel In plage
ReDim tbl(UBound(Split(cel, ",")))
For x = 0 To UBound(tbl)
tbl(x) = Split(cel, ",")(x)
Next x
Do
TbTrie = 0
For x = 0 To UBound(tbl) - 1
If Val(tbl(x)) > Val(tbl(x + 1)) Then
cible = tbl(x)
tbl(x) = tbl(x + 1)
tbl(x + 1) = cible
TbTrie = 1
End If
Next x
Loop While TbTrie = 1
cible = Join(tbl, ",")
cel(1, 2) = cible
Next cel
End With
End Sub

Slts
Ajouter un commentaire
Utile
+0
moins plus
Bonjour The_boss_68
Je viens de tester ce code et ça marche, c'est génial!!!
Merci beaucoup
et très bonne fin de journée
Ajouter un commentaire
Utile
+0
moins plus
Re

Au cas ou tu voudrais trier ces valeurs numérique dans la même colonne
il faut modifier cette ligne du code

cel(1, 2) = cible

Par
cel(1, 1) = cible

Voilà
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Slts
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !