Signaler

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

Posez votre question CNdl - Dernière réponse le 19 mai 2017 à 10:39 par 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 :)


Afficher la suite 
Utile
+1
plus moins
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é ?  
CNdl- 18 mai 2017 à 17:35
C'est parfait, merci :)
Répondre
CNdl- 19 mai 2017 à 10:39
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 !
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !