XL 2016 VBA date

cmalifarge

XLDnaute Nouveau
Bonsoir,
Je dois compléter un fichier par une macro qui aurait pour fonction quand j'inscris "X" dans une cellule quelconque de la colonne A d'inscrire la date du jour dans la cellule correspondante de la colonne B. voir exemple dans le fichier joint.
Merci par avance de l'aide et du temps que vous pourriez m'accorder.
Bonne soirée (au coin du feu)
 

Pièces jointes

  • test.xlsx
    7.9 KB · Affichages: 4

ChTi160

XLDnaute Barbatruc
Bonsoir cmalifarge

Une approche perfectible
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
 If Target.Value = "x" Then Target.Offset(0, 1) = Date
End If
End Sub
Voir Fichier !
Bonne soirée
Jean marie
 

Pièces jointes

  • test (Chti160).xlsm
    13.8 KB · Affichages: 5

Discussions similaires

Réponses
4
Affichages
491