Inverser deux mots dans une cellule

[alain18]

Bonjour à tous,
Dans un tableau je reçois des Noms et Prénoms écrit dans cette ordre dans une même cellule. Serait il possible avec une formule d'inverser cet ordre, à savoir: Prénom et Nom dans une cellule adjacente ?

Merci de votre aide.

 

[DoubleZero]

Re : Inverser deux mots dans une cellule

Bonjour à toutes et à tous,

Le fichier joint, de BOISGONTIER, est fait pour cela.

Encore merci à lui !

 

[Softmama]

Bonjour alain18 et 00,

Dans le cas simple où il n'y aurait qu'un seul espace, cette simple macro convient :

Sub test1()
Dim c As Range
On Error Resume Next
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row) 'Si données en colonne A
      a = Split(c)
      c = a(1) & " " & a(0)
Next c
End Sub

 

[Softmama]

Dans le cas où y aurait plusieurs espaces dans le nom, celle-ci devrait faire l'affaire :

Sub test2()
Dim c As Range
On Error Resume Next
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row) 'Si données en colonne A
     c = Mid(c, InStr(c, " ") + 1) & " " & Mid(c, 1, InStr(c, " "))
Next c
End Sub

[EDIT] Y a plus simple !

 

[DoubleZero]

Re : Re: Inverser deux mots dans une cellule

Re-bonjour,

Bravo et merci, Softmama !

 

[alain18]

Re : Re: Inverser deux mots dans une cellule

Bonjour et merci à tous les deux pour vos réponses rapides.

Suite à tes conseils DoubleZéro, j'ai regardé sur le site de Boisgontier pour retrouver le fichier que tu m'as envoyé (pour essayer de comprendre cette formule matricielle complexe...) et j'ai trouvé la formule ci-dessous dans un autre fichier intitulé "FonctionInverseNomPrénom"
=STXT(C7;CHERCHE(" ";C7)+1;999)&" "&GAUCHE(C7;CHERCHE(" ";C7)-1)
Je pense qu'elle peut fonctionner également.

Merci pour cette macro Softmama. Je ne suis pas un expert en VBA mais je vais tester également.
Encore une fois merci de votre soutien.
Alain.

 

[DoubleZero]

Re : Re: Inverser deux mots dans une cellule

Re-bonjour,

Merci, Alain, pour cette nouvelle formule 🙂.

 

[josanche]

Re : Inverser deux mots dans une cellule

La solution de Alain18 est surment la plus efficace