VBA - Insérer date par double clics

Bonjour,

J'ai ce code qui fonctionne qu'à moitié; l'incrémentation de la date fonctionne bien mais l'insertion de la date du jour (ElseIf) et la suppression de la date (Else) ne fonctionnent pas.

    'Pour incrémenter la date ou insérer la date du jour par double clics
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Cancel = True
        If Target = "" And Target - 1 <> "" Then
        Target = Target(0, 1) + 1
        ElseIf Target = "" And Target - 1 = "" Then
        Target = Target(Now, "dd.mm.aaaa")
        Else
        Target = ""
        End If
    End If

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

Bonjour,
Merci de joindre un petit fichier et de préciser ce que souhaites réaliser.
Cdlt.

Bonjour,

Voici un essai où la date de référence est celle présente dans la cellule au-dessus (avant) :

    'Pour incrémenter la date ou insérer la date du jour par double clics
    If Not Intersect(Target, Range("B:B")) Is Nothing and target.row > 1 Then
        Cancel = True
        If Target = "" And Target.offset(-1, 0) <> "" Then
            Target = Target.offset(-1, 0) + 1
        ElseIf Target = "" And Target.offset(-1, 0) = "" Then
            Target = format(Now, "dd.mm.aaaa")
        Else
            Target = ""
        End If
    End If

Cdlt,

Bonjour 3GB,

Votre code fonctionne à merveille. Juste mettre yyyy à la place de aaaa sinon c'est parfait !

Merci beaucoup pour votre aide.

Meilleures salutations,

Thierry