MACRO mention date et heure quand modification de 2 cellules Résolu

Question

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!


Configuration: Windows / Chrome 88.0.4324.150

f894009 · Answer

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

vivi21 · Answer

Ca fonctionne!!
Top, merci beaucoup

MACRO mention date et heure quand modification de 2 cellules

2 réponses

Discussions similaires

Newsletters