Macro pour couleur de police

[annbri]

Bonjour à tous

Malgré mes recherches je ne trouve pas de réponse à mon problème

Je voudrais que la couleur de la police soit blanche sur certaines cellules
J'arrive à adapter les couleurs de fond au texte contenu dans la cellule mais pas la couleur de la police

ex: pour colorer les cellules contenant M8 en marron
Case "M8"
Cel_In_Range.Interior.ColorIndex = 53

Pour que le texte s'affiche en blanc, j'essaie:
Case "M8"
Cel_In_Range.Font.ColorIndex = 2

Cela ne fonctionne pas

Merci d'avance à celui ou celle qui me permettra de corriger ma macro

Je joins mon fichier test:

 

[Gen Rose]

Re : Macro pour couleur de police

Re annbri
Hasco
Le Forum,

Je n'ai pas pu me retenir...en fait, il faut le voir positivement; un fil avec un titre TRÈS pointu et précis permettra aux prochains de trouver cette réponse si ardue à trouver, c'est-à-dire, formuler dans une MFC avec comme condition la couleur de la cellule

Je reviendrai poster la solution ici; je ne considère pas mon fil comme un doublon de celui-ci car c'est une autre demande (MFC, pas VBA) et de plus, on tourne en rond à nous 3.

À +

Edit.: Eh bien, c'est confirmé..macro seulement - voir ma courte recherche à la fin brutale: ici

 

[annbri]

Re : Macro pour couleur de police

Re à vous
Puis encore abuser de vos lumières?
J’essaie maintenant de compter les occurences sur plusieurs plages de cellules
Tout fonctionne parfaitement sauf lorsque je veux compter des cellules qui contiennent une *
Les 2 formules suivantes me donne le même résultat qui correspond à M20

=NB.SI(B4:B33;"M20")+NB.SI(B37:B47;"M20")+NB.SI(B49;"M20")+NB.SI(B52:B63;"M20")
=NB.SI(B4:B33;"M20*")+NB.SI(B37:B47;"M20*")+NB.SI(B49;"M20*")+NB.SI(B52:B63;"M20*")

Excel est-il capable de différencier "M20" et "M20*" ?
Ou une * ne peut-elle pas être comptabilisée par NB.SI

=NB.SI(B4:B33;"M20*")+NB.SI(B37:B47;"M20*")+NB.SI(B49;"M20*")+NB.SI(B52:B63;"M20*")

Merci d'avance

 

[Guest]

Re : Macro pour couleur de police

Bonjour,

Pour trouvé le * qui un caractère générique, le faire précéder d'un tilde (~)

=Nb.si(Plage;"M20~*")

A+

 

[annbri]

Re : Macro pour couleur de police

Bonjour,

Pour trouvé le * qui un caractère générique, le faire précéder d'un tilde (~)

=Nb.si(Plage;"M20~*")

A+

Trop génial
Merciiiiiiiiiiiiiiiiiiiiiiiiiiiii

 

[annbri]

Re : Macro pour couleur de police

Re,

Voici un exemple par MFC (si j'ai bien compris le problème) J'ai supprimé la macro et les autres couleurs.
[/CODE]

A+

Testé sur mon premier fichier test1
Ca fonctionne parfaitement
Même en gardant ma macro d'origine
Donc les 2 sont possibles: MFC ou macro pour passer en police blanche

Bonne soirée à vous

 

[Guest]

Re : Macro pour couleur de police

Re,

Bien sûr que dans ton cas les deux sont possibles.
Ce qui n'est pas possible par MFC c'est de déterminer si une cellule a un fond d'une couleur ou d'une d'autre et d'en change la police.
Les MFC se basent sur le contenu de la cellule mais pas sur leur mises en forme.

A+