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

Signaler
-
 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!


Configuration: Windows / Chrome 88.0.4324.150

2 réponses

Messages postés
15612
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 février 2021
1 460
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
Ca fonctionne!!
Top, merci beaucoup