Extraire un texte

Bonjour

comment extraire des textes dont le nombre de caractère est différents, comme le cas des villes dans cet exemple ci-joint

merci d'avance

Exemple

bonjour,

une façon de faire si le texte qui précède est toujours "agence (ou centre) messagerie"

=STXT(A4;19;99)

ou plus généralement

=STXT(A4;TROUVE("@";SUBSTITUE(A4;" ";"@";NBCAR(A4)-NBCAR(SUBSTITUE(A4;" ";""))))+1;99)

Bonjour,

Si VBA est autorisé, cette fonction est à mettre dans un module standard :

Function SplitVilles(ByVal ChaineATraiter As String) As String

Dim TabChaine As Variant

    SplitVilles = ""
    If InStr(1, ChaineATraiter, " ", vbTextCompare) > 0 Then
       TabChaine = Split(ChaineATraiter, " ")
       SplitVilles = TabChaine(UBound(TabChaine))
    End If

End Function

rebonjour

pardon, si l'emplacement des villes est n'est plus à la dernière position, comment je procède

désolé pour l’imprécision.

rebonjour,

si c'est toujours " AM" qui apparait après le nom de la ville, quand le nom de la ville n'est pas en dernière position, voici (pour une version < 365)

=STXT(SUBSTITUE(A4;" AM";"");TROUVE("@";SUBSTITUE(SUBSTITUE(A4;" AM";"");" ";"@";NBCAR(SUBSTITUE(A4;" AM";""))-NBCAR(SUBSTITUE(SUBSTITUE(A4;" AM";"");" ";""))))+1;99)

merci