Repérage cellule avec format majuscule

[zelgrif]

Bonjour à tous,

Je suis à la recherche d'un moyen pour repérer dans une liste les cellules contenant des noms saisis en majuscule, et uniquement en majuscule. Le format normal devant être la 1ère lettre en majuscule, et le reste du nom en minuscule.
Le problème est que sur près de 20000 lignes, je ne sais pas comment les faire ressortir pour les mettre à part ensuite.
Existe il un moyen simple pour parvenir à les repérer ?

Merci d'avance de vos réponses

Olivier

 

[david84]

Re : Repérage cellule avec format majuscule

Bonjour,
je pense qu'en combinant les fonctions EXACT MAJUSCULE et NOMPROPRE, tu devrais y arriver.
Regarde du côté du site de JB.
A+

 

[Papou-net]

Re : Repérage cellule avec format majuscule

Bonsoir zelgrif,

Vois si le fichier exemple ci-joint te convient. Si oui, tu n'as plus qu'à adapter la macro à ton application.

Si tu as besoin d'aide, n'hésite pas.

Cordialement.

Edit : bonsoir david84, Jean-Marcel

 

[JBOBO]

Re : Repérage cellule avec format majuscule

Bonjour,

Avec une formule pas très élégante si nom en B2

,=SI(CNUM(SIERREUR(TROUVE(CAR(65);B2;1);"")&SIERREUR(TROUVE(CAR(66);B2;1);"")&SIERREUR(TROUVE(CAR(67);B2;1);"")&SIERREUR(TROUVE(CAR(68);B2;1);"")&SIERREUR(TROUVE(CAR(69);B2;1);"")&SIERREUR(TROUVE(CAR(70);B2;1);"")&SIERREUR(TROUVE(CAR(71);B2;1);"")&SIERREUR(TROUVE(CAR(72);B2;1);"")&SIERREUR(TROUVE(CAR(73);B2;1);"")&SIERREUR(TROUVE(CAR(74);B2;1);"")&SIERREUR(TROUVE(CAR(75);B2;1);"")&SIERREUR(TROUVE(CAR(76);B2;1);"")&SIERREUR(TROUVE(CAR(77);B2;1);"")&SIERREUR(TROUVE(CAR(78);B2;1);"")&SIERREUR(TROUVE(CAR(79);B2;1);"")&SIERREUR(TROUVE(CAR(80);B2;1);"")&SIERREUR(TROUVE(CAR(81);B2;1);"")&SIERREUR(TROUVE(CAR(82);B2;1);"")&SIERREUR(TROUVE(CAR(83);B2;1);"")&SIERREUR(TROUVE(CAR(84);B2;1);"")&SIERREUR(TROUVE(CAR(85);B2;1);"")&SIERREUR(TROUVE(CAR(86);B2;1);"")&SIERREUR(TROUVE(CAR(87);B2;1);"")&SIERREUR(TROUVE(CAR(88);B2;1);"")&SIERREUR(TROUVE(CAR(89);B2;1);"")&SIERREUR(TROUVE(CAR(90);B2;1);""))<11;"";B2)

recherche si il y a plusieurs caractères dont le code est compris entre 65 et 90 et affiche le nom si c'est le cas où rien si il n'y a que la 1ere lettre en majuscule.
A tester !

ou beaucoup plus court

=SI(EXACT(B2;MAJUSCULE(B2));B2;"")

 

[zelgrif]

Re : Repérage cellule avec format majuscule

Merci pour la formule pas très élégante, mais en fait la solution de la macro de Papou-net convient parfaitement à mon besoin.
Un grand merci, ça évitera un travail long et fastidieux.

Olivier

 

[Staple1600]

Re : Repérage cellule avec format majuscule

Bonsoir à tous

zelgrif
Le format que tu décris s'appelle Nom Propre
Donc en modifiant un chouïa , la macro de Jean-Marcel (que je salue au passage 😉 )

Sub mCompare()
Dim Celle As Range
Application.ScreenUpdating=False
    For Each Celle In Columns(1).SpecialCells(xlCellTypeConstants, 2)
    Celle.Font.Bold = Celle = StrConv(Celle, vbProperCase)
    Next
End Sub