Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Worksheet_Change(ByVal Target As Range) If (Target.Column = 2) Then MsgBox "test" Debug.Print Target.Column If (Target.Rows <Application.WorksheetFunction.Sum(CInt(Left(Col_Scan, 5) Range("E1").Value))) Then Cells(Target.Rows, 5) = Now Else Cells(Target.Rows, 5) = "" End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo EndLine If (Target.Column = 1 And Target.Value <> "") Then Select Case UCase(Mid(Target.Value, 1, 5)) Case UCase(Range("C1")) Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Value = Now Case UCase(Range("D1")) Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4).Value = Now Case Else End Select End If EndLine: End Sub
Range("B" & Target.Row).Value = Now