Supprimer du texte à partir d'un mot ou caractère

Bonjour,

Dans une colonne, je souhaiterai retirer des informations à partir d'un mot.

Ex = 6 x 0,9 x 6 TPI 1705

Je ne souhaite plus avoir : 1705.

Cette info varie selon mes lignes (1705, 2390, etc).

Je souhaiterai donc une formule qui supprime tout le texte après le texte/mot : TPI.

Est-ce possible ?

Merci de votre retour,

M Charbelet

Bjr,

=GAUCHE(A1;CHERCHE("TPI";A1)+3)

Bonjour,

Une piste à adapter :

Sub Test()

    Dim T
    Dim Texte As String

    Texte = "6 x 0,9 x 6 TPI 1705"

    T = Split(Texte, " ")
    Texte = Replace(Texte, " " & T(UBound(T)), "")

    MsgBox Texte

End Sub

Bonjour

Il doit y avoir beaucoup plus simple ci-joint

EDIT: coucous à: Theze , Steelson et Mpbp (prend celui de Theze, Steelson et Mpbp 100000 fois meilleurs )

crdlt,

André

Bonjour le forum,

=STXT(A1;1;TROUVE("TPI";A1;1)+3)

Bonjour,

Merci à vous, cela fonctionne facilement avec =STXT(A1;1;TROUVE("TPI";A1;1)+3).

Salutations,

M Charbelet

Bonjour à tous

Une variante (sans espace à la fin ...)

=GAUCHE(A1;TROUVE("TPI";A1;1)+2)

Bye !

Mcharbelet a écrit :

Merci à vous, cela fonctionne facilement avec =STXT(A1;1;TROUVE("TPI";A1;1)+3).

Cherchez l'anomalie !!!

Re,

Oups, j'ai toujours le réflexe de répondre en VBA !

Ben, ce n'est pas ce que j'avais déjà répondu ?

Steelson a écrit :

=GAUCHE(A1;CHERCHE("TPI";A1)+3)

peut-être trop tôt ! (4mn après la question)

Re,

Ben, ce n'est pas ce que j'avais déjà répondu ?

je suppose que mbbp veut dire qu'avec + 3 l'espace est conservé alors qu'avec + 2 il saute !

=STXT(A1;1;TROUVE("TPI";A1;1)+2)