Adapter macro tri cellule

[Linkeed]

Bonjour,

J'aimerais que la macro présente dans le fichier ci-joint se déclenche feuille"1","2" et "3" sur toute la colonne C en fonction de colonne B si cellule Colonne B non vide.
Pouvez-vous m'aider svp

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

Cdlt

 

[gilbert_RGI]

Re : Adapter macro tri cellule

Bonjour

est-ce la demande ?

 

[Linkeed]

Re : Adapter macro tri cellule

Merci c'est tout à fait ça
Bne journée