souci avec les prénoms

Sylvie64

XLDnaute Occasionnel
Bonjour,

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 !!!

Merci pour votre aide.

Sylvie
 

Sylvie64

XLDnaute Occasionnel
Re : souci avec les prénoms

Merci Tibo
Je mets la formule puis valider par CTRL + MAJ + ENTREE
Elle ne fonctionne pas, j'ai ceci #N/A

J'ai aussi essayé les autres proposition du fil.

Merci job75, je l'ai essayé aussi mais quand j'ai un nom + 2 prénoms cela ne va pas.

Si en "D" VER BRIGGE Mattheus Jean et bien en "E" j'ai VER BRIGGE Mattheus et en "F" Jean, alors quand "F" il me faudrait Mattheus Jean
 

Staple1600

XLDnaute Barbatruc
Re : souci avec les prénoms

Bonsoir à tous

Finalement les soucis sont revenus ?

Dans ce cas , j'opterai pour un solution à base de RegExp
solution que je laisse le soin à JNP de développer (si l'envie lui vient)


PS: je vais lui demander en MP de venir voir ton fil.
 
Dernière édition:

pierrejean

XLDnaute Barbatruc
Re : souci avec les prénoms

Re

Salut Tibo

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
 

Pièces jointes

  • Sylvie64_2b.zip
    12.1 KB · Affichages: 35

job75

XLDnaute Barbatruc
Re : souci avec les prénoms

Re,

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

Fichier joint.

A+
 

Pièces jointes

  • SeparerNomPrenom-Sylvie64Macro(1).xls
    41.5 KB · Affichages: 86
Dernière édition:

JNP

XLDnaute Barbatruc
Re : souci avec les prénoms

Bonsoir le fil :),
Que du beau monde assurément sur ce fil ;)...
Jean-marie m'ayant demandé (gentiment :p) de faire un petit RegExp, une solution extraite de ce fil et remise à la sauce Sylvie :D.
Bonne soirée :cool:
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 :rolleyes:.
 

Pièces jointes

  • Sylvie64(1).xlsm
    20.4 KB · Affichages: 78
  • Sylvie64(1).xlsm
    20.4 KB · Affichages: 80
  • Sylvie64(1).xlsm
    20.4 KB · Affichages: 79
Dernière édition:

JNP

XLDnaute Barbatruc
Re : souci avec les prénoms

Re :),
En tenant compte des ... et ?, une nouvelle PJ :p.
Bonne soirée :cool:
 

Pièces jointes

  • Sylvie64(1).xlsm
    21.4 KB · Affichages: 83
  • Sylvie64(1).xlsm
    21.4 KB · Affichages: 90
  • Sylvie64(1).xlsm
    21.4 KB · Affichages: 99

JNP

XLDnaute Barbatruc
Re : souci avec les prénoms

Re :),
petits soucis avec

MER LIEÉ Pierre Eustache
VAN MERLIER Pierre François
DE MERLIER Pierre François
Exact (difficile d'être exaustif sans une liste prenant tous les cas et leur résultat ;).
Une nouvelle proposition en PJ :p.
Bonne nuit :cool:
 

Pièces jointes

  • Sylvie64(1).xlsm
    21.2 KB · Affichages: 100
  • Sylvie64(1).xlsm
    21.2 KB · Affichages: 108
  • Sylvie64(1).xlsm
    21.2 KB · Affichages: 108

Discussions similaires

Statistiques des forums

Discussions
312 201
Messages
2 086 171
Membres
103 152
dernier inscrit
Karibu