Microsoft 365 Extraire un texte en majuscule dans une cellule

Sarah_f

XLDnaute Nouveau
Bonjour,

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


Merci d'avance
 

JHA

XLDnaute Barbatruc
Bonjour à tous,

A essayer cette formule matricielle
VB:
=GAUCHE($A1;SOMME(--EXACT(STXT($A1;LIGNE(INDIRECT("$1:$"&NBCAR($A1)));1);MAJUSCULE(STXT($A1;LIGNE(INDIRECT("$1:$"&NBCAR($A1)));1)))))

JHA
 

Pièces jointes

  • Classeur pays.xlsx
    9.3 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Sarah, JHA,
Peut être avec cette petite fonction perso :
VB:
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
 

Pièces jointes

  • Classeur1.xlsm
    13.4 KB · Affichages: 8

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG