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

  • Initiateur de la discussion Initiateur de la discussion koodbook
  • Date de début Date de début

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 !

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

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
 
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
 
- 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
3
Affichages
333
Réponses
5
Affichages
605
Deleted member 453598
D
Retour