TRI croissant sur Concaténation

J

JHA

XLDnaute Barbatruc

• 11 Mai 2012

• #2

Re : TRI croissant sur Concaténation

Bonjour à tous,

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

JHA

 

Pièces jointes

• tri_concatenation.xls

  20 KB · Affichages: 40
• tri_concatenation.xls

  20 KB · Affichages: 41
• tri_concatenation.xls

  20 KB · Affichages: 37

Vote positif 0 Vote négatif

L

Linkeed

Guest

• 11 Mai 2012

• #3

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.

 

Pièces jointes

• tri_concatenation.xls

  15 KB · Affichages: 44
• tri_concatenation.xls

  15 KB · Affichages: 47
• tri_concatenation.xls

  15 KB · Affichages: 48

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 11 Mai 2012

• #4

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

 

Dernière édition: 11 Mai 2012

Vote positif 0 Vote négatif

L

Linkeed

Guest

• 11 Mai 2012

• #5

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.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 11 Mai 2012

• #6

Re : TRI croissant sur Concaténation

Re,

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

JHA

 

Pièces jointes

• tri_concatenation (1).xls

  42.5 KB · Affichages: 42

Vote positif 0 Vote négatif

L

Linkeed

Guest

• 11 Mai 2012

• #7

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.

Code:

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.

 

Vote positif 0 Vote négatif