couleurs cellule sans mise en forme cond.

[arnaud]

Bonjour à tout le forum,

Je souhaiterai changer la couleur d'une cellule en fonction d'un numéro, et jusqu'au 5 couleurs, est-ce possible avec une fonction SI ou autre...
Je suis limité à 3 couleurs avec la mise en forme conditionnelle...

Merci d'vance

Bon ap

Arnaud

 

[Hady]

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

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

 

[tigroo]

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é

 

[jeromegmc]

Salut,

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

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 

'à chaque modification de feuille faire lancer la macro suivante

If Range('A1').Value = 5 Then 'si cellule A1 = 5
Range('A1').Select
With Selection.Interior
        .ColorIndex = 36 'appliquer la couleur jaune
        .Pattern = xlSolid
    End With
End If
End Sub

A+

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

 

[Arnaud]

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.