XL 2021 * RESOLU* Mise en forme conditionnelle maj/min

[hades]

Bonjour,
Toujours dans les mises en forme conditionnelle, je souhaiterai, lorsque du texte est écrit en minuscule, qu'il s'affiche en rouge (idem lorsqu'il y a des abréviations dans cette même ligne qui elles, sont en majuscules).

Exemples :
MARCHE DE FOURNITURES => majuscule => ok reste noir
marché de prestations => minuscule => rouge
Marché de MOE => combinaison de majuscule et de minuscule => rouge

J'ai essayé avec la formule "exact", mais elle ne tient pas compte des majuscules en début de phrase et des abréviations.

Est ce possible ?

Merci d'avance.
Chris

 

[TooFatBoy]

Bonjour,

Est ce possible ?

Oui : =ESTERREUR(TROUVE(MAJUSCULE(A1);A1))

 

[mapomme]

Bonjour @hades ,

Essayez la formule : =NON(EXACT(MAJUSCULE(A1);A1))

nota : on peut encore raccourcir la formule en : =1-EXACT(MAJUSCULE(A1);A1)

 

[Dranreb]

Bonjour.

=OU(NON(EXACT(A1;MAJUSCULE(A1)));ESTNUM(CHERCHE(".";A1)))

Cette fonction perso en VBA ne réagirait que si le point était juste derrière une lettre :

Function MinusAbrev(ByVal Z As String) As Boolean
   Dim P As Integer, C As String * 1, LettrePré As Boolean
   For P = 1 To Len(Z)
      C = Mid$(Z, P, 1)
      If UCase(C) <> LCase(C) Then
         If C = LCase(C) Then MinusAbrev = True: Exit Function
         LettrePré = True
      ElseIf C = "." And LettrePré Then
         MinusAbrev = True: Exit Function
      Else: LettrePré = False: End If
      Next P
   End Function

 

[mapomme]

Re,

Sinon, on peut faire dans le long et tordu avec la formule :

=SOMMEPROD(1*(CODE(MAJUSCULE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))<>CODE(STXT(A1;LIGNE(INDIRECT("1:" & NBCAR(A1)));1))))>1

 

[hades]

Re,

Sinon, on peut faire dans le long et tordu avec la formule :

=SOMMEPROD(1*(CODE(MAJUSCULE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))<>CODE(STXT(A1;LIGNE(INDIRECT("1:" & NBCAR(A1)));1))))>1

lol... vous m'avez perdu...

J'ai essayé vos formules, ça fonctionne parfaitement !
Merci pour votre aide et votre temps, c'est top.
passez une bonne journée.