Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
If Target.Value = "" Then
Range("B1").Value = ""
Else
Range("B1").Value = Format(Date, "dd/mm/yyyy")
End If
End Sub
Cependant faut-il le mettre sur chaque feuille ou peut-on mettre le même code sous "Workbook_" afin qu'il soit saisie sur toutes les feuilles
Re : Evenement Worksheet_Change sur toutes les feuilles
Bonjour, winxpfam, le Forum,
Le code doit être placé dans ThisWorkbook :
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
If Target.Value = "" Then
Range("B1").Value = ""
Else
Range("B1").Value = Format(Date, "dd/mm/yyyy")
End If
End Sub
Re : Evenement Worksheet_Change sur toutes les feuilles
Re-bonjour,
Peut-être ainsi :
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Value <> "" Then Target.Offset(0, 1).Value = Format(Date, "dd/mm/yyyy")
End If
End Sub