tri en inversant ordre de la cellule

CB60

XLDnaute Barbatruc

• 10 Août 2008

• #2

Re : tri en inversant ordre de la cellule

Bonjour
peut être avec une colonne intermédiaire.

 

Pièces jointes

• tri inversion nom.zip

  1.9 KB · Affichages: 36

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Août 2008

• #3

Re : tri en inversant ordre de la cellule

Bonjour,


Voir PJ

Code:

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

 

Pièces jointes

• TriPrenomNomx.xls

  27 KB · Affichages: 92

Dernière édition: 10 Août 2008

Vote positif 0 Vote négatif

L

lolo44

XLDnaute Occasionnel

• 10 Août 2008

• #4

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Août 2008

• #5

Re : tri en inversant ordre de la cellule

Voir PJ

Code:

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

 

Pièces jointes

• TriPrenomNomy.xls

  27.5 KB · Affichages: 81

Vote positif 0 Vote négatif

L

lolo44

XLDnaute Occasionnel

• 10 Août 2008

• #6

Re : tri en inversant ordre de la cellule

Merci beaucoup
c'est parfait!
Lolo

 

Vote positif 0 Vote négatif