Problème de couleur de fond sur une ligne (VBA)

Bonjour,

Dans le tableau que vous trouverez en fichier joint, j'essaye de faire en sorte que la ligne prenne une couleur en fonction de la valeur d'une cellule en colonne E (Basic; Medium.....).

Dans mon code VBA, il est vrai que c'est l'EntireRow qui prend la couleur de fond.

En fait, je souhaiterai que ce soit uniquement la ligne de la colonne B à O qui prenne la couleur de fond et non toute la ligne.

Merci de vos réponses.

Cordialement.

Rebonjour,

Le ficier joint est trop gros.

Voici lecode VBA.

Cordialement.

JFX.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

Dim rIntersect As Range

Set rIntersect = Intersect([E:E], Target)

If Not rIntersect Is Nothing Then

For Each c In rIntersect

Select Case c.Value

Case Is = "Basic"

c.EntireRow.Interior.Color = &HFFFF00

Case Is = "Medium"

c.EntireRow.Interior.Color = &HFFFF&

Case Is = "Premium"

c.EntireRow.Interior.Color = &HFF00&

Case Is = "Access"

c.EntireRow.Interior.Color = &H80C0FF

Case Is = "Net"

c.EntireRow.Interior.Color = &HFFFFC0

Case Is = "Mix"

c.EntireRow.Interior.Color = &HFFC0C0

End Select

Next

End If

End Sub

Rebonjour,

Vous trouverez le fichier en pièce jointe et zippé.

Cordialement.

Bonjour

En utilisant ColorIndex à la place de Color

Private Sub Worksheet_Change1(ByVal Target As Range)
Dim Cel As Range
  If Not Intersect(Range("E:E"), Target) Is Nothing Then
    For Each Cel In Target
      With Range("B" & Cel.Row & ":O" & Cel.Row)
        .Interior.ColorIndex = Switch(Cel = "Basic", 8, _
                               Cel = "Medium", 6, _
                               Cel = "Premium", 4, _
                               Cel = "Access", 40, _
                               Cel = "Net", 34, _
                               Cel = "Mix", 39, _
                               Cel = "", xlNone)
      End With
    Next Cel
  End If
End Sub

Bonjour Banzai64,

Merci de ton aide précieuse.

Le code fonctionne à merveille.

Cordialement.

JFX.