Extraction de 2 mots d'une chaîne (suite)

Bjr

Je reviens ( de vacances...) et sur ce sujet ...

Je voulais pouvoir écrire " Anne Hidalgo maire de Paris" à partir du texte en A1 " Hidalgo Anne maire de Paris"

L'instruction Split

tSplit = Split([A1], " ")

prénom=tSplit(1)

m'a permis d'extraire le nom et le prénom... mais comment les intégrer dans le reste de la chaîne "maire de Paris"

Merci

bonjour,

une possibilité

Sub aargh()
t = Range("A1")
t1 = Split(t, " ")
nom = t1(0)
prenom = t1(1)
titre = Trim(Replace(Replace(t, nom, ""), prenom, ""))
End Sub

Bonjour,

Test ceci :

Sub PrénomNom()
    Dim np, nom$
    With ActiveSheet.Range("A1")
        np = Split(.Value)
        nom = np(0)
        np(0) = np(1): np(1) = nom
        .Value = Join(np)
    End With
End Sub

Cordialement.

merci pour ces réactions rapides et toujours efficaces...