XL 2013 Caracteres

[maval]

Bonjour,

J'ai une colonne (A) avec des noms comme ceci " M. Philippe Berta "
Et j'aimerai arriver à obtenir ceci dans 6 colonnes en VBA ci-possible

Civilité Prénom Nom Prénom & nom Nom & Prénom Prénom & nom en minuscule
Mr. Philippe Berta Philippe Berta Berta Philippe philippe berta

Je joins un fichier exemple

Je vous remercie

Max

 

[maval]

Re bonjour

Pas de réponse Bof......!

 

[Victor21]

Bonjour, maval.

Très simple à réaliser manuellement :
Données convertir dans un premier temps,
Concaténer pour avoir les différentes combinaisons,
Minuscule pour la dernière colonne.
Reste à utiliser l'enregistreur de macro que vous devez connaitre, non ?
Mais vous préférez peut-être déléguer ?

 

[pierrejean]

Bonjour maval
Salut Patrick
Une macro a tester:

Sub test()
For n = 5 To Range("A" & Rows.Count).End(xlUp).Row
 x = Split(Range("A" & n))
 Range("C" & n) = x(0)
 Range("D" & n) = x(1)
 Range("E" & n) = x(2)
 Range("F" & n) = x(1) & " " & x(2)
 Range("G" & n) = x(2) & " " & x(1)
 Range("H" & n) = LCase(Range("F" & n))
Next
End Sub

 

[fanfan38]

Bonjour
Question à 2 balles
Est ce que tous les prénoms double (Jean François) auront un très d'union?
Ou est ce que tous les noms double (Bessot Ballot) auront un très d'union?
A+ François

 

[job75]

Bonjour maval, Patrick, Pierre, fanfan38,

Si la ligne 4 est toujours vide :

Sub Remplir()
Application.DisplayAlerts = False
With [A5].CurrentRegion
    .Columns(1).TextToColumns .Cells(1, 3), xlDelimited, Space:=True 'commande Convertir
    .Columns(3).Replace "M.", "Mr."
    .Columns(6) = "=RC[-2]&"" ""&RC[-1]"
    .Columns(7) = "=RC[-2]&"" ""&RC[-3]"
    .Columns(8) = "=LOWER(RC[-2])"
    .Columns(6).Resize(, 3) = .Columns(6).Resize(, 3).Value 'supprime les formules
End With
End Sub

A+

 

[maval]

Bonjour PierreJean,
Bonjour Job

Je vous remercie beaucoup Nickel comme Dab.....
Bonne journée

 

[job75]

Pour ne pas laisser fanfan38 sans réponse : si les noms ou prénoms composés ne sont pas distingués... eh bien impossible de les distinguer !

 

[maval]

Bonjour

Suite au deux code de Job et Pierrejean que je salut et remercie encore, j'ai omis de mettre "C1: E1" ensemble c'est à dire exemple:
Mr. Philippe Berta
Je vous remercie d'avance

Max