Saisie de dates

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:

---

1 2 3 4 5 6

Private Sub Calendar1_Click()   ActiveCell.Offset.Value = Calendar1.Value Calendar1.Visible = False   End Sub

---

Code:

---

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

Bonjour,

Code:

---

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é.

Bonjour,

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

Code:

---

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.

Merci, ca fontionne a merveille. Bonne soiree