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
A voir également:
- MACRO mention date et heure quand modification de 2 cellules
- Suivi de modification word - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Fusionner 2 cellules excel - Guide
- Changement d'heure - Guide
2 réponses
Bonjour,
Une facon de faire:
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
