XL 2019 Colorer cellules suivant condition saisie texte

[Al1_44]

Bonjour à tous,

J'aimerais une macro, lorsqu'il y a une saisie dans les colonnes C et D que les cellules correspondantes à la lignes, les cellules E, J et N se colorent en bleu.
Et que sur la même ligne, une fois que la dernière E, J ou N contenant du texte, que la couleur de ces trois cellules s'annulent.
Pour info, c'est une feuille contenant plusieurs centaines de lignes et je fais énormément de copier/coller de lignes.

Merci par avance,

AL_44

 

[sylvanu]

Bonjour,
Vous y étiez presque avec votre MFC.
En PJ un essai avec comme MFC :

=ET(E1="";$C1<>"";$D1<>"")

J'ai supposé qu'on mettait bleu si C ET D étaient non vides.

 

[fanfan38]

Bonjour,
Ci joint ma solution

A+ François

 

[job75]

Bonjour à tous,

Au vu du post #1 il me semble que cette MFC sur les colonnes E J N convient mieux :

=(NBVAL($C1:$D1)=2)*(NBVAL($E1;$J1;$N1)<3)

A+

 

[job75]

Cette macro fait la même chose que la MFC précédente :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, tablo, i&
Application.ScreenUpdating = False
[E:E,J:J,N:N].Interior.ColorIndex = xlNone 'RAZ
Set P = Range("A1", UsedRange)
tablo = P 'matrice, plus rapide
For i = 1 To UBound(tablo)
    If Not IsEmpty(tablo(i, 3)) Then If Not IsEmpty(tablo(i, 4)) Then _
        If IsEmpty(tablo(i, 5)) Or IsEmpty(tablo(i, 10)) Or IsEmpty(tablo(i, 14)) _
            Then Union(P(i, 5), P(i, 10), P(i, 14)).Interior.Color = 15773696 'bleu
Next
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque.

 

[Al1_44]

A tous un grand merci pour vos solutions,

Un grand merci à Job75, ce sont les solutions qui répondent le plus à mes attentes, tant en VBA qu'en MFC.
Une mention à Fanfan38 pour le coté fun, le changement de couleur au fil de la saisie, ça m'a plût.
En tout cas bravo à tous !

Pour ma part c'est résolu.

 

[job75]

Vous ne croyez pas qu'il vaut mieux mettre le post #5 comme solution plutôt que votre post #6 ?

 

[Al1_44]

Tout à fait Job75, il serait présomptueux de m’accorder le bénéfice des solutions.
En fait, cela fait très longtemps que je n'ai sollicité le forum et j’ai un peu perdu les bonnes pratiques.
Je corrige de suite mon imper.
Bon WE à tous.