Microsoft 365 Extraire un texte en majuscule dans une cellule

J

JHA

XLDnaute Barbatruc

• 17 Janvier 2022

• #2

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: 11

Vote positif 0 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Janvier 2022

• #3

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: 9

Vote positif 0 Vote négatif

S

Sarah_f

XLDnaute Nouveau

• 17 Janvier 2022

• #4

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

 

Vote positif 0 Vote négatif