Donner une couleur à une cellule en fonction du résultat de celle-ci

Version imprimable

06/01/2015, 14h07
bertrandmal

1 pièce(s) jointe(s)

Donner une couleur à une cellule en fonction du résultat de celle-ci

Bonjour,

Après avoir chercher sur le forum la réponse à mes questions, je suis bloqué, pour imputer une couleur à une cellule, je m'explique,

Dans un tableau j'ai 3 matières (géo, art et sport) et 5 notes. Les notes vont de A à E. J'aimerai sans passer par "mise en forme conditionnelle" donner une couleur à la cellule contenant les notes. par exemple si pour le note 1 j'obtiens un A j'aimerai que la cellule devienne bleu foncée tout en gardant la note, ici un A

Merci de votre aide :)

Le classeur excel :
Pièce jointe 165457
06/01/2015, 14h11
Ltspitfire
Bonjour,

Utilise le code suivant pour changer de couleur la cellule en fonction de la valeur qui se trouve à l'interieur :
Code:

1 2 3 4 5 6 7 If ActiveCell.Value = A Then ActiveCell.Interior.ColorIndex = 35 End If If ActiveCell.Value = B Then ActiveCell.Interior.ColorIndex = 25 End If
Cordialement,
Ltspitfire
06/01/2015, 14h16
bertrandmal

Merci pour la rapidité,

Cependant étant novice en VBA, je dois appliquer le code dans une macro ? directement en VBA?

Re,

Dans le This_Worbook tu inserts le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
Dim FL1 As Worksheet, Cell As Range 
    Set FL1 = Worksheets("Feuil1") 
    With FL1 
         For Each Cell In .UsedRange 
          If Cell.Value = a Then
             Cell.Interior.ColorIndex = 15
          End If
 
         If Cell.Value = b Then
             Cell.Interior.ColorIndex = 10
           End If 
        Next 
    End With 
    Set FL1 = NoThing 
End Sub

Cordialement,
Ltspitfire

06/01/2015, 14h57
bertrandmal

Merci beaucoup pour ton aide,

je n'arrive pas encore à exécuter le programme, mais ça va venir ^^

Cordialement,
Bertrandmal
06/01/2015, 15h08
MarcelG

CHOIX DE COULEUR

Bonjour à vous Bonjour le Forum,

Mes meilleurs voeux à toute la communauté pour 2015!

Je pense que la méthode

Code:

Select Case

est la plus appropriée.
Elle est facilement gérable car plus claire.
06/01/2015, 15h10
Ltspitfire

Re Bertrandmal,

J'ai oublier quelque chose d'important j'ai test chez moi et cela fonctionne.

Remplace

Code:

Cell.Value = a

Par

Code:

Cell.Value = "a"

et pareil pour le deuxième.

Cordialement,
Ltspitfire
06/01/2015, 15h17
bertrandmal

Oui merci , j'avais fait ce changement :)

C'est bon tout fonctionne,

encore merci pour le temps consacré.

BertrandMal

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Worksheet_Change(ByVal Target As Range)
majColor Target
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
majColor Target
End Sub
 
Sub majColor(ByVal Target As Range)
Dim I As Long
For I = 1 To Target.Count
With ActiveSheet.Range(Target(I).Address).Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
    Select Case UCase(Trim("" & Target(I).Value))
        Case "A"
            .ColorIndex = 41
        Case "B"
            .ColorIndex = 42
        Case "C"
        .ColorIndex = 43
        Case "D"
            .ColorIndex = 15
        Case "E"
            .ColorIndex = 46
    End Select
End With
Next
End Sub

Salut, et merci pour ta confirmation Rdurupt.

Qui plus est, la méthode

Code:

Select Case

permets de gérer ici plusieurs valeurs pour une même couleur

Une astuce pour avoir le tableau de toutes les couleurs (de SilkyRoad je crois)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Option Explicit Public Sub essai_couleur() Dim i As Byte Application.ScreenUpdating = False For i = 1 To 56 With Worksheets(1).Cells(i, 1) .Value = .Row .Offset(0, 1).Interior.ColorIndex = .Value End With Next i End Sub