bonjour,

pourquoi ce code ne fonctionne pas ??
MERCI

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
Dim x As Integer
x = 2
For Each cell In Range("a2:a22")
 
If cell(x, 1).Value < cell(x, 2).Value Then
 
cell(x, 1).Font.Bold = True
cell(x, 1).Font.Size = 16
cell(x, 1).Font.ColorIndex = vbRed
'cell(x, 1).Interior.ColorIndex = 3
 
Else
 
cell(x, 1).Font.Bold = False
cell(x, 1).Font.Size = 12
cell(x, 1).Font.ColorIndex = 1
'cell(x, 1).Interior.ColorIndex = False
End If
Next cell
End Sub