XL 2010 VBA - Insérer date/vider cellule par double clics

[tchi456]

Bonjour,

Je suis pas fichu de trouver la solution pour pouvoir vider la cellule si la date s'y trouve avec ce code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("K1 , P32")) Is Nothing Then
        Cancel = True
        If Target.Range("K1 , P32") = "" Then
            Target = Format(Now, "dd.mm.yyyy")
        Else
            Target = ""
        End If
    End If

End Sub

Pouvez-vous aider ? Je sais ça va faire sourire certains...

Meilleures salutations,

Thierry

 

[vgendron]

Bonjour
essaie avec ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("K1 , P32")) Is Nothing Then 'UNIQUEMENT pour les cellules K1 et P32
    'If Not Intersect(Target, Range("K1:P32")) Is Nothing Then 'POUR TOUTE la zone définie entre K1 et P32
        Cancel = True
'        If Target = "" Then
'            Target = Format(Now, "dd.mm.yyyy")
'        Else
'            Target = ""
'        End If
        Target = IIf(Target = "", Format(Now, "dd.mm.yyyy"), "") 'équivalent au if then else du dessus
    End If

End Sub

 

[tchi456]

Bonjour vgendron,

Merci pour votre code mais je n'y arrive tjrs pas:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("K1 , P32")) Is Nothing Then 'UNIQUEMENT pour les cellules K1 et P32
            Cancel = True
        Target = IIf(Target = "", Format(Now, "dd.mm.yyyy"), "") 'équivalent au if then else du dessus
    End If
End Sub

Serait-ce le fait que mes cellules K1 et P32 sont fusionnées avec la cellule de droite?

Meilleures salutations,

Thierry

 

[vgendron]

Serait-ce le fait que mes cellules K1 et P32 sont fusionnées avec la cellule de droite?

Surement...

peux tu mettre un fichier exemple sur lequel travailler

 

[tchi456]

Effectivement avec le fichier exemple ce sera plus compréhensible.

Bon début de semaine.

 

[Phil69970]

Bonjour @tchi456 , @vgendron

Je te propose ce fichier :

*Merci de ton retour

@Phil69970

 

[tchi456]

Bonjour Phil69970,

C'est exactement ce que je recherchais.
Merci beaucoup pour votre aide.

Bonne journée à vous!

 

[Phil69970]

@tchi456

Tu as fais une erreur de clic pourtant il n'y avait pas de date dans la cellule 🤣
Il n'est pas trop tard pour modifié cela 😉

@Phil69970