Recherche si la cellule est saisie en majuscule

Résolu/Fermé
nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 - 3 févr. 2021 à 11:00
nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 - 3 févr. 2021 à 17:20
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

3 réponses

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 419
3 févr. 2021 à 12:58
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 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
3 févr. 2021 à 14:34
Merci a toi , mais je n'ai pas la fonction sierreur (Excel2000).
0
jee pee Messages postés 40656 Date d'inscription mercredi 2 mai 2007 Statut Modérateur Dernière intervention 10 janvier 2025 9 484 > nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023
3 févr. 2021 à 15:35
dans ce cas utiliser
SI(ESTERREUR())    
 
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 419 > nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023
3 févr. 2021 à 15:54
=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 40656 Date d'inscription mercredi 2 mai 2007 Statut Modérateur Dernière intervention 10 janvier 2025 9 484
Modifié le 3 févr. 2021 à 13:01
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 58802 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 10 janvier 2025 17 264
3 févr. 2021 à 13:28
Bonjour nihcoc.

Si je t'ai bien compris, tu cherches à écrire une formule ?
Pas vraiment à créer une fonction ?
0
nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
3 févr. 2021 à 17:20
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