tri en inversant ordre de la cellule

[lolo44]

Bonjour à Toute et à Tous,
J'aimerais savoir s'il est possible de changer l'orde de 2 noms dans une cellule.
J'ai rentré environ 900 "prénom nom". Donc dans chaque cellule, j'ai un prénom suivi d'un espace puis un Nom.
Je voudrais trier par ordre alphabétique mais pour le Nom. Comment puis-je faire
Merci

 

[CB60]

Re : tri en inversant ordre de la cellule

Bonjour
peut être avec une colonne intermédiaire.

 

[BOISGONTIER]

Re : tri en inversant ordre de la cellule

Bonjour,


Voir PJ

Sub TriNomPrénom()
  [B:B].Insert
  For Each c In Range([A2], [A65000].End(xlUp))
    a = Split(c, " ")
    c.Offset(0, 1) = a(1) & " " & a(0)
  Next c
  [A2].CurrentRegion.Sort Key1:=Range("B2"), Header:=xlYes
  [B:B].Delete
End Sub

JB
Formation Excel VBA JB

 

[lolo44]

Re : tri en inversant ordre de la cellule

Merci à Vous 2.
Les 2 méthodent me plaisent et je ne sais pas s'il est posible de faire une combinaison des 2.
Ce que j'aime dans la méthode 1 et ce qui est très utile pour moi c'est que le NOM et le prénom s'inverse dans la cellule (super pour ma rechercheV).
Dans la seconde méthode c'est le fait de ne pas rajouter de colonne.
J'aimerais la seconde avec l'inversion Nom et Prénom dans la cellule.
Est-ce possible?
Merci pour votre aide

 

[BOISGONTIER]

Re : tri en inversant ordre de la cellule

Voir PJ

Sub InverseNomPrénom()
  For Each c In Range([A2], [A65000].End(xlUp))
    a = Split(c, " ")
    c.Value = a(1) & " " & a(0)
  Next c
 End Sub

JB

 

[lolo44]

Re : tri en inversant ordre de la cellule

Merci beaucoup
c'est parfait!
Lolo