Colorer cases sur plusieur ligne selon condition

Bonjour,

tout d'abord , désolé si je poste un sujet déjà évoquer plusieur fois. J'ai trouvé pas mal d'info mais je n'arrive a comprendre comment l'appliquer a mon soucis.

Donc voila mon soucis :

Je suis sur Excel 2003

Je souhaite colorer des cases sur une ligne en fonction d'une des cases de celle-ci.

Jusque là, j'arrive.

Mon code consiste a colorer les cases B1 à E1 quand j'ai la condition E1="D" et je souhaite le faire sur les ligne de 1 à 999

Là ou je bloc c'est pour le faire sur une plage de ligne !

Private Sub couleur_auto()
  If Range("E1").Value = "D" Then
  Range("B1:E1").Interior.ColorIndex = 34
  End If
End Sub
-----------------------------------------------------
Private Sub Workbook_Open()
couleur_auto
End Sub

J'ai fais en sorte que la macro se lance a l'ouverture du fichier excel, d'ailleur c'est possible de faire en sort quel se lance des qu'il y a une modification dans une case de la feuille ? Sinon je rajouterai un raccourci pour la lancer rapidement.

Merci d'avance

Harissa

Bonjour

Pas besoin de la lancer à l'ouverture, celle-ci, à placer dans le module de la feuille, sera exécutée à chaque modification d'une cellule de E1 à E999

Clic droit sur l' onglet de la feuille ---> Visualiser le code

Ensuite tu fais un copier/coller de cette macro

Private Sub Worksheet_Change(ByVal Target As Range)
  ' Zone 'surveillée" E1:E999
  If Not Intersect(Range("E1:E999"), Target) Is Nothing And Target.Count = 1 Then
    If Target = "D" Then
      Range("B" & Target.Row & ":E" & Target.Row).Interior.ColorIndex = 34
    Else
      Range("B" & Target.Row & ":E" & Target.Row).Interior.ColorIndex = xlNone
    End If
  End If
End Sub

Merci bien Banzai64 !

C'est tout a fait ce dont j'avais besoin. tant pour la code que pour son exécution.

Cordialement.

Harissa