Valeur manquante dans colonnes

Bonjour

Dans le doc joint, je souhaiterai qu'à chaque changement de valeur dans plage B5:H19, s'il ne trouve pas la valeur "C" dans une colonne, il colorie en rouge la 4° ligne de la colonne concernée. Dans l'exemple joint, je l'ai fait manuellement en C4 puisque valeur "C" non présente dans cette colonne.

Inversement, si on ajoute la valeur "C" dans une colonne où celle-ci était absente (et donc avec un titre coloré en rouge précédemment), que la couleur de ce titre revienne sans couleur de fond.

Si possible, j'aimerai que cela se produise avec Worksheet_Change

Merci d'avance

Bonjour le forum,

Voir le fichier joint.

Bonjour mbbp

Merci mais si on pouvait également m'apporter une solution avec

Worksheet_Change

Je suis preneur.

Merci encore.

Salut boby, mbbp,

Ne fonctionnera en l'état que jusqu'à la colonne [Z].

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iTCol%
'
iTCol = Target.Column
Cells(4, iTCol).Interior.Color = IIf(WorksheetFunction.CountIf(Range(Chr(64 + iTCol) & 1 & ":" & Chr(64 + iTCol) & 19), "C") = 0, RGB(255, 0, 0), RGB(255, 255, 255))
'
End Sub

A+

Bonjour

Merci beaucoup.

Rechercher des sujets similaires à "valeur manquante colonnes"