Changer la couleur du texte si la cellule est vide

Question

Bonjour,
Voici ce que je cherche à faire : si B4 est vide, alors affiche moi le texte en D4 en blanc.

Voila ce que j'ai fais pour l'instant :
Sub Color()
  If IsEmpty(Range("B4")) Then
    Range("D4").Font.ColorIndex = 2
    End If
End Sub

Maintenant, je voudrais répéter cette operation plusieurs fois en m'arrêtant la dernière fois ou la colonne A possède une valeur.
J'espère que je suis claire ...
Est ce que quelqu'un pourrait m'aider stp ?

Simondu92 · Answer

Tu doit faire "Ton text ou ton D4".ForeColor = color.white
il faut ForeColor

pijaku · Answer

Bonjour,
Par exemple
Dim DLigne As Long, Lig As Long
DLigne = Range("A" & Rows.Count).End(xlUp).Row
For Lig = 2 to DLigne 'on commence ligne 2 jusqu'à la dernière col A
    If IsEmpty(Range("B" & Lig)) Then Range("D" & Lig).Font.ColorIndex = 2
Next Lig

Changer la couleur du texte si la cellule est vide

2 réponses

Votre réponse

Discussions similaires

Newsletters