Discussion :

[canary]

Bonjour,

Je sais fixer la couleur d'une ligne en fonction de ce que je choisi dans une liste déroulante.
Maintenant, je souhaiterai mettre la ligne de la même couleur que la cellule dans la liste déroulante...

Voici mon code de départ :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
    'Listes deroulantes dans la colonne J
    If Not Application.Intersect(Target, Range("J:J")) Is Nothing Then
        On Error Resume Next
        Select Case Target.Value
            Case "" 'CASE vide par defaut BLANC
                Rows(Target.Row).Interior.Color = RGB(255, 255, 255)
            Case "CASE1" 'CASE 1 BLEU CLAIR
                Rows(Target.Row).Interior.Color = RGB(0, 175, 240)
            Case "CASE2" 'CASE 2 ROSE
                Rows(Target.Row).Interior.Color = RGB(230, 185, 185)
        End Select
    End If
End Sub

Comment est-ce que je peux faire pour ne pas fixer la couleur dans le code, mais que ça recopie la couleur initiale de la cellule ?

Si je ne suis pas claire, n'hésitez pas à me le préciser.

Merci à tous par avance!

[Bear the french]

Bonjour,

Qu'est ce que tu appelles "la couleur initiale de la cellule" ?

Si tu as un fichier en exemple...

Bertrand

[canary]

Bonjour,

Voici un exemple en PJ.

En fait, dans le code j'ai fixé les couleurs bleu clair et rose.
Mon problème est que si je décide de changer ces couleurs, ça ne marche plus... donc je suppose que le plus simple est de ne pas fixer la couleur mais bien de recopier celle de la cellule en question.

Merci par avance !

[Bear the french]

Bonjour,

Une mise en forme conditionnelle me parait plus simple dans le cas présent :



As tu besoin de coder cette instruction en VBA ?

Bertrand

[canary]

oui en effet j'avais pensé à la mise en forme conditionnelle, mais je suis obligé de passer par VBA.

En somme, il s'agit de recopier la mise en forme de la cellule.

Auriez-vous une idée ?

Merci !

[canary]

Voici la solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("J:J")) Is Nothing Then
        On Error Resume Next
        Select Case Target.Value
            Case Range("B1")
                Rows(Target.Row).Interior.Color = Range("B1").Interior.Color
            Case Range("B2")
                Rows(Target.Row).Interior.Color = Range("B2").Interior.Color
    End If
End Sub