Coloration cellules sur condition

Bonjour à tous,

Je suis un piètre débutant en vba c'est la raison pour laquelle je demande de l'aide.

J'ai un tableau sur lequel j'ai 3 colonnes ABC avec des dates.

1 - Je souhaite que toutes dates à échéance de 6 mois soient colorées en rouge.

2 - Je souhaite ensuite que lorsque qu'un texte est saisie dans la colonne E, les cellules colorées de la ligne repassent à l'état d'origine (sans couleur)

J'ai essayé en MFC mais je galère...

Merci

103a.xlsm (9.74 Ko)

Bonsoir

Dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim dl%
  dl = Cells(Rows.Count, 5).End(xlUp).Row
  If Not Application.Intersect(Target, Range("E1:E" & dl)) Is Nothing And Target.Count = 1 Then
    If Target.Value <> "" Then Target.Offset(0, -4).FormatConditions.Delete
  End If
End Sub

Bonsoir,

yal_excel bonsoir,

de mon coté je partirais plutôt sur de la MFC car un code VBA comme celui indiqué supprime la MFC en place et si l'on s'aperçois que l'on a entrée une mauvaise valeur et que l'on veut revenir en arrière, alors la MFC est perdue.

Pour votre MFC il suffit de rajouter la condition qu'en colonne E même ligne la cellule doit être égale à rien :
=ET(MOIS.DECALER($A1;-6)<AUJOURDHUI();$E1="")

@ bientôt

LouReeD

Tout à fait LouReed ça me semble effectivement une bien meilleure solution

Merci à vous deux. La MFC fonctionne parfaitement !

Bonsoir,

merci pour votre retour et vos remerciements !

@ bientôt

LouReeD

Rechercher des sujets similaires à "coloration condition"