MACRO mention date et heure quand modification de 2 cellules
Résolu
vivi21
-
vivi21 -
vivi21 -
Bonjour,
Je suis novice en VBA mais après quelques recherches j'ai trouvé une macro qui permet de mentionner la date et l'heure dans la cellule C quand A est modifié.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
With Target.Offset(0, 27)
.Value = Now
.NumberFormat = "dd/mm/yy hh:mm"
End With
End Sub
Cela marche très bien mais je voudrais maintenant également lui dire quand quand B est modifié, la date et l'heure se mentionne dans la cellule D.
Comment combiner les 2?
Merci d'avance pour vos conseils éclairés!
Je suis novice en VBA mais après quelques recherches j'ai trouvé une macro qui permet de mentionner la date et l'heure dans la cellule C quand A est modifié.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
With Target.Offset(0, 27)
.Value = Now
.NumberFormat = "dd/mm/yy hh:mm"
End With
End Sub
Cela marche très bien mais je voudrais maintenant également lui dire quand quand B est modifié, la date et l'heure se mentionne dans la cellule D.
Comment combiner les 2?
Merci d'avance pour vos conseils éclairés!
Configuration: Windows / Chrome 88.0.4324.150
2 réponses
-
Bonjour,
Une facon de faire:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then With Range("C" & Target.Row) .Value = Now .NumberFormat = "dd/mm/yy hh:mm" End With ElseIf Not Application.Intersect(Target, Range("B:B")) Is Nothing Then With Range("D" & Target.Row) .Value = Now .NumberFormat = "dd/mm/yy hh:mm" End With End If End Sub -
