XL 2019 Colorer cellules suivant condition saisie texte

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Septembre 2021

• #2

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

VB:

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

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

 

Pièces jointes

• AL44.xlsx

  10.1 KB · Affichages: 5

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 11 Septembre 2021

• #3

Bonjour,
Ci joint ma solution

A+ François

 

Pièces jointes

• AL44.xlsm

  15.9 KB · Affichages: 14

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Septembre 2021

• #4

Bonjour à tous,

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

Code:

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

A+

 

Pièces jointes

• AL44(1).xlsx

  10.8 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Septembre 2021

• #5

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

VB:

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.

 

Pièces jointes

• AL44 VBA(1).xlsm

  17.9 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

A

Al1_44

XLDnaute Junior

• 11 Septembre 2021

• #6

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Septembre 2021

• #7

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

 

Vote positif 0 Vote négatif

A

Al1_44

XLDnaute Junior

• 12 Septembre 2021

• #8

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.

 

Vote positif 0 Vote négatif