MACRO mention date et heure quand modification de 2 cellules

Résolu/Fermé

vivi21 - 11 févr. 2021 à 11:08
vivi21 - 11 févr. 2021 à 11:27

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

A voir également:

MACRO mention date et heure quand modification de 2 cellules
Suivi de modification word - Guide
Logiciel modification pdf - Guide
Macro word - Guide
Excel additionner des cellules - Guide
Fusionner 2 cellules excel - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 févr. 2021 à 11:22

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

Réponse 2 / 2

vivi21
11 févr. 2021 à 11:27

Ca fonctionne!!
Top, merci beaucoup

Discussions similaires

Pix

Problème Whatsapp - "La date est incorrecte"

Je tiens combien de temps avec 2Go d'internet ?

Connaitre la date d'une photo.

Discussions similaires

Newsletters