couleur dans une cellule

[florent]

bonjour,

je souhaiterais mettre une couleur de fond dans une cellule en fonction de sa valeur , comme pour la forme conditionnelle mais pour 7 valeurs differentes.

merci de votre aide

florent

 

[Pascal76]

Salut Florent

Regarde ce fil

Lien supprimé

et prens le dernier fichier

Bon courage

Pascal

 

[florent]

Bonjour pascal

merci pour le fil , cela pourrais correspondre mais la macro n'est pas visible ??

est ce que tu aurais un autre exemple à me proposer

Florent

 

[Pat5]

Bonsoir Pascal et Florent

La macro est dans la feuille 1.

VBA click bouton droit Code sur la feuil1



Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A20")) Is Nothing Then
For Each cell In Target
If cell.Value = "A" Then
cell.Interior.ColorIndex = 3
ElseIf cell.Value = "B" Then
cell.Interior.ColorIndex = 5
ElseIf cell.Value = "C" Then
cell.Interior.ColorIndex = 4
ElseIf cell.Value = "D" Then
cell.Interior.ColorIndex = 6
ElseIf cell.Value = "E" Then
cell.Interior.ColorIndex = 7
End If
Next
End If

End Sub


A+

Pat5 ;o)

 

[florent]

Bonsoir à tous,

merci à toi Pat5 et à toi Pascal .. ça marche, enfin de compte c'était mon excel qui faisait des sienne

A+

Florent