Excel get / extract cap letter de cellule à une autre cellule

Comment extraire la lettre de cap de la cellule à une autre cellule

John Doe = JD

SomeWord = SW

ExTraCt = ETC

Y a-t-il une fonction à ce sujet? Je dois extraire les valeurs de cap de la colonne A à la colonne B. La cellule ne contient que des valeurs de text + espace (pas de numbers, pas de caractères spéciaux)

J'ai trouvé une solution mais avec VB. Insérer le code dans le module normal:

Function ExtractCap(Rng As Range) Application.Volatile ExtractCap = "" For f = 1 To Len(Rng) If Asc(Mid(Rng.Value, f, 1)) >= 65 And Asc(Mid(Rng.Value, f, 1)) <= 90 Then ExtractCap = ExtractCap & Mid(Rng.Value, f, 1) End If Next f End Function 

Ensuite, utilisez une formule comme celle-ci:

= ExtractCap (A1)

pour montrer les lettres majuscules en A1.

Référence: http://www.mrexcel.com/forum/excel-questions/230646-extract-capital-letters-text-cell.html#post1127820