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.