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