Affichage de la date si la cellule n'est pas vide

[adidu44]

Bonjour,

j'ai trouvé un code qui quand je clique sur la cellule de la colonne A, la cellule de la colonne C affiche la date.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And Target.Offset(0, 1) = "" Then
Target.Offset(0, 2) = Format$(Date, "dd/mm/yy")
End If
End Sub

Mais je trouve que la technique n'est pas super et cela peut changer les dates par la suite si l'on clique dessus.
Mais je n'arrive pas à modifier le code afin que la date s'affiche que lorsque la cellule n'est pas vide, je veux que l'on saisisse quelque chose dedans pour afficher la date.

Merci d'avance

Adidu44

PS: ci-joint un fichier schématisant le

 

[Kiseki]

Re : Affichage de la date si la cellule n'est pas vide

Bonjour,

Je ne comprend pas très bien, un :

=SI(A1="";"Indiqué une date";AUJOURDHUI())

Au format Date.


Ne suffirait pas ?

 

[JCGL]

Re : Affichage de la date si la cellule n'est pas vide

Bonjour à tous,

Peux-tu essayer avec :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
Cells(Target.Row, 3).Value = Format(Date, "dd mmm yyyy")
End If
End Sub

A + à tous

 

[Grand Chaman Excel]

Re : Affichage de la date si la cellule n'est pas vide

Bonjour,
un essai avec ceci peut-être:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Value <> "" And Target.Offset(0, 2) = "" Then
        Target.Offset(0, 2) = Format$(Date, "dd/mm/yy")
    End If
End Sub

A+

 

[JCGL]

Re : Affichage de la date si la cellule n'est pas vide

Bonjour à tous,

Kiseki : il se trouve que demain sera aussi un aujourd'hui...

A + à tous

 

[adidu44]

Re : Affichage de la date si la cellule n'est pas vide

Le code de JCGL correspond totalement à ce que je cherche.
Merci à vous tous pour vos réponses.

Adidu44