Problème date sans mise à jour VBA Excel
Bonjour,
J'ai essayé un codage pour que:
Si je renseigne A, la date du jour s'affiche et reste figée dans B (quand je supprime le contenu de A, le contenu de B doit disparaitre)
Si je renseigne AH, la date du jour s'affiche et reste figée dans AK (quand je supprime le contenu de AH, le contenu de AK doit disparaitre)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim h, iSct As Range
Set iSct = Intersect(Target, Range("A:A"))
If iSct Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each h In iSct.Cells
If IsEmpty(h) Then
h.Offset(0, 1) = ""
Else
h.Offset(0, 1) = Format(Now, "mm/dd/yy")
End If
Next
Application.EnableEvents = True
Set iSct = Intersect(Target, Range("AH:AH"))
If iSct Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each h In iSct.Cells
If IsEmpty(h) Then
h.Offset(0, 3) = ""
Else
h.Offset(0, 3) = Format(Now, "mm/dd/yy")
End If
Next
Application.EnableEvents = True
End Sub
Le problème est que le code ne fonctionne que la première sequence et je ne parviens pas à avoir de résultat pour AH;
Merci pour votre coup de main.