Changer la couleur du texte si la cellule est vide

[Fermé]
Signaler
Messages postés
1
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
29 mai 2015
-
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
-
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 ?

2 réponses

Messages postés
84
Date d'inscription
vendredi 19 juillet 2013
Statut
Membre
Dernière intervention
31 août 2017

Tu doit faire "Ton text ou ton D4".ForeColor = color.white
il faut ForeColor
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 642
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