Identifier les cellules en majuscules

[Rollus]

Bonjour à vous les spécialistes d' excel,

pouvez-vous me dire s'il existe une formule permettant d'identifier les cellules écrites en majuscules ou mieux encore, les cellules comportant du texte dont une ou plusieurs lettres sont en majuscules.

Merci pour votre aide.

 

[john]

Salut,

Voilà un petit programme qui détecte si il y a des majuscules dans les cellules.

La seule condition (dans mon prg) c'est que les cellules A ne doivent pas êtres vides, sinon la macro s'arrête. Mais tient qu'à toi d'utiliser for each à la place de la boucle for normale.

Bonne soirée.

John

 

[Rollus]

Merci john,

cela fonctionne bien, mais j'aurais aimé pouvoir recopier dans la colonne B les cellules qui comportent une majuscule pour pouvoir les filtrer par la suite. (le fichier dans lequel je veux isoler les majuscules comportent environs 5000 lignes...)

Si tu as une solution, ce serait génial.

P.S. existe-t-il une formule excel à la place d'une macro VBA ?

Salut.

 

[john]

Re,

Voilà le fichier transformé comme tu aimerai l'avoir.

Bonne soirée.

John

Ps: je ne sais pas si il existe une formule excel qui fait ce que je fais avec une macro vba.

 

[Marc]

Merci John,

j'ignorais que Lucky Luke avait un frère!

Tu réponds plus vite que ton ombre.

salut.

 

[Jon]

travaille autour de cela (attention à modifier puisque retourne vrai si A1 est vide)
=EXACT(A1;MINUSCULE(A1))

 

[nellmanu]

Bonjour monsieur Jon. Votre formule n'a pas fonctionné. Ou peut être que j'ai mal saisi quelque chose.
Dans mon cas les cellules contiennent des ensembles de mots où certains sont en majuscule d'autres non. Ma préoccupation c'est d'identifier les cellules dans lesquelles se trouvent des mots en majuscule. Merci.

 

[Staple1600]

Bonjour

nellmanu
Cette formule renvoie si dans cet exemple la cellule A1 contient au moins une majuscule
=NON(EXACT(MINUSCULE(A1);A1))

On peut aussi rendre la chose plus intelligible

=SI(NON(EXACT(MINUSCULE(A1);A1));"Contient au moins un caractère en majuscule";"Pas de majuscules")