trier avec des caractères génériques

[alain]

Bonjour,
je dois trier une partie d'une colonne sans en créer une autre, et je ois trier dans cette colonne à partir du 10 caractères de la cellule. Peut on le faire avec des caractères génériques?

 

[STéphane]

je vois pas de solution sans macros.
voilà ci-dessous un exemple de macro pour trier la colonne A avec le troisième caractère de celle-ci, mais on crée une troisième colonne

j'ai pensé alors utiliser des variables tableaux, mais ce serait pour moi l'usine à gaz, et l'exécution serait rapide pour des tableaux de petites tailles.

Sub SortOnThird()
Dim DataRng As Range
Dim SrtRng As Range
Dim LastRow As Long
Dim cell As Range
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set DataRng = Range("A2:A" & LastRow)
For Each cell In DataRng
cell.Offset(0, 1).Value = Mid(cell, 3, 1)
Next cell
Set SrtRng = Range("A2:B" & LastRow)
SrtRng.Sort Key1:=Range("B2")
End Sub


bye
STéphane

 

[STéphane]

inspirée par une macro de daniel m. que vous trouverez plus bas
nécessite toujours d'inscrire des données dans une tierce colonne

'tri effectué à partir du 5ième caractère
Sub hgjghjhgj()
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(0, 1)
.Formula = "=MID(RC[-1],5,LEN(RC[-1]))"
[A1].CurrentRegion.Sort key1:=Cells(1, 2), header:=xlYes
.ClearContents
End With
End Sub

bye
Stéphane

' Macro de Daniel M.
' Les données commencent en A1
Sub CacheLignesMemesValeurs()
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(0, 1)
.Formula = "=MATCH(RC[-1], R1C[-1]:R[-1]C[-1],0)"
.SpecialCells(xlCellTypeFormulas, xlNumbers).EntireRow.Hidden = True
.ClearContents
End With
End Sub

 

[sousou]

Une solution amusante utilisant les commentaires des cellules

Lance la macro deb qui passe les paramètre du numéro de colonne à trier et le rangt du caractères.

 

[STéphane]

sympa en effet
je crois que j'ai vu circuler déjà ou un truc du genre.


bye
stephane