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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
243
Réponses
3
Affichages
250
Retour