Microsoft 365 Extraire un texte en majuscule dans une cellule

[Sarah_f]

Bonjour,

J'ai dans ma cellule A1, "FRANCEconso" et je souhaiterai en B1 extraire seulement "FRANCE", avez-vous une solution ?


Merci d'avance

 

[JHA]

Bonjour à tous,

A essayer cette formule matricielle

=GAUCHE($A1;SOMME(--EXACT(STXT($A1;LIGNE(INDIRECT("$1:$"&NBCAR($A1)));1);MAJUSCULE(STXT($A1;LIGNE(INDIRECT("$1:$"&NBCAR($A1)));1)))))

JHA

 

[sylvanu]

Bonjour Sarah, JHA,
Peut être avec cette petite fonction perso :

Function MAJ(Chaine$)
    For N = 1 To Len(Chaine)
        If UCase(Mid(Chaine, N, 1)) = Mid(Chaine, N, 1) Then MAJ = MAJ & Mid(Chaine, N, 1)
    Next N
    If MAJ = 0 Then MAJ = ""
End Function

 

[Sarah_f]

Merci pour vos réponses cela m'as beaucoup aidé cependant je ne souhaitais pas faire de macro