Bonjour,

Dans le code qui suit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Cells.Interior.ColorIndex = 2 'xlColorIndexNone
   If Not Intersect([C9:L100], Target) Is Nothing And Target.Count = 1 Then
      [C9:L100].Interior.ColorIndex = xlNone
      Range(Cells(1, Target.Column), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 37
      Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 37
   End If
Comment adapter ce code pour que la couleur du motif :
- ne soit pas appliquée à la cellule active.
- affecte la première cellule de la ligne (et non toute la ligne)
- affecte les 3 premières cellules de la colonne (et non toute la colonne) ?
Merci pour votre aide,
jpma75