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

  • Initiateur de la discussion Initiateur de la discussion hades
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

hades

XLDnaute Junior
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
 
Bonjour @hades 🙂,

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

1719307085015.png


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

Pièces jointes

Dernière édition:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
158
Réponses
2
Affichages
101
Réponses
25
Affichages
598
Réponses
4
Affichages
283
Retour