Inverser deux mots dans une cellule

DoubleZero

XLDnaute Barbatruc

• 19 Janvier 2011

• #2

Re : Inverser deux mots dans une cellule

Bonjour à toutes et à tous,

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

Encore merci à lui !

 

Pièces jointes

• MatNomPrenom2.zip

  17.3 KB · Affichages: 1 068

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 19 Janvier 2011

• #3

Bonjour alain18 et 00,

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

VB:

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

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 19 Janvier 2011

• #4

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

VB:

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 !

 

Dernière édition: 19 Janvier 2011

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 19 Janvier 2011

• #5

Re : Re: Inverser deux mots dans une cellule

Re-bonjour,

Bravo et merci, Softmama !

 

Vote positif 0 Vote négatif

A

alain18

XLDnaute Occasionnel

• 19 Janvier 2011

• #6

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.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 19 Janvier 2011

• #7

Re : Re: Inverser deux mots dans une cellule

Re-bonjour,

Merci, Alain, pour cette nouvelle formule 🙂.

 

Vote positif 0 Vote négatif

J

josanche

XLDnaute Occasionnel

• 21 Avril 2012

• #8

Re : Inverser deux mots dans une cellule

La solution de Alain18 est surment la plus efficace

 

Vote positif 0 Vote négatif