Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

counterbob

XLDnaute Nouveau
Bonjour
je souhaiterais une mise en forme (fond rouge) si les valeurs des 4 colonnes précédentes sont égales à zéro.
Les colonnes représentent les années. 2015, 2016, 2017, 2018, 2020, 2021, 2022 etc
Nous sommes actuellement en 2021, donc si les les valeurs de la ligne des colonnes 2016 à 2020 son à zéro alors le fond est rouge.
L'année prochaine se seront les années 2017 à 2018 qui doivent être la condition.

Merci pour une aide
je joins un tableau exemple.
 

Pièces jointes

  • MEF_SI_4_DERNIERES_ANNEES_A_ZERO.xlsx
    10.9 KB · Affichages: 9

JHA

XLDnaute Barbatruc
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
 

Pièces jointes

  • MEF_SI_4_DERNIERES_ANNEES_A_ZERO.xlsx
    11.7 KB · Affichages: 8

Ioda12345

XLDnaute Nouveau
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
 

Pièces jointes

  • MEF_SI_4_DERNIERES_ANNEES_A_ZERO.xlsm
    18.6 KB · Affichages: 1

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…