Discussion :

[Daniel-Gérald]

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.

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

Merci de votre aide

[ESVBA]

Pourquoi deux boucles ?

De plus, une boucle ne peut pas finir avant une autre incluse Explications :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each HorsPlageTotal In Range("AB11:AB33")  '<--------------
               For Each HorsPlageDiner In Range  '<--     
                     'Code ici                
               Next HorsPlageDiner               '<--     
Next HorsPlageTotal                             '<--------------

Analyse des deux boucles :

For Each HorsPlageTotal In Range("AB11:AB33")
For Each HorsPlageDiner In Range("A11:A33")

Pour HorsPlageTotal = AB11 on teste toutes les HorsplageDiner de A11 à A33
________________ = AB12 " " " " " " " A11 à A33
.....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For Each HorsPlageTotal In Range("AB11:AB33")
    If (HorsPlageTotal.Value < 0.75 And HorsPlageTotal.Value > 0) Then
        Range("A" & HorsPlageTotal.Row).Interior.Color = RGB(255, 240, 10)
    Else
        Range("A" & HorsPlageTotal.Row)Interior.Color = RGB(255, 255, 255)
    End If
Next HorsPlageTotal

Non testé mais devrait convenir.

ESVBA