Extraction de Noms et Prenoms composés
Bonjour
Je reviens vers vous car je n’arrive pas à extraire d’une liste les « Nom et Prénoms composés » pour les placer dans 2 colonnes distingues j’ai essayé avec la fonction convertir mais je bloque car l’extraction se fait sur 3 ou 4 colonnes suivant les noms
Ex
Le Roi Marie Claude
Le Port Jean Pierre
Le Roi Charles
Renaud rose marie
je joins un petit fichier pour expliquer mon problème
par avance MERCI a celui ou ceux qui pourrons m'aider
cordialement a tous
Bonjour,
Ci-joint une proposition... à étudier ...
En espèrant que cela t'aide
Bonjour,
Une proposition de flemmard !...
Cdlt.
bonsoir Jean-Eric
avec ta solution j'ai toujours 4 colonnes avec certain nom composé
Salut Jacques
A priori tu n'as pas envie d'étudier ma proposition ....probablement trop fastidieuse ...
Desolé James007
j'avais répondu mais je n'ai pas appuyé sur la bonne touche le message n’était pas parti
Re,
le flemmard a reproduit à l'identique ce que tu voulais !...
Voir ton fichier initial.
Cdlt.
bonsoir James007
merci pour ta proposition elle fonctionne bien mais je souhaiterai pouvoir indexer automatiquement les chiffres 1 et 2 si cela est possible
car ma liste de noms en compte environ 200
je suis désolé cela fait 3 fois que je réponds et ça ne passe pas je dois faire une erreur quelque part
Re
je suis désolé cela fait 3 fois que je réponds et ça ne passe pas je dois faire une erreur quelque part
Soit quelque part ... soit ailleurs ...
Dès que j'ai un petit moment ... je vais creuser ton sujet ...
merci James007
a demain ??
bonne soirée
Re,
Ci-joint ta version 2 ...
Plus aucun effort à fournir ...
Bonsoir Papy2956, Jean-Eric,
Salut James007,
Pour compléter le tableau et toujours "Plus aucun effort à fournir ... "
2 Fonctions personnalisés dont j'ai oublié l'auteur mais tout droit sorti de mes archives.
Option Explicit
Function Prénom(ATrouver As String) As String
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "([A-Z][a-zàâéèëêïîöôüûy]+-* *)+"
If .test(ATrouver) Then
Prénom = .Execute(ATrouver)(0)
End If
End With
End Function
Function Nom(ATrouver As String) As String
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "([A-Z]{2,}-* *)+"
If .test(ATrouver) Then
Nom = .Execute(ATrouver)(0)
End If
End With
End FunctionL'avantage c'est que cela fonctionne dans les 2 sens " Nom & Prénom " où " Prénom & Nom "
Fichier joint:
Cordialement.
Salut mdo100
Merci pour le partage des deux fonctions personnalisées ... c'est très sympa ...
Salut James007,
De rien, je n'ais que peux de mérite pour les fonctions personnalisées
Mais puisque tu apprécies se partage en voici un autre qui fonctionne de la même manière à savoir:
Dans les 2 sens " Nom & Prénom " où " Prénom & Nom " mais par formules matricielles.
Bonne journée du 8 mai.
Cordialement.
PS: Merci à Jacques Boisgontier pour ses 2 formules matricielles
Salut mdo100
Merci pour les deux matricielles ... bien plus abouties ... que celle que j'ai trop rapidement torchée en 5 minutes ...
Elles méritent d'être archivées ...
A très bientôt ....
Bonjour à tous,
Comment veux-tu pouvoir extraire les noms et prénoms si il n'y a aucune distinction entre eux ?
Il faudrait que les noms soient totalement en majuscules.
Si je prend en exemple un des noms que tu donnes :
"Le Roi Marie Claude"
le nom pourrait tout aussi bien être "Le Roi" comme "Le Roi Marie" et le prénom "Marie Claude" comme "Claude" !
Il faudrait que ce soit écrit sous cette forme : "LE ROI Marie Claude"
Un Grand MERCI a vous tous je suis comblé mon problème est résolu
je n'ai que l’embarras du choix de toutes façon j'enregistre toutes les formules elle doivent me servir un jour ou l'autre
Vous êtes vraiment fort
encore Bravo et merci
Cordialement