XL 2019 Extraire les premières lettres d'un prénom et nom dans des colonnes

nel27 · 19 Août 2021

Bonjour,
mon problème est le suivant. J'ai 3 colonnes : une avec le prénom, une avec le nom et dans la troisième, je voudrais extraire les deux premières lettres des prénoms et noms. Jusque là pas de soucis avec la formule : =MAJUSCULE(GAUCHE(A1;2)&GAUCHE(B1;2)) placée dans ma troisième colonne.
Le hic, c'est lorsque les prénoms sont composés. Exemple pour Marie-Paule BOULIER j'ai : MABO alors que je voudrais MPBO. Uniquement les premières lettres des deux prénoms pour rester dans le format 4 caractères.
J'ai trouvé une solution avec la formule : =SIERREUR(STXT(C12;TROUVE("";A1);1);"")&SIERREUR(STXT(C12;TROUVE("-";A1)+1;1);"")&MAJUSCULE(GAUCHE(B1;2))

Existe-t-il une formule combinant ces deux formules me permettant d'avoir le bon résultat dans ma troisième colonne quelque soit le type de prénom renseigné?
En faite, je voudrais dupliquer ma formule sur toute la colonne et non pas en changer si mon prénom est composé.

En vous remerciant de votre aide.

Belle journée.

fanch55 · 19 Août 2021

Bonjour,
Marie-Paule et Marie-Pierre, Marie-Christine et Marie-Chantal,Jean-Pierre et Jean-Paul etc ...
Comment avez-vous prévu de les discriminer ?

job75 · 19 Août 2021

Bonjour nel27, fanch55

Avec une fonction VBA on ne se prend pas la tête :

VB:

unction Initiales$(t$)
Dim s
t = Replace(Replace(Replace(UCase(t), "-", " "), " DE ", " "), " LA ", " ")
t = Application.Trim(t) 'SUPPRESPACE
s = Split(t)
Select Case UBound(s)
    Case 0: Initiales = Left(t, 2)
    Case 1: Initiales = Left(s(0), 2) & Left(s(1), 2)
    Case Is > 1: Initiales = Left(s(0), 1) & Left(s(1), 1) & Left(s(2), 2)
End Select
End Function

Le code est placé impérativement dans un module standard.

A+

Victor21 · 19 Août 2021

Bonjour, @nel27, @job75
Une proposition par formule en pj

Edit : Bonjour, bien évidemment aussi à @fanch55

nel27 · 20 Août 2021

fanch55 à dit:
Bonjour,
Marie-Paule et Marie-Pierre, Marie-Christine et Marie-Chantal,Jean-Pierre et Jean-Paul etc ...
Comment avez-vous prévu de les discriminer ?

Bonjour Franch55, je ne pense pas les discriminer. Vu que je combine les premières lettres des prénoms composés avec les deux premières lettres du nom ( Marie-Pierre Olin me donnera MPOL et Marie-Paule Plan me donnera MPPL). Ce serait pas de chance que je tombe sur le même résultat.

nel27 · 20 Août 2021

Victor21 à dit:
Bonjour, @nel27, @job75
Une proposition par formule en pj

Edit : Bonjour, bien évidemment aussi à @fanch55

Bonjour Victor21, merci pour la réponse. Je vais testé par contre j'ai vu qu'il y avait une formule pour la récupération des initiales d'un prénom composé et une autre pour la récupération des deux premières lettres d'un prénom simple.
Si ce n'est pas abusé, serait-il possible de combiner ces deux formules?
Merci beaucoup.

Victor21 · 20 Août 2021

Bonjour.
Une seule formule en colonne C,

VB:

=SI(ESTNUM(TROUVE("-";A2));STXT(A2;1;1)&STXT(A2;TROUVE("-";A2)+1;1);STXT(A2;1;2))&STXT(B2;1;2)

que le prénom soit simple ou composé (avec un tiret entre les deux parties).
La formule en colonne D passe tout en majuscule, même si les données ne le sont pas

nel27 · 20 Août 2021

Un grand merci à tous. Mon "problème" est résolu. Il faut savoir s'appuyer sur les spécialistes.

XL 2019 Extraire les premières lettres d'un prénom et nom dans des colonnes

nel27

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Victor21

XLDnaute Barbatruc

Pièces jointes

nel27

XLDnaute Nouveau

nel27

XLDnaute Nouveau

Victor21

XLDnaute Barbatruc

nel27

XLDnaute Nouveau

Discussions similaires