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

CNdl - 18 mai 2017 à 16:55 - Dernière réponse :  CNdl
- 19 mai 2017 à 10:39
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 :)


Afficher la suite 

3 réponses

Répondre au sujet
jc80 3956 Messages postés mardi 5 février 2013Date d'inscription 20 janvier 2018 Dernière intervention - 18 mai 2017 à 17:31
+1
Utile
2
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
Cette réponse vous a-t-elle aidé ?  
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 !
Commenter la réponse de jc80