Changer la couleur du texte si la cellule est vide
Lauraa_92
Messages postés
1
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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 :
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 ?
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
-
Tu doit faire "Ton text ou ton D4".ForeColor = color.white
il faut ForeColor -
Bonjour,
Par exempleDim 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
