Discussion :

[bertrandmal]

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 :
cellule colorée.xlsx

[Ltspitfire]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bertrandmal]

Merci pour la rapidité,

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

[Ltspitfire]

Re,

Dans le This_Worbook tu inserts le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bertrandmal]

Merci beaucoup pour ton aide,

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

Cordialement,
Bertrandmal

[MarcelG]

Bonjour à vous Bonjour le Forum,

Mes meilleurs voeux à toute la communauté pour 2015!

Je pense que la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case

est la plus appropriée.
Elle est facilement gérable car plus claire.

[Ltspitfire]

Re Bertrandmal,

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

Remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cell.Value = a

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cell.Value = "a"

et pareil pour le deuxième.

Cordialement,
Ltspitfire

[bertrandmal]

Oui merci , j'avais fait ce changement

C'est bon tout fonctionne,

encore merci pour le temps consacré.

BertrandMal

[Invité]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Salut, et merci pour ta confirmation Rdurupt.

Qui plus est, la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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