Discussion :

[canary]

Bonjour,

Je souhaite mettre une ligne en couleur en fonction de l'élément choisi dans une liste déroulante.
Ma liste déroulante est dans la cellule A20.
Elle contient 5 lignes "Etats 1", "Etats 2", "Etats 3", "Etats 4", "Etats 5".
En français, j'aimerai réaliser ceci :
Si A20 = "Etats 1" alors ligne 20 en rouge
Si A20 = "Etats 2" alors ligne 20 en bleu
etc...

Voici mon code qui pose problème :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub ListeDeroulanteCouleurs()
If A20.Value = "Etats 1" Then
Rows(20).Interior.ColorIndex = 3
End If
If A20.Value = "Etats 2" Then
Rows(20).Interior.ColorIndex = 5
End If
End Sub

Je suppose que ma syntaxe n'est pas correcte. Pourriez-vous svp m'aider?
Merci !

[AlphaScorpi]

Il faut passer par l'evenement Worksheet_Change

A placer dans la feuille ou tu as ta liste de choix

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 Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$20" Then
        Select Case Range("A20").Value
            Case "Etats 1"
                Rows(20).Interior.ColorIndex = 3
            Case "Etats 2"
                Rows(20).Interior.ColorIndex = 5
            Case "Etats 3"
                Rows(20).Interior.ColorIndex = 7
            Case "Etats 4"
                Rows(20).Interior.ColorIndex = 9
            Case "Etats 5"
                Rows(20).Interior.ColorIndex = 11
        End Select
    End If
 
End Sub

[LimsWolf]

Bonjour,
effectivement il y a quelques problèmes, essai ceci :

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Select Case Range("A20")
        Case "etat 1"
            Range("20:20").Interior.Color = RGB(255, 0, 0)
        Case "etat 2"
            Range("20:20").Interior.Color = RGB(0, 255, 0)
        Case "etat 3"
            Range("20:20").Interior.Color = RGB(0, 0, 255)
        Case "etat 4"
            Range("20:20").Interior.Color = RGB(255, 255, 0)
        Case "etat 5"
            Range("20:20").Interior.Color = RGB(255, 0, 255)
        Case Else
            Exit Sub
    End Select
 
End Sub

Couleur à adapter.

[canary]

ça marche nickel !
Merci !

Est-ce que vous savez s'il existe une "librairie" qui fait la liste exhaustive de toutes les variables (.Font .name......) ? un peu comme celle de java qui explique toutes les fonctions et paramètres ?

[LimsWolf]

F2 quand tu es dans vba et tu cherche ce que tu veux.

[canary]

ok, c'est noté pour le F2 merci

J'ai une suite à mon problème...

J'ai donc pour le moment ce code qui marche très bien pour une liste déroulante dans la cellule A20 :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Select Case Range("A20")
        Case "Etats 1"
            Range("20:20").Interior.Color = RGB(255, 0, 0)
        Case "Etats 2"
            Range("20:20").Interior.Color = RGB(0, 255, 0)
        Case "Etats 3"
            Range("20:20").Interior.Color = RGB(0, 0, 255)
        Case "Etats 4"
            Range("20:20").Interior.Color = RGB(255, 255, 0)
        Case "Etats 5"
            Range("20:20").Interior.Color = RGB(255, 0, 255)
        Case Else
            Exit Sub
    End Select
 
End Sub

Maintenant j'ai besoin de mettre une liste déroulante sur 10 lignes de la colonne A.
Le souci est donc de mettre la ligne correspondant à la liste déroulante en couleur.
Je suppose qu'il va falloir passer par une boucle ?

Merci pour votre aide

[AlphaScorpi]

Voici le code adapté pour etre valable de la ligne 1 à la ligne 20

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 Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("$A$1:$A$20")) Is Nothing Then
        Select Case Target.Value
            Case "Etats 1"
                Rows(Target.Row).Interior.ColorIndex = 3
            Case "Etats 2"
                Rows(Target.Row).Interior.ColorIndex = 5
            Case "Etats 3"
                Rows(Target.Row).Interior.ColorIndex = 7
            Case "Etats 4"
                Rows(Target.Row).Interior.ColorIndex = 9
            Case "Etats 5"
                Rows(Target.Row).Interior.ColorIndex = 11
        End Select
    End If
 
End Sub

[canary]

Super, et sans boucle en plus, je préfère merci !