1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
Sub Trier()
Dim Plage As Range
Dim Cel As Range
Dim Chaine As String
Dim I As Integer
Set Plage = Range("A1:A10")
For Each Cel In Plage
For I = 1 To Len(Cel.Value)
If IsNumeric(Mid(Cel.Value, I, 1)) = True Then
Chaine = Chaine & Choose(Mid(Cel.Value, I, 1), "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", _
"N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
Else
Chaine = Chaine & Mid(Cel.Value, I, 1)
End If
Next I
Cel.Offset(, 1).Value = Chaine
Chaine = ""
Next Cel
With ActiveSheet.Sort
.SortFields.Add Plage.Offset(0, 1), 0, 1, , 0
.SetRange Plage.Resize(Plage.Rows.Count, 2)
.Header = xlGuess
.Apply
End With
Plage.Offset(0, 1).Clear
End Sub |
Partager