Discussion :

[Daniel-Gérald]

Bonjour à tous, j'ai un petit problème. J'aimerais que des cellules change de couleur selon le résultat d'autre cellules.

Exemple : j'ai un calcul dans mes cellules de A11 à A33, Lorsque que le résultat d'une cellule (Exemple A23) est plus petit que 0.75 ou plus grand que 2.25 la cellule (B23) doit devenir de la couleur rouge..

Mon code ne fonctionne pas. Est-ce que quelqu'un pourrait m'aider.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub HorsPlage()
Dim X As Range
Dim Y As Range
 
For Each X In Range("a11:a33")
For Each Y In Range("b11:b33")
 
If X.Value < 0.75 And X.Value > 0 Or XValue > 2.25 Then Y.Interior.Color = RGB(255, 0, 10) Else Y.Interior.Color = RGB(255, 255, 255)
 
Next X
Next Y
End Sub

Merci à tous

[mercatog]

Une mise en forme conditionnelle ne te va pas?
sinon pour ton code

Code :

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

1
2
3
4
5
6
7
8
9
Dim X As Range
 
For Each X In Range("A11:A33")
    If (X.Value < 0.75 And X.Value > 0) Or X.Value > 2.25 Then
        X.Offset(0, 1).Interior.Color = RGB(255, 0, 10)
    Else
        X.Offset(0, 1).Interior.ColorIndex = xlNone
    End If
Next X

[Daniel-Gérald]

Merci ca fonctionne.