Manipulation d'un calendrier sur Excel
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:
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 |