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

hades · 25 Juin 2024

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 · 25 Juin 2024

Bonjour,

hades à dit:
Est ce possible ?

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

mapomme · 25 Juin 2024

Bonjour @hades ,

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

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

Dranreb · 25 Juin 2024

Bonjour.

Code:

=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 :

VB:

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 · 25 Juin 2024

Re,

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

VB:

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

hades · 25 Juin 2024

mapomme à dit:
Re,

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

VB:

=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.

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

hades

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

hades

XLDnaute Nouveau

Discussions similaires