couleurs cellule sans mise en forme cond.

Range('CelluleAColorier').Interior.ColorIndex = CouleurADonner

Exemple :
Range('A1').Interior.ColorIndex=3 'colorie A1 en rouge

bonjour arnaud!
alors tu peux faire une macro pour y arriver:

supposons que la cellule dont tu voudrais changer la couleur de font soit la cellule B2 en fonction de la valeur de la cellule B1 et que tu soit dans la feuille feuil1

Dans ce cas tu vas dans outil/macro/VisualbasicEditor
Là tu clique dans la fenêtre (sur ta gauche) projet et tu cherche feuil 1, une fenêtre s'ouvre

dedans tu écris le code suivant:

' la macro se déclenche lorsu'elle detecte un changement dans la case B2'
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('B2')) Is Nothing Then
'Si la case précédent la case B2 a pour valeur 1, alors on colore la case suivante en la couleur 1'

If target.offset(0,-1).value=1 then
target.font.colorindex=1
End if
If target.offset(0,-1).value=2 then
target.font.colorindex=2
End if
If target.offset(0,-1).value=3 then
target.font.colorindex=3
End if
If target.offset(0,-1).value=4 then
target.font.colorindex=4
End if
If target.offset(0,-1).value=5 then
target.font.colorindex=5
End if
End if

End sub

j'espère t'avoir suffisamment dépanné 🙂

Salut,

Oui c'est possible, colle ça dans thisworkbook et adapte le à ton cas:



A+

Message édité par: jeromegmc, à: 07/07/2005 15:24

Merci pour ta réponse, mais j'ai quelques difficultés :

En fait je voudrais modifier la couleur des cellules des colonnes B et C en fonction des valeurs de la colonne D

Ex:
_ si les cellules de la colonne D = 1 -> les cellules correspondantes des colonne B et C = bleu
_ si les cellules de la colonne D = 2 -> les cellules correspondantes des colonne B et C = violet
_ si les cellules de la colonne D = 3 -> les cellules correspondantes des colonne B et C = jaune


Peux tu me préciser le code VBA à appliquer?

Moultes merci

A+

Arnaud.