voila, un collègue de travail, m'a demandé, et de plus moi aussi, je saurais comment le faire pour la prochaine fois... comment réalisé une mise en forme de plusieurs couleurs dans sa colonne k1 à k3000, j'ai essayer le code ci-dessous, quand je mets les lettres majuscules seules cela fonctione, mais lorsque la valeur de la cellule est "22735" mais dans la cellulle , pour obtenir ce résutat de "22735", il y a une formule, donc , je suppose , qu'il prend la formule en compte et pas le resultat "22735" alors le format ne se fait pas ?
merci pour l'aide
Marc
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("k1:k3000")) Is Nothing Then 'Plage à modifie
Select Case Target.Value
Case Is = "A"
Target.Interior.ColorIndex = 2
Case Is = "B"
Target.Interior.ColorIndex = 3
Case Is = "22735"
Target.Interior.ColorIndex = 4
Case Is = "35669"
Target.Interior.ColorIndex = 5
Case Is = "28995"
Target.Interior.ColorIndex = 6
''''Ajoute autant de Case... que tu veux
End Select
End If
End Sub