Recherche si la cellule est saisie en majuscule

Résolu
nihcoc Messages postés 194 Statut Membre -  
nihcoc Messages postés 194 Statut Membre -
Bonjour,

je cherche a faire une fonction qui renvoie 1 ou 2 suivant quelle est saisie en majuscule ou en minuscule.
Merci d'avance

Configuration: Windows / Firefox 85.0
A voir également:

3 réponses

Vaucluse Messages postés 27336 Statut Contributeur 6 441
 
Bonjour
pour un texte en A1, 1 pour majuscule, 2 pour minuscule:
en B1:
=SIERREUR(SI(TROUVE(A1;MAJUSCULE(A1);1)=1;1);2)
à adapter
crdlmnt
0
nihcoc Messages postés 194 Statut Membre 5
 
Merci a toi , mais je n'ai pas la fonction sierreur (Excel2000).
0
jee pee Messages postés 42374 Statut Modérateur 9 737 > nihcoc Messages postés 194 Statut Membre
 
dans ce cas utiliser
SI(ESTERREUR())    
 
0
Vaucluse Messages postés 27336 Statut Contributeur 6 441 > nihcoc Messages postés 194 Statut Membre
 
=SI(ESTERREUR(SI(TROUVE(A1;MAJUSCULE(A1);1)=1;1);2)) ;"";SI(TROUVE(A1;MAJUSCULE(A1);1)=1;1);2))
CRDLMNT
0
jee pee Messages postés 42374 Statut Modérateur 9 737
 
Bonjour,

Voilà une formule, qui pourrait servir de base à une fonction
=SI(EXACT(MAJUSCULE(A1);A1);1;SI(EXACT(MINUSCULE(A1);A1);2;3)) 


0
Raymond PENTIER Messages postés 71821 Statut Contributeur 17 376
 
Bonjour nihcoc.

Si je t'ai bien compris, tu cherches à écrire une formule ?
Pas vraiment à créer une fonction ?
0
nihcoc Messages postés 194 Statut Membre 5
 
Bonjour
si c'est possible je préfèrerais une fonction .
j'en ai trouvé une qui recherche si le texte est barré,je l'ai transformé ,mais je ne sais pas comment changé le mot c.Font.Strikethrough qui correspond au majuscule
Merci
Function EstMajuscule(c)
Application.Volatile
EstMajuscule = c.Font.Strikethrough
End Function
0