[XL-2000] Extraire le nom et les initiales du prénom [Résolu]

[Philindy26]

Bonjour,

J'ai recherché sur plusieurs forum, mais je n'arrive à aucun résultat.
Je voudrais extraire le nom et les initiales du prénom avec une formule ou avec une fonction en vba.

Les noms et prénoms sont dans une même cellule.

Ex : et le résultat souhaité
en A1 : DUPOND Pierre ==> DUPOND P.
A2 : RICHARD Jean-Claude ==> RICHARD J.C.
A3 : DE MARTIN Philippe ==> DE MARTIN P.
A4 : JEAN Frédérique ==> JEAN F.
A5 : DUPOND-JEAN Pierre-Jean ==> DUPOND-JEAN P.J.


Merci beaucoup d'avance pour votre aide.
Philindy26

[jfontaine]

Bonjour,

Ci dessous une fonction qui fait cela.
Son fonctionnement se base sur les caractères majuscules. Les minuscules étant ignorés dans le retour

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function NomPre(rg As Range)
 
Dim i As Long
Dim strNom As String
Dim strDest As String
 
strNom = rg.Value
 
For i = 1 To Len(strNom)
    Select Case Asc(Mid(strNom, i, 1))
        Case 32, 65 To 90
            strDest = strDest & Mid(strNom, i, 1)
 
    End Select
Next i
 
NomPre = strDest
 
End Function

A utiliser dans la feuille comme suit

Code :

=NomPre(A1)

[Philindy26]

Bonjour jfontaine,

Merci beaucoup pour cette réponse ultra rapide
et encore bravo pour votre travail.

Philindy26