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

tchi456

XLDnaute Occasionnel
Bonjour,

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

VB:
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

XLDnaute Barbatruc
Bonjour
essaie avec ceci

VB:
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

XLDnaute Occasionnel
Bonjour vgendron,

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

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth