caractères blancs sur fond de couleur

[Yldie]

Bonsoir à tous,

J'ai une macro avec multi mise en forme conditionnelle, or je ne sais pas comment insérer un code du type font etc........
voici ma macro, ex : ma lettre P en blanc
Sub contionnel()
ActiveSheet.Unprotect ("password")
Application.ScreenUpdating = False
For Each cellule In [B5:BN204]
cellule.Select
ActiveCell.Interior.ColorIndex = xlNone
With cellule
Select Case .Value
Case Is = ""
ActiveCell.Interior.ColorIndex = 0
Case Is = "P"
ActiveCell.Interior.ColorIndex = 27
Case Is = "R"
ActiveCell.Interior.ColorIndex = 4
Case Is = "E"
ActiveCell.Interior.ColorIndex = 3
End Select
End With
Next cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect ("password")
End Sub

 

[kjin]

Re : caractères blancs sur fond de couleur

Bonsoir,
utilises
Font.ColorIndex = 2 pour un caractère blanc

A+
kjin

 

[Yldie]

Re : caractères blancs sur fond de couleur

Merci beaucoup,

pourrais tu s'il te plaît me dire comment l'insérer pour que ça colle à la suite du ActiveSheet...........

Merci d'avance, bonne soirée

 

[TooFatBoy]

Re : caractères blancs sur fond de couleur

Essaye ça (exmple pour "P", avec en rouge la ligne à ajouter) :
Case Is = "P"
ActiveCell.Interior.ColorIndex = 27
ActiveCell.Font.ColorIndex = 2


Mais bon, du texte blanc sur un fond jaune... c'est pas très lisible. 😉

 

[Yldie]

Re : caractères blancs sur fond de couleur

Merci Marcel, Kjin
Malheureusement j'ai qqchose erreur 1004, ça passe pas !?!?
Erreur de compilation pourtant j'avais par intuition mis le bon code mais il le prend pas.....
Merci de bien vouloir m'aider...

 

[kjin]

Re : caractères blancs sur fond de couleur

Re,
Sub contionnel()
ActiveSheet.Unprotect ("password")
Application.ScreenUpdating = False
For Each cellule In [B5:BN204]
ActiveCell.Interior.ColorIndex = xlNone
With cellule
Select Case .Value
Case Is = ""
ActiveCell.Interior.ColorIndex = 0
Case Is = "P"
ActiveCell.Interior.ColorIndex = 27
ActiveCell.Font.ColorIndex = 2
Case Is = "R"
ActiveCell.Interior.ColorIndex = 4
Case Is = "E"
ActiveCell.Interior.ColorIndex = 3
End Select
End With
Next cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect ("password")
End Sub

Si je peux me permettre une remarque, pourquoi boucler à chaque fois sur autant de cellules ? et pourquoi ne pas utiliser ta variable "cellule" plutôt que "Activecell".

A+
kjin

 

[TooFatBoy]

Re : caractères blancs sur fond de couleur

Peut-être t'es-tu trompé quelque part.
Peux-tu nous poster ton code actuel s'il te plait ?

Au fait, le "BN204" n'&tait pas devenu "BM204", ou je me trompe ?

 

[Yldie]

Re : caractères blancs sur fond de couleur

Merci Kjin Merci Marcel
En Fait Je Suis A Chaque Fois Trop Presse Et Sans Doute Ma Macro Mettant Un Peu De Temps A Se Mettre Au Vert Me Fait Douter De Vos Conseils Mais Que Nenni, Vos Conseils Sont Excellents Simplement L'erreur 1004 Survient Peut Etre Juste Avant De Se Regulariser....quoi Qu'il En Soit Un Grand Merci Et Bonne Fin De We A Vous

 

[kjin]

Re : caractères blancs sur fond de couleur

Re,
Sans revenir sur le pb de la boucle, essaies comme ça :
Sub contionnel()
Application.ScreenUpdating = False
For Each cellule In [B5:BN204]
With cellule
Select Case .Value
Case Is = ""
cellule.Interior.ColorIndex = 0
Case Is = "P"
cellule.Interior.ColorIndex = 7
cellule.Font.ColorIndex = 2
Case Is = "R"
cellule.Interior.ColorIndex = 4
Case Is = "E"
cellule.Interior.ColorIndex = 3
End Select
End With
Next cellule
Application.ScreenUpdating = True
End Sub

A+
kjin