Macro pour trier en VBA

Bonjour

J'ai 2 colonnes qui me permettent de faire des tries :

Titre 1ère colonne : "1er chiffre"

Titre 2ème colonne : "2ème chiffre"

ensuite j'ai une formule dans la 1ère colonne qui est :

=CNUM(STXT($B2;2;TROUVE("A";$B2)-2))

ensuite j'ai une formule dans la 2ème colonne qui est :

=CNUM(STXT($B2;TROUVE("A";$B2)+1;NBCAR($B2)-(TROUVE("A";$B2)-1)))

je voudrais faire une macro en VBA qui fait la même chose que ces 2 formules.

est ce réalisable

bonjour,

une proposition 2 fonctions personnalisées (utilisables comme fonction excel) et une macro qui complète les colonnes C et D sur base des numéros trouvés en colonne B

Function part1(r)
    On Error Resume Next
    part1 = Val(Mid(r, 2, InStr(2, r, "A") - 2))
    On Error GoTo 0
End Function
Function part2(r)
    On Error Resume Next
    part2 = Val(Mid(r, InStr(2, r, "A") + 1))
    On Error GoTo 0
End Function

Sub aargh()
    dl = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To dl
        r = Cells(i, 2)
        Cells(i, 3) = part1(r)
        Cells(i, 4) = part2(r)
    Next i
End Sub

Merci

ci joint mon fichier

Comment maintenant que j'ai extrait les numéros, faire un trie croissant par rapport à la colonne C ci dessous, en me servant des colonnes E et F.

horo

H1B2

H2B34

H3B104

H12B3

H2B2

H4B23

H4B34

H1B106

H4B23

c'est a dire :

H1B2 , H2B2, H12B3 etc...

bonjour,

voici,

merci

j'ai modifier l'ordre du trie dans le code et cela fonctionne nickel.