récupérer une partie d'une cellule

[caroline]

salut à tous
voilà mon problème est de récupérer un prenom dans une cellule
par exemple
jean,25ans celiba 1.70
pierre.26ans marié 1.75
jean-marc 30 celiba 1.82
,fabien 20 marié 1.
. celine 22 céliba 1.68
1 marie 40 mariée 1.70
alain 28 marié 1.65
vincent19celiba1.70
donc moi j'ai envie de récupérer le prénom seulement et j'ai utilise cette formule gauche(cellule1;trouve(" ";cellule1)-1)
avec cette formule je peux récupérer le prénom mais je suis obligée de changer chaque fois si le prénom est suivi d'un espace d'une virgule , d'un point etc ou bien s'il ya une virgule, un point, un chiffre devant le prénom. Donc quelqu'un pourrait il m'aider à trouver une formule qui prends en considération tout les cas possible cad un prénom suivi d'un espace , d'un chiffre , d'une virgule etc ou prédcédé d'unr virgule, d'un point tec..
MERCI D AVANCE

 

[vincent]

Salut

essaye ceci

Sub trie()
For i = 1 To Sheets(1).Range("a1").End(xlDown).Row
compteur = 0
Do
compteur = compteur + 1
a = Asc(Mid(Sheets(1).Cells(i, 1), compteur, 1))
Loop Until (a > 122 Or a < 97) And (a < 65 Or a > 90) And a <> 45 Or compteur + 1 >= Len(Sheets(1).Cells(i, 1))
Sheets(2).Cells(i, 1) = Left(Sheets(1).Cells(i, 1), compteur - 1)
Next
End Sub

Bon courage

Ps: ne fonctionne pas si il y a des caracteres devant le prenom

 

[michel]

bonjour caroline

peux tu tester le fichier et me dire si cela correspond à ta demande
( c'est un peu tiré par les cheveux mais cela fonctionne pour les exemples que tu as donné )

il faut maintenant faire des essais sur l'ensemble de ta liste pour verifier si cela fonctionne dans tous les cas de figure

bonne soirée
Michel

 

[Celeda]

Bonjour,

Je rêve ou quoi ? Caroline : souffres tu d'Alzheimer ?

Lien supprimé

​

Si oui, j'en suis vraiment désolée pour toi.

Si non, cela sert à quoi que deux personnes se soient décarcassées sur le forum pour toi et en plus tu réponds à Ti que tu es satisfaite !!!


Alors moi j'ai rien fumé, j'ai rien bu, mais est-ce que je n'hallucine pas ?

Il faut pas prendre les pingoins du forum pour des manchots !!!!!
et arrêtez un peu de leur faire tourner les têtes pour rien et de les faire courir !!

Si tu avais un doute quelconque le moteur de recherche est là pour cela.

Merci d'en tenir compte, pour au moins ceux qui répondent.

Celeda