Sortir les innitial d'un nom dans une autre cellule

DoubleZero

XLDnaute Barbatruc

• 23 Février 2012

• #2

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

Bonjour, Sebastien99, le Forum,

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

Code:

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

A bientôt

 

Vote positif 0 Vote négatif

S

Sebastien99

XLDnaute Junior

• 23 Février 2012

• #3

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

Merci ca fonctionne nickel

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

• 23 Février 2012

• #4

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

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

Code:

=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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Février 2012

• #5

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

Code:

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

 

Dernière édition: 23 Février 2012

Vote positif 0 Vote négatif

S

Sebastien99

XLDnaute Junior

• 23 Février 2012

• #6

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

Merci de m'avoir aidé.

 

Vote positif 0 Vote négatif