Dans un classeur (Excel 2007) utilisé pour l'inscription de stagiaires, je souhaiterai pouvoir inserrer les dates de debut et de fin de stage a partir d,un calendrier automatique. La saisie automatique de la date de debut fonctiionne, mais je ne parviens pas a faire fonctionner la date de fin.Voici le code pour la date de debut de stage:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Calendar1_Click()
 
    ActiveCell.Offset.Value = Calendar1.Value
    Calendar1.Visible = False
 
    End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Intersection As Range, Plage As Range
 
    Set Plage = Range("F2")
 
    Set Intersection = Application.Intersect(Target, Plage)
    If Not (Intersection Is Nothing) Then
        Calendar1.Visible = True
    End If
End Sub
Merci