Problème Date en mémoire lors double clic sur cellule

koodbook

XLDnaute Nouveau
Bonjour à tous,

Je n'arrive pas à solutionner mon problème. J'ai un calendrier qui s'active lors d'un double clic sur les colonnes D et E. Le problème est qu'après avoir sélectionner mes dates (par double clic), et lorsque je double clic ensuite sur une autre cellule, il m'inscrit la dernière date sélectionnée.

Quelqu'un pourrait-il m'aider afin de solutionner ce problème?

Je joins mon fichier pour plus de clarté.

Je vous remercie vivement!
 

Pièces jointes

  • PbCalendier.zip
    48.6 KB · Affichages: 32

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Problème Date en mémoire lors double clic sur cellule

Bonjour koodbook,

Remplace le code existant par celui-ci:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("D3:E1000")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub ' pour éviter la sélection de plus d'une cellule
        If Target.Column = 4 Or Target.Column = 5 Then Calendrier1.Show
    If date2 > 0 Then
        Target.Value = date2
    End If
    
    If Intersect(Target, Range("F3:F700")) Is Nothing Then Exit Sub
        choixresp.Show
End If
End Sub

à+
Philippe
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Problème Date en mémoire lors double clic sur cellule

Re,

il suffsait de "remonter" le End If
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("D3:E1000")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub ' pour éviter la sélection de plus d'une cellule
        If Target.Column = 4 Or Target.Column = 5 Then Calendrier1.Show
    If date2 > 0 Then
        Target.Value = date2
    End If
End If    
    If Intersect(Target, Range("F3:F700")) Is Nothing Then Exit Sub
        choixresp.Show

End Sub
à+
Philippe
 

Discussions similaires

Statistiques des forums

Discussions
312 330
Messages
2 087 347
Membres
103 525
dernier inscrit
gbaipc