Public Anciennevaleur As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Anciennevaleur = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim hrs, sem As Variant
MsgBox (Target.Cells)
Select Case Target.Column
Case 46
If Target.Value <> Anciennevaleur Then
Call UpdateTableauFinition
End If
Case 47, 49, 51, 53, 55, 57
' si la valeur a changé
If Target.Value <> Anciennevaleur Then
'Si on a une heure de définie
hrs = Worksheets("PDP").Cells(Target.row, Target.Column + 1).Value
sem = Worksheets("PDP").Cells(Target.row, 46).Value
If hrs <> "" And hrs <> 0 And sem <> "" And sem <> 0 Then
Call UpdateTableauFinition
End If
End If
Case 48, 50, 52, 54, 56, 58
Call UpdateChamp(Target)
End Select
End Sub