Microsoft 365 Initiales avec prénom simple, prénom composé avec ou sans tiret et nom.

[JPC33]

Bonsoir le forum
J'ai cherché ici et là, dont copilot qui m'a donné 2 formules, qui ne sont pas justes. Ces formules sont dans le fichier joint feuille 4.
Je vous remercie de vous pencher sur ces formules.

 

[Hecatonchire]

Bonjour,

=CONCAT(GAUCHE(FRACTIONNER.TEXTE(A1;{" ";"-"})))

 

[JPC33]

Bonjour,

=CONCAT(GAUCHE(FRACTIONNER.TEXTE(A1;{" ";"-"})))

Merci Hecatonchire
Vous êtes bien meilleur que Copilot
Bonne soirée

 

[job75]

Bonjour le forum,

Ceux qui comme moi n'ont pas les nouvelles fonctions Excel pourront utiliser cette fonction VBA :

Function Initiales(x As String, separateurs As Variant) As String
Dim i As Integer
If Not IsArray(separateurs) Then separateurs = Array(separateurs)
x = Trim(x)
Initiales = Mid(x, 1, 1)
For i = 2 To Len(x)
    If IsNumeric(Application.Match(Mid(x, i - 1, 1), separateurs, 0)) Then Initiales = Initiales & Mid(x, i, 1)
Next
End Function

Formule en B2 =Initiales(A2;{" ";"-"})

A+

 

[JPC33]

Bonjour le forum,

Ceux qui comme moi n'ont pas les nouvelles fonctions Excel pourront utiliser cette fonction VBA :

Function Initiales(x As String, separateurs As Variant) As String
Dim i As Integer
If Not IsArray(separateurs) Then separateurs = Array(separateurs)
x = Trim(x)
Initiales = Mid(x, 1, 1)
For i = 2 To Len(x)
    If IsNumeric(Application.Match(Mid(x, i - 1, 1), separateurs, 0)) Then Initiales = Initiales & Mid(x, i, 1)
Next
End Function

Formule en B2 =Initiales(A2;{" ";"-"})

A+

Bonsoir le forum et job75
Merci pour votre réponse. La formule m'est plus pratique.
Bonne fin de soirée.

 

[job75]

Bonjour,

La formule m'est plus pratique.

Certainement si l'on a MS 365, Excel 2021 ou 2024 mais pas dans le cas contraire.

A+