Re : Plage
C'est ce que je cherchais par contre est il possible d'integrer le code avec d'autres codes situées dans la meme feuille et comment.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = Range("c8:y2007")
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
champ.Interior.ColorIndex = xlNone
col1 = champ.Column
col2 = col1 + champ.Columns.Count - 1
Range(Cells(Target.Row, col1), Cells(Target.Row, col2)).Interior.ColorIndex = 4
Dim plg
Set plg = Intersect(Rows(Target.Row), Range("c8:c2007"))
If Target.Rows.Count = 1 And Not plg Is Nothing Then [b1].Value = plg.Value
Application.GoTo Reference:=Worksheets(ActiveSheet.Name).Range(ActiveCell.Address), Scroll:=True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target > "" Then
Target.Offset(0, 2) = Now()
Else
Target.Offset(0, 2) = ""
End If
End Sub