Discussion :

[canary]

Bonjour,

Avec le code ci-dessous, j'arrive à mettre une ligne en couleur suivant ce que je choisi dans une liste déroulante :

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)
    If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
        On Error Resume Next
        Select Case Target.Value
            Case Range("C1")
                Rows(Target.Row).Interior.Color = Range("C1").Interior.Color
            Case Range("C2")
                Rows(Target.Row).Interior.Color = Range("C2").Interior.Color
            Case Range("C3")
                Rows(Target.Row).Interior.Color = Range("C3").Interior.Color
            Case Range("C4")
                Rows(Target.Row).Interior.Color = Range("C4").Interior.Color
        End Select
    End If
End Sub

Mon problème (très gênant!) est le suivant :
Lorsque par exemple j'ai 3 lignes de couleurs (voir le fichier joint), et que je décide de supprimer la ligne 2, alors la ligne 3 perd sa couleur et redevient blanche.
Auriez-vous une solution pour quelle garde sa couleur initiale ?

De plus, vous remarquerez que le CTRL+Z juste après avoir supprimer la ligne, ne fonctionne plus ! Encore un mystère que je ne sais élucider et qui me gêne beaucoup également.

Merci pour votre aide !