Discussion :

[guybreysse]

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

[Theze]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveCell.Offset.Value = Calendar1.Value

"ActiveCell.Offset.Value" équivaut à "ActiveCell.Offset(0, 0).Value" donc aucun décalage ce qui revient à faire "ActiveCell.Value = Calendar1.Value"

Hervé.

[gFZT82]

Bonjour,

Un exemple avec date début en F2 et date de fin en I2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Intersection As Range, Plage As Range
    Set Plage = Application.Union(Range("F2"), Range("I2"))
    Set Intersection = Application.Intersect(Target, Plage)
    If Not Intersection Is Nothing Then
        Calendar1.Visible = True
    End If
End Sub
Private Sub Calendar1_Click()
    ActiveCell.Value = Calendar1.Value
    Calendar1.Visible = False
End Sub

Cordialement.

[guybreysse]

Merci, ca fontionne a merveille. Bonne soiree