Macro : Ajouter date lorsqu'une cellule est remplie [Résolu/Fermé]

Signaler
-
 CNdl -
Bonjour,

Et merci de vous arrêter sur mon pb.

J'ai deux colonnes A et B.
Ma colonne A peut être vide ou contenir "Yes"
Ma colonne B doit contenir la date du jour lorsque la colonne A contient "Yes"

Je souhaite qu'à chaque fois que je rajoute "Yes" à une cellule de la colonne A, la date du jour se mette en face dans la colonne B.

Pour le moment j'ai bricolé ça mais ça n'est pas super...

----------------------------------------------------------------------------
Sub Date_Validation()

Dim Derlig As Long
Derlig = Range("B" & Rows.Count).End(xlUp).Row

If Not IsEmpty(Cells(Derlig, "B")) Then
Select Case Cells(Derlig, "B")
Case Is = "Y"

Cells(Derlig, "C") = Format(Now, "dd/mm/yy")
End Select
Else
Exit Sub
End If
End Sub

----------------------------------------------------------------------------
MERCi :)


1 réponse

Messages postés
4148
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 243
Bonjour

Code à tester avec le yes en colonne 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End If
End Sub

Cordialement
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57415 internautes nous ont dit merci ce mois-ci

C'est parfait, merci :)
Une petite suggestion :)
Est il possible d'ajouter une sorte de "sécurité" disant que si la case de la colonne B est non vide, l'action de ne fait pas ?
Pour éviter d'écraser une ancienne date ?

Merci !