XL 2016 Extraction de chaîne de caractère

[GeoTrouvePas]

Bonjour tout le monde,

Je me retrouve avec des chaînes de caractères très mal formatées du type :
4 Bogies - 9t -1500 - blablabla
2 Bogies- 9t - 1500 - blablabla
2 axles- 6t - 1300 - blablabla
12 Bogies + 3 axles- 6t - 1300 - blablabla
2 Bogies - 12 axles - 6t - 1300 - blablabla
4 Bogies -12 axles- 6t - 1300 - blablabla

Je voudrais arriver à récupérer en VBA, le nombre de Bogies et d'Axles. J'ai bien tenté en utilisant la fonction Split mais les gens ont mal utilisé les espaces et les symboles.

Auriez vous une idée sur comment procéder ?

Je vous remercie par avance,

Bonne journée à tous

 

[thebenoit59]

Bonjour Geo.

Avec ta liste à partir de [A1]

Sub t()
Dim temp
Dim nB%, nA%, i%, n%
Const Bog$ = "bogies"
Const Ax$ = "axles"
With Sheets(1)
    i = 1
    Do While .Cells(i, 1).Value <> ""
        temp = Split(.Cells(i, 1).Value, " ")
        For n = LBound(temp) To UBound(temp)
            If LCase(temp(n)) Like "*" & Bog & "*" Then
                nB = nB + Val(Replace(temp(n - 1), "-", ""))
            ElseIf LCase(temp(n)) Like "*" & Ax & "*" Then
                nA = nA + Val(Replace(temp(n - 1), "-", ""))
            End If
        Next n
    i = i + 1
    Loop
End With
Debug.Print Bog & " " & nB
Debug.Print Ax & " " & nA
End Sub

 

[GeoTrouvePas]

Bonjour thebenoit59 et merci pour ta réponse. Après adaptation ça fonctionne parfaitement.
Je n'avais pas pensé à faire à la fois un Split avec les tirets et un autre avec les espaces.

Bien vu !

 

[thebenoit59]

Je n'utilise pas Split avec les tirets, mais je les supprime si nécessaire.
Et l'utilisation de Like avec les "*" permet de rechercher ta valeur même s'il y a des caractères collés.

 

[GeoTrouvePas]

Oui pardon je me suis mal exprimé ^^
En fait j'ai retravaillé ta macro pour l'adapter et ça m'a donné l'idée de faire deux splits différents.
Et ça fonctionne du tonnerre.