Dim Contenu As String Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address "$A$1" Then Range("A1") Contenu End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address "$A$1" Then Contenu Range("A1").Text End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Day(Now) = 23 Then application.enableevents = false application.undo application.enableevents = true End if End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Contenu As String Private Sub Worksheet_Change(ByVal Target As Range) If Day(Now) = 23 Then Exit Sub If Target.Address "$A$1" Then Range("A1") Contenu End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address "$A$1" Then Contenu Range("A1").Text End Sub