Discussion :

[fransix]

Bonjour

C'est bien désolé que je fais appel à nouveau à la communauté. Hervé m'a proposé une soluce pour répondre à mon besoin de colorier des cellules si conditions, force est de constater que ça marche parfaitement et je l'en remercie. Sauf que je me suis bien mal exprimé et réjouis un peu trop vite.
En fait je souhaite colorier une cellule qui fait référence à une autre cellule située sur le même feuillet (nommé tableau de bord dans l'exemple), qui elle même fait fait référence à une BdD située sur une autre feuille.
J'ai beau essayé !, mais dans ma cellule finale ne s'affiche que le résultat sans couleur ...
Je joins un exemple avec la macro d'Hervé
Merci de votre aide et de votre compréhension
Fransix

[Daniel.C]

Bonjour,

Dans le module de la feuille "base de données", j'ai mis :

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)
    If Target.Column = 2 Then
    Colorer
    End If
End Sub
Sub Colorer()
    Dim Plage As Range
    With Sheets("tableau de bord")
        Set Plage = Union(.Range("G3"), .Range("I3"), .Range("K3"), .Range("M3"), .Range("O3"))
    End With
    For Each Cel In Plage
        With Cel
           Select Case .Value
               Case Is = 1
                   .Interior.ColorIndex = 5 'bleu
               Case 0.6 To 1
                   .Interior.ColorIndex = 27 'jaune
               Case 0.3 To 0.6
                   .Interior.ColorIndex = 4 'vert
               Case 0.1 To 0.3
                   .Interior.ColorIndex = 9 'brun
               Case Is < 0.1
                   .Interior.ColorIndex = 3 'rouge
               Case Else
                   .Interior.ColorIndex = xlNone 'sans couleur
           End Select
        End With
    Next Cel
 
End Sub

Regarde le classeur en PJ.

[fransix]

Super !

Merci Daniel pour ton aide précieuse et merci également à tous les membres du forum

Re bonjour

La macro proposée par Daniel fonctionne parfaitement sur le fichier test mais je souhaite maintenant l'adapter au cas réél :
- la cellule à colorier est en F40 du feuil "tableau de bord" (les autres sont en F45 I40 I45 L45 L40 et 045)
- elle fait référence à la cellule C98 du même feuillet (puis F45 =C99 / I40 =C100 / I45 =C101 / L45=C102 / L40=C103 et 045= C104)
- cette cellule C98 fait référence à la cellule M 424 de la feuil "base de données" (puis en suivant C99= M428 / C100 =M431 /C101 =M433 / C102=M438 /C103=M440 et C104= M442)
Comment modifier la macro en conséquence ?
J'essaie vainement sans succès

[Daniel.C]

Tu aurais mis directement le cas réel, tu m'évitais du travail

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
31
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Union([M424], [M428], [M431], [M433], [M438], [M440], [M442])) Is Nothing Then
        Colorer
    End If
End Sub
Sub Colorer()
    'C98 du même feuillet (puis F45 =C99 / I40 =C100 / I45 =C101 / L45=C102 / L40=C103 et 045= C104)
    Dim Plage As Range
    With Sheets("tableau de bord")
        Set Plage = Union(.Range("F40"), .Range("F45"), .Range("I40"), .Range("I45"), .Range("L40"), .Range("L45"), .Range("O45"))
    End With
    For Each cel In Plage
        With cel
           Select Case .Value
               Case Is = 1
                   .Interior.ColorIndex = 5 'bleu
               Case 0.6 To 1
                   .Interior.ColorIndex = 27 'jaune
               Case 0.3 To 0.6
                   .Interior.ColorIndex = 4 'vert
               Case 0.1 To 0.3
                   .Interior.ColorIndex = 9 'brun
               Case Is < 0.1
                   .Interior.ColorIndex = 3 'rouge
               Case Else
                   .Interior.ColorIndex = xlNone 'sans couleur
           End Select
        End With
    Next cel
 
End Sub

[fransix]

Merci Daniel , je suis désolé mais je pensais que le cas réél était plus difficile à exposer ... et je pensais aussi pouvoir adapter la macro ... mais là y encore du travail mais je ne désespère pas.
Ultime question !, dans le cas de la macro elle prend en compte un chiffre tapé manuellement sur la cellule initiale (base de données exemple M424), apparemment ça ne fonctionne pas si il y a le résultat d'une formule dans cette cellule.
Merci pour ton aide

[Daniel.C]

Non, ça ne fonctionne pas. Enlève alors les macros du module de la feuille "base de données" et mets les macros suivantes dans celui de la feuille "tableau de bord" :

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_Calculate()
    Colorer
End Sub
 
Sub Colorer()
    'C98 du même feuillet (puis F45 =C99 / I40 =C100 / I45 =C101 / L45=C102 / L40=C103 et 045= C104)
    Dim Plage As Range
    With Sheets("tableau de bord")
        Set Plage = Union(.Range("F40"), .Range("F45"), .Range("I40"), .Range("I45"), .Range("L40"), .Range("L45"), .Range("O45"))
    End With
    For Each cel In Plage
        With cel
           Select Case .Value
               Case Is = 1
                   .Interior.ColorIndex = 5 'bleu
               Case 0.6 To 1
                   .Interior.ColorIndex = 27 'jaune
               Case 0.3 To 0.6
                   .Interior.ColorIndex = 4 'vert
               Case 0.1 To 0.3
                   .Interior.ColorIndex = 9 'brun
               Case Is < 0.1
                   .Interior.ColorIndex = 3 'rouge
               Case Else
                   .Interior.ColorIndex = xlNone 'sans couleur
           End Select
        End With
    Next cel
 
End Sub