Salut à tous,
Je dispose d'un calendrier sur excel pour le choix de mes dates.
Il marche plutôt bien mais j'aimerais y rajuter deux petites modifs:
J'aimerais qu'en fait celui ci n'apparaisse que lors d'un double click sur la cellule cible (en plus de toutes les conditions déjà implementées).
Ensuite ce serait bien qu'il disparaisse ddès qu'on effectue le choix de la date
Ci joint le code que j'ai adapté:
Quelqu'un pourrait il m'aider svp??
Merci d'avance!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Calendar1_Click()
 ActiveCell.Value = Calendar1.Value
End Sub
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ((((Target.Column = 5 Or Target.Column = 9) And Target.Row > 16) Or (Target.Column = 5 And (Target.Row = 8 Or Target.Row = 9))) And Target.Cells.Count = 1) Then
            Calendar1.Top = Target.Offset(1, 0).Top + 2
            Calendar1.Left = Target.Left + 10
            Calendar1.LinkedCell = Target.Address
            If IsDate(Target.Value) Then
                Calendar1.Value = Target.Value
           Else
                Calendar1.Value = Date
            End If
            Calendar1.Visible = True
 
    Else
    Calendar1.Visible = False
                 Exit Sub
 
 
 
    End If
End Sub