Séparer Le titre les prénoms et noms d'une personne

[dridri]

Bonjour,
Dans une cellule excel j'ai Monsieur Roger Christophe De Montelimar. Je voudrais arriver à séparer le titre, le prénoms et les noms. Peut importe le nombre de prénoms!

Je met en pièce jointe ce que j'ai commencer mais sans arriver à terminer.

Merci d'avance.

 

[tototiti2008]

Re : Séparer Le titre les prénoms et noms d'une personne

Bonjour dridri,

Bienvenue sur XLD,

Oui, mais sur quelles règles ?
Le premier espace marque-t-il toujours la fin du Titre ? ou as-tu des "Monsieur le Maire" ?
Qu'est-ce qui pourrait nous donner un indice sur la séparation Prénom-Nom ?

 

[DoubleZero]

Re : Séparer Le titre les prénoms et noms d'une personne

Bonjour, dridri, et bienvenue, bonjour tototiti2008 🙂, le Forum,

Peut-être une solution dans cette discussion.

A bientôt 🙂.

 

[hoerwind]

Re : Séparer Le titre les prénoms et noms d'une personne

Bonjour, salut tototiti,

D'après ton exemple les séparations se font aux endroits où plusieurs espaces se suivent.
Est-ce toujours le cas ?
Si oui, c'est assez simple, si non je crains fort qu'il n'y ait pas de solution.

 

[dridri]

Re : Séparer Le titre les prénoms et noms d'une personne

Est - il possible sinon d'ecrire une phrase et d'arriver a la décomposer mot pour mot dans des cellules?

 

[DoubleZero]

Re : Séparer Le titre les prénoms et noms d'une personne

Re-bonjour,

Oui, la décomposition d'une phrase, par exemple en A1, peut se faire ainsi :

- sélection de A1,
- données,
- convertir,
- délimité,
- espace.

Bon courage 🙂.

 

[TempusFugit]

Re : Séparer Le titre les prénoms et noms d'une personne

Bonjour

En sus de la méthode (la plus simple) de DoubleZero

Voici une possibilité par le biais d'une macro
Avant de lancer la macro, il faut sélectionner la colonne où sont les données.

Sub separercontenu()
Dim c As Range
For Each c In Selection
c.Offset(, 1).Resize(, 1 + UBound(Split(c))) = Split(c)
Next c
Columns(1).Delete 'A commenter si on ne veut pas effacer les données de départ
End Sub