XL 2019 Mise en forme conditionnelle si les 4 dernières années sont à zéro

Bonjour à tous;

Un essai en pièce jointe, formule MFC

JHA

un peu de VBA.. pour faire un fichier xslm



Sub Autpen() 'execution au demarage

For I = 3 To 23 'pour les lignes 1 à 23
For J = 0 To 4 ' pour les cinq colonnes precedentes
'Si la cellule ligne I et colonne 10 -J n'est pas vide et les 4 precedentes = 0, alors
If Cells(I, 10 - J).Value <> "" And Cells(I, 9 - J).Value = 0 And Cells(I, 8 - J).Value = 0 And Cells(I, 7 - J).Value = 0 And Cells(I, 6 - J).Value = 0 Then 'colonne 18 = "P"

For K = 1 To 13 '... alors pour les 13 premieres colonnes...
' colorier la case I, K en rouge
Feuil1.Cells(I, K).Interior.Color = RGB(256, 0, 0) 'rouge
Next K
End If
Next J
Next I

End Sub

JHA à dit:

Bonjour à tous;

Un essai en pièce jointe, formule MFC

VB:

=SOMME(DECALER($A3;;EQUIV(ANNEE(AUJOURDHUI())-1;$B$2:$M$2;0);;-4))=0

JHA

Cliquez pour agrandir...

Merci JHA c'est parfait.

Ioda123456 merci pour ta réponse mais je ne souhaite pas le VBA. c'est plus simple pour l'envoyer.

@+