Bonjour

Voilà, j'aimerais mettre en forme(qu'elle change de couleur) certaine cellule d'une feuille en fonction de ce qu'il y a de noter dedans.
avant cela fonctionné très bien si je tapais la valeur directement dans la cellule. Mais maintenant cesvaleur s'inscrive grace a des formule, et ma mise en forme ne ce fait plus, et je ne vois pas pourquoi, si quequ'un sait pourquoi cela m'arrangerais.

Voilà ce que j'ai :

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
22
23
24
Sub MEF()
Dim endofcolumn As Long
endofcolumn = 500
For i = 1 To endofcolumn
 Select Case Cells(i, 1).Value
    Case Is = ""
    Cells(i, 1).Interior.ColorIndex = 0
    Case Is = "JV"
    Cells(i, 1).Interior.ColorIndex = 35
    Case Is = "R"
    Cells(i, 1).Interior.ColorIndex = 3
    Cells(i, 1).Font.ColorIndex = 2
    Case Is = "B"
    Cells(i, 1).Interior.ColorIndex = 37
    Case Is = "N"
    Cells(i, 1).Interior.ColorIndex = 1
    Cells(i, 1).Font.ColorIndex = 2
    Case Is = "O"
    Cells(i, 1).Interior.ColorIndex = 46
    Case Is = "V"
    Cells(i, 1).Interior.ColorIndex = 7
    End Select
 Next i
End Sub