Sortir les innitial d'un nom dans une autre cellule

[Sebastien99]

Bonjour!

J’aimerais savoir s’il est possible de sortir les initial d’un nom dans une autre cellule.

Jean-Claude Tremblay (JCT)

 

[DoubleZero]

Re : Sortir les innitial d'un nom dans une autre cellule

Bonjour, Sebastien99, le Forum,

Pour un nom en A1, peut-être ainsi :

=GAUCHE(A1;1)&" "&STXT(A1;TROUVE(" ";A1)+1;1)

A bientôt

 

[Sebastien99]

Re : Sortir les innitial d'un nom dans une autre cellule

Merci ca fonctionne nickel

 

[R@chid]

Re : Sortir les innitial d'un nom dans une autre cellule

Salut @ tous,
une variante si le texte et en A1 alors en B1 :

=GAUCHE(A1;1)&SI(ESTERREUR(TROUVE("-";A1));STXT(A1;TROUVE(" ";A1)+1;1);STXT(A1;TROUVE("-";A1)+1;1)&STXT(A1;TROUVE(" ";A1)+1;1))

Amicalement

 

[mapomme]

Re : Sortir les innitial d'un nom dans une autre cellule

Bonsoir Sebastien99,

Ou bien par une fonction Initiales(A1, " '-").
1ier paramètre ==> le nom
2ième paramètre ==> les séparateurs ( espace, apostrophe et tiret dans l'exemple ci-dessus)
pour des noms du type anne-marie d'arbrisson

Function Initiales(xNom As String, xSeparateurs) As String
Dim X As String, i
X = Left(xSeparateurs, 1) & UCase(Trim(xNom))
For i = 2 To Len(X)
    If InStr(xSeparateurs, Mid(X, i - 1, 1)) > 0 And Mid(X, i, 1) >= "A" And Mid(X, i, 1) <= "Z" Then
        Initiales = Initiales & Mid(X, i, 1)
    End If
Next i
End Function

 

[Sebastien99]

Re : Sortir les innitial d'un nom dans une autre cellule

Merci de m'avoir aidé.