bonjour Chrystelle
tu peux insérer la procédure ci dessous au niveau de la feuille :
dès que tu modifies une valeur dans cette feuille , la cellule change de couleur ,ainsi que la couleur des caractères...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Range(Target.Address)
.Interior.ColorIndex = 4 ' couleur cellule (vert)
.Font.ColorIndex = 3 'chgt couleur caracteres (rouge)
.Font.Bold = True ' ecriture gras
.Font.Underline = xlUnderlineStyleSingle 'valeurs soulignées
End With
End Sub
Dans l'exemple ,si tu supprimes une valeur dans une cellule déjà colorisée , la couleur de fond reste identique dans la cellule .Je te proposes donc en option ( un peu au hasard car tu n'a pas donné beaucoup d'infos sur ton fichier ) quand tu supprimes la valeur d'une cellule "colorisée" , la cellule reprend les paramètres sans colorisation .
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next ' pour gerer suppression plage de cellule
If Range(Target.Address) = "" Then
With Range(Target.Address)
.Interior.ColorIndex = xlNone
.Font.Bold = False
.Font.Underline = xlUnderlineStyleNone
.Font.ColorIndex = 0
End With
Else
With Range(Target.Address)
.Interior.ColorIndex = 4 ' coloriage cellule (vert)
.Font.ColorIndex = 3 'chgt couleur caracteres (rouge)
.Font.Bold = True ' ecriture gras
.Font.Underline = xlUnderlineStyleSingle 'valeurs soulignées
End With
End If
End Sub
Il faudra sans doute que tu adaptes tout ça à ton projet
bonne soirée
Michel