Discussion :

[jpma75]

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

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
If Not Intersect([C9:L100], Target) Is Nothing And Target.Count = 1 Then
    Range("A" & Target.Row).Interior.ColorIndex = 37
    Cells(1, Target.Column).Resize(3, 1).Interior.ColorIndex = 37
End If
End Sub

[jpma75]

Parfait ! Merci Mercatog !