Changer la couleur du texte si la cellule est vide

Fermé
Lauraa_92 Messages postés 1 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 29 mai 2015 - Modifié par pijaku le 29/05/2015 à 16:29
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 29 mai 2015 à 16:32
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 ?
A voir également:

2 réponses

Simondu92 Messages postés 84 Date d'inscription vendredi 19 juillet 2013 Statut Membre Dernière intervention 31 août 2017 1
29 mai 2015 à 15:53
Tu doit faire "Ton text ou ton D4".ForeColor = color.white
il faut ForeColor
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
29 mai 2015 à 16:32
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
0