XL 2013 Colorer une cellule selon conditions

[MACx]

Bonjour à vous tous,

Je possède un tableau avec beaucoup de colonnes et beaucoup de lignes
Je m’intéresse aux cellules de la colonne A dont certaines contiennent des libellés en MAJUSCULE GRAS.
Je souhaite mettre une couleur UNIQUEMENT à ces cellules là.

NB: Il n'y a pas de cellule vide dans cette colonne.

Merci infiniment de votre aide.

 

[gosselien]

Re : Colorer une cellule selon conditions

Bonjour,

tu devrais mettre un fichier exemple, ça serait + clair pour tous...

P.
Essaye avec ceci:

Sub MajGras()
For Each c In Selection
    testMaj = IIf(InStr(c, UCase(c)) > 0 And c.Font.Bold, True, False)
If testMaj Then c.Interior.ColorIndex = 22
Next
End Sub

 

[MACx]

Re : Colorer une cellule selon conditions

Alors voici un exemple tout simple:

[table="width: 500, align: left"]
[tr]
[td]Colonne A[/td]
[td]Colonnes B à Z[/td]
[/tr]
[tr]
[td]LUNDI[/td]
[td][/td]
[/tr]
[tr]
[td]Pommes[/td]
[td][/td]
[/tr]
[tr]
[td]Excel[/td]
[td][/td]
[/tr]
[tr]
[td]FORUM[/td]
[td][/td]
[/tr]
[tr]
[td]Exemple[/td]
[td][/td]
[/tr]
[tr]
[td]COULEUR[/td]
[td][/td]
[/tr]
[tr]
[td]Miniscules[/td]
[td][/td]
[/tr]
[tr]
[td]MAJUSCULES[/td]
[td][/td]
[/tr]
[tr]
[td]MERCI[/td]
[td][/td]
[/tr]
[/table]

 

[gosselien]

Re : Colorer une cellule selon conditions

j'avais compris 🙂

mais un fichier aide tout le monde et peut servir à d'autres; en attendant fais un test avec le code envoyé 🙂

P.

Alors voici un exemple tout simple:

[TABLE="width: 500, align: left"]
[TR]
[TD]Colonne A[/TD]
[TD]Colonnes B à Z[/TD]
[/TR]
[TR]
[TD]LUNDI[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Pommes[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Excel[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]FORUM[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Exemple[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]COULEUR[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Miniscules[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]MAJUSCULES[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]MERCI[/TD]
[TD][/TD]
[/TR]
[/TABLE]

 

[DoubleZero]

Re : Colorer une cellule selon conditions

Bonjour, MACx, gosselien 🙂, le Forum,

Une autre possibilité, bien que celle de gosselien soit "plus mieux bien" :

Option Explicit
Sub Police_maj_gras_repérer()
    Dim c As Range
    Application.ScreenUpdating = 0
    Columns(1).Insert
    Range("a1:a" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=EXACT(RC[1],UPPER(RC[1]))"
    For Each c In Columns(2).SpecialCells(xlCellTypeConstants)
        If c.Font.Bold = True And c.Offset(, -1) = True Then c.Interior.ColorIndex = 36
    Next
    Columns(1).Delete
    Application.ScreenUpdating = -1
End Sub

A bientôt 🙂

 

[MACx]

Re : Colorer une cellule selon conditions

Et existe-il une solution sans passer par des macros ?
Merci

 

[JHA]

Re : Colorer une cellule selon conditions

Bonjour à tous,

Oui, si il y a une raison logique pour que ces cellules sont en gras.

JHA

 

[DoubleZero]

Re : Colorer une cellule selon conditions

Re-bonjour, bonjour, JHA 🙂,

Une MFC capable de détecter la police "gras" des caractères d'une cellule ? Je ne crois pas cela possible.

Mais... , sur XLD, on peut faut tout espérer.

A bientôt 🙂

_________________________________________________________________

Correction...

Remplacer :

"Mais... , sur XLD, on peut faut tout espérer."

Par :

"Mais... , sur XLD, on peut tout espérer."

😱

 

[MACx]

Re : Colorer une cellule selon conditions

Bonjour Gosselien,

Désolé mais ça n'a rien donné 🙁

 

[gosselien]

Re : Colorer une cellule selon conditions

Bonjour,

et si tu envoyais une partie anonymisée de ton fichier ? dans un fichier XL, pas une image ou autre 🙂
il suffit de 20 lignes et qq colonnes...

P.

 

[DoubleZero]

Re : Colorer une cellule selon conditions

Bonjour à toutes et à tous,

Bonjour Gosselien,

Désolé mais ça n'a rien donné 🙁

😕

Sur mon poste, le code de gosselien fonctionne parfaitement.

A bientôt 🙂