Aide VBA SVP

[mozaku]

Bonsoir à tous
Je sollicite votre aide pour mon petit projet de travail.
En effet, j'ai un tableau qui contient plusieurs données par tranche et par nom de projet, chaque projet a trois indicateurs avec la moyenne par tranche et en fin de journée (cf tableau de test en PJ).
Comme vous pouvez le voir dans le tableau, il y a une mise en forme conditionnelle pour deux indicateurs qui sont les plus importants (QS Local et QE), je souhaite avec votre aide garder que les projets dont la moyenne en fin de journée des deux indicateurs est en rouge comme c'est le cas pour le Projet 2 et masquer tout le reste, soit en vba ou via une formule.
Merci d'avance pour votre précieuse aide.
Bonne soirée.

 

[eriiic]

Bonjour,

Sub masquerProj()
    Dim col As Long
    Application.ScreenUpdating = False
    For col = 2 To Cells(1, Columns.Count).End(xlToLeft).Column Step 3
        Columns(col).Resize(, 3).Hidden = Cells(4, col) >= 0.9 Or Cells(4, col + 1) >= 1
    Next col
End Sub

Tes règles de MFC ne sont pas logiques, elles se chevauchent : <1 et >0.9999 (?!?)
La logique voudrait qq chose comme <1 et >=1 que ce soit clair pour tout le monde
eric

 

[mozaku]

Salut Eric,
Tout d'abord merci pour ton retour et tes explications, je prends note de cette information que j'appliquerai dès maintenant.
Je teste le code VBA et je te fais un retour.
Merci en core une fois
Mohamed

 

[eriiic]

Au fait, si tu pouvais enlever ce Urgent de ton titre, ce n'est pas vraiment bienvenu sur les forums.
Ca ferait plutôt fuir.
Rien n'est urgent, il n'y a que des choses en retard...
eric

 

[mozaku]

Re Salut Eric,
Merci bp pour ton aide, le code fonctionne parfaitement sauf pour un seul projet (projet 3 qui est masqué même si les indicateurs sont inférieurs à l'objectif) / Je modifie l'objet du sujet et je prends note pour mes prochains sujets 🙂 🙂
Avant :

Après :

 

[mozaku]

Re Salut,

C'est bon j'ai changé juste Or par And et ça marche merci bp Erci.
Bonne soirée

 

[eriiic]

Bonjour,

ne change pas au hasard...
Remplace plutôt la ligne des tests, 4 mis par erreur au lieu de 6 :

Sub masquerProj()
    Dim col As Long
    Application.ScreenUpdating = False
    For col = 2 To Cells(1, Columns.Count).End(xlToLeft).Column Step 3
        Columns(col).Resize(, 3).Hidden = Cells(6, col) > 0.9 Or Cells(6, col + 1) > 1
    Next col
End Sub

eric