Par macro, Récupérer une sous-chaine

[malabarbe]

Bonsoir à tous,

Voilà, je voudrais récupérer une valeur numérique se trouvant dans
une variable (ou une chaine)

C'est a dire, récupérer [2100] qui se trouve 5 caractères avant 'mètres'

la chaine :
Course 2 : PRIX MONADE - Plat - COURSE A CONDITIONS - 2100 mètres (12000, 4800, 3600, 2400, 1200)

Mais la chaine peut être différente :
Course 7 : GRAND PRIX DU PETIT MONT - Plat - COURSE Avec obstlacles - 2100 mètres (12000, 4800, 3600, 2400, 1200)

'mètres', est la seule constante dans les différentes chaines.

Si vous pouvez me dépatouiller de ce soucis !

 

[eriiic]

Re : Par macro, Récupérer une sous-chaine

Bonsoir,

Par macro, tu es sûr ?
Voici déjà par formule :
=STXT(A1;CHERCHE("mètres";A1)-5;4)

eric

 

[gilbert_RGI]

Re : Par macro, Récupérer une sous-chaine

Bonsoir

un truc dans ce genre fichier attaché

😱

 

[malabarbe]

Re : Par macro, Récupérer une sous-chaine

Bonsoir eriiiic,

=STXT(A1;CHERCHE("mètres";A1)-5;4)

Ok pour la réponse, mais comment en clair,
entrer le code dans ma macro ?

Pour Gilbert...,

Le code est parfait, cela tourne a merveille.

Merci à vous deux pour votre aide.

bonne soirée à tous

@ +

 

[gilbert_RGI]

Re : Par macro, Récupérer une sous-chaine

un autre code vérifiant la chaine à rechercher

Sub ch()
    Dim Chaine As String
    Dim deb As Integer, A As Integer, compt As Integer
    Chaine = ActiveCell
    deb = 1
    compt = 0
    chat = "mètres"    'chaine à trouver
    For deb = 1 To Len(Chaine)
        A = InStr(deb, ActiveCell, chat)
        If A = 0 Then Exit For
        deb = A
        compt = compt + 1
    Next
    If compt = 1 Then
    'avant
        MsgBox Mid(Chaine, 1, InStr(1, Chaine, chat) - 1) & vbLf & "  soit : " & Len(Mid(Chaine, 1, InStr(1, Chaine, chat) - 1)) & " caractères"
    'après
        MsgBox Mid(Chaine, InStr(Chaine, chat) + Len(chat)) & vbLf & "  soit : " & Len(Mid(Chaine, InStr(Chaine, chat) + Len(chat))) & " caractères"
    'les quatres derniers caractères de la chaine avant
        MsgBox Right(RTrim(Mid(Chaine, 1, InStr(1, Chaine, chat) - 1)), 4)
    Else
        MsgBox "la chaine n'existe pas"
    End If
End Sub

🙄

 

[Cousinhub]

Re : Par macro, Récupérer une sous-chaine

Bonsoir,

Une autre solution :

Sub distance()
Dim a
a = Split(ActiveCell, " ")
MsgBox a(Application.Match("mètres", a, 0) - 2)
End Sub

Bonne soirée

 

[malabarbe]

Re : Par macro, Récupérer une sous-chaine

Bonjour,

Un grand merci à vous deux,

Grace a vous, mon soucis est résolu.

@ +