j'ai un souci avec les prénoms, quand je mets mes formules tout va bien, mais le
problème c'est quand il ni a pas de majuscule au prénom et bien la dernière lettre du nom
ce mets avec les prénoms (voir en PJ, colonne E)
Y a t-il une solution ?
Se sont des fichiers que j'ai repris et cela me pose un vrai problème !!!
Un essai avec fonctions personnalisées (pour les exemples du fichier)
fonctions basée sur la position d'un espace entre nom (majuscule) et prenom ET seconde lettre du prenom en minuscule
Bon, faut quand même en finir, avec VBA on peut tout.
Règle adoptée :
- les noms (composés ou pas ) entièrement en majuscules
- les prénoms (composés ou pas) en minuscules, la 1ère lettre pouvant être une majuscule.
Comme je ne maîtrise pas RegExp, cette toute simple fonction macro :
Code:
Function Nom$(x$)
x = Application.Trim(x) 'supprime les espaces inutiles
Nom = x 'si pas de prénom
For i = 1 To Len(x)
If Mid(x, i, 3) <> UCase(Mid(x, i, 3)) Then Nom = Trim(Left(x, i)): Exit Function
Next
End Function
Bonsoir le fil ,
Que du beau monde assurément sur ce fil ...
Jean-marie m'ayant demandé (gentiment ) de faire un petit RegExp, une solution extraite de ce fil et remise à la sauce Sylvie .
Bonne soirée Ajout : Job, si tu ne maîtrises pas RegExp, tu maîtrise bien d'autres chose . Ma fonction RegExp est finalement plus compliquée. Seul avantage, je mets les prénoms en Proper, mais tu dois pouvoir l'intégrer dans ta fonction .