Bonjour à tous,

Je suis un débutant de VBA et j'ai un problème de format, je voulais changer les couleurs de cellules avec des conditions, mais il y a une erruer d'exécution 13 qui sort :

a = Cells(19, i).Value
b = Cells(19, j).Value

PS: les valeurs de cellules sont en format pourcentage.

merci d'avance vos aides



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim i As Integer, j As Integer
Dim a As Double, b As Double
Sheets("menu").Select
For i = 4 To 15
j = 20
a = Cells(19, i).Value
b = Cells(19, j).Value
If a > b * 1.05 Then Cells(19, i).Interior.ColorIndex = 3
If a < b * 0.95 Then Cells(19, i).Interior.ColorIndex = 35
j = j + 1
Next i
Range("a1").Select
End Sub