Bonjour à tous, j'ai un petit problème j'aimerais remplir d'une couleur un champs selon la valeur d'un autre.
Exemple: le champs A11 devient jaune si le champs AB11 est <0.75
le champs A12 devient jaune si le champs AB12 est <0.75
et ainsi de suite jusqu'au champs A33.
Voici ci dessus je que j'ai fait mais sans succès.
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 For Each HorsPlageTotal In Range("AB11:AB33") For Each HorsPlageDiner In Range("A11:A33") If (HorsPlageTotal.Value < 0.75 And HorsPlageTotal.Value > 0) Then HorsPlageDiner.Interior.Color = RGB(255, 240, 10) Else HorsPlageDiner.Interior.Color = RGB(255, 255, 255) End If Next HorsPlageTotal Next HorsPlageDiner
Partager