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

tchi456 · 13 Mai 2022

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 · 13 Mai 2022

tchi456 à dit:
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

vgendron · 13 Mai 2022

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 · 13 Mai 2022

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

vgendron · 13 Mai 2022

tchi456 à dit:
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 · 16 Mai 2022

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

Bon début de semaine.

Phil69970 · 16 Mai 2022

Bonjour @tchi456 , @vgendron

Je te propose ce fichier :

*Merci de ton retour

@Phil69970

tchi456 · 16 Mai 2022

Bonjour Phil69970,

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

Bonne journée à vous!

Phil69970 · 16 Mai 2022

@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

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

tchi456

XLDnaute Occasionnel

vgendron

vgendron

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

tchi456

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Discussions similaires