Discussion :

[Lost_in_VBA]

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

[kiki29]

Salut, voir http://www.developpez.net/forums/d43...ellule-active/ et adapter à ton contexte
voir avec évènement Worksheet_BeforeDoubleClick

[Lost_in_VBA]

Merci pour les liens!!
ça ne m'a pas trop réussi mais j'ai finalement résolu mon problème tout seul.

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
26
27
28
 
Private Sub Calendar1_Click()
 ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False 'Pour fermer dès que tu cliques dessus
 
 
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
            If Target.value="" Then 
'pour qu'il ne s'ouvre que lorsque la cellule est vide
               Calendar1.Top = Target.Offset(1, 0).Top + 2
               Calendar1.Left = Target.Left + 10
               Calendar1.LinkedCell = Target.Address
               Calendar1.Value = Date
               Calendar1.Visible = True
            End If
 
    Else
    Calendar1.Visible = False
                 Exit Sub
 
 
 
    End If
End Sub

Plus besoin de double clique du coup c'est beaucoup moins génant!!!!!