TRI croissant sur Concaténation

[Linkeed]

Bonjour,

Je souhaite pouvoir à partir d'une cellule concaténée effectuer un tri croissant des valeurs sur une autre cellule.
Ci-joint le fichier excel.
Je pense qu'une macro soit nécessaire.

Merci pour votre aide.
Cdlt

 

[JHA]

Re : TRI croissant sur Concaténation

Bonjour à tous,

Si tu n'as que quelques données à trier

JHA

 

[Linkeed]

Re : TRI croissant sur Concaténation

Malheureusement je ne peux pas utiliser les données colonne A.
Je peux juste utiliser les cellules possédant la concaténation.

 

[ERIC S]

Re : TRI croissant sur Concaténation

Bonjour

tu concatènes toujours le même nombre de cellules?

modif : en fait question idiote si tu veux que le résultat soit dans la même cellule, ce sera par macro effectivement

 

[Linkeed]

Re : TRI croissant sur Concaténation

Effectivement c'est toujours le même nbre de cellules.
La résultat peut se situer à coté de la cellule concaténée non triée.

En fait la différence se joue au niveau des combinaisons.

 

[JHA]

Re : TRI croissant sur Concaténation

Re,

Ci joint un code du forum, tu sélectionne ta cellule et lance la macro.

JHA

 

[Linkeed]

Re : TRI croissant sur Concaténation

Génial, ça fonctionne super bien 🙂
Maintenant il faut adapter cette macro pour qu'elle se déclenche feuille"1","2" et "3" sur toute la colonne C en fonction de colonne B si cellule Colonne B non vide.

Sub TriCellule()
'
' TriCellule Macro
' La fonction Split transforme une chaîne en tableau
' La fonction Join fait l'inverse
'
Dim Chn As String, Tri As Boolean, I As Integer, Tmp As String
Chn = ActiveCell.Text
If Chn = "" Then Exit Sub
TbChn = Split(Chn, " ")
If UBound(TbChn) > 0 Then
Do
Tri = False
For I = 1 To UBound(TbChn)
If TbChn(I) < TbChn(I - 1) Then
Tmp = TbChn(I - 1)
TbChn(I - 1) = TbChn(I)
TbChn(I) = Tmp
Tri = True
End If
Next
Loop While Tri = True
Chn = Join(TbChn, " ")
ActiveCell.Value = Chn
End If
'
End Sub

Je vais peut être ouvrir un autre post pour ça.