Bonjour la communauté,
Help!!!
J'ai inserer dans une feuille un calendrier que lorsque que j'appuie sur une case ( ici C24) s'ouvre un calendrier, et que quand je choisit une date dessus elle me l'affiche dans une autre case ici(en D24)... jusqu'ici tout va bien ...
... mais problème, je n'arrive pas a faire fermé le calendrier après avoir cliquer sur une autre case, de plus une erreur s'affiche
je souhaiterai en faire un deuxieme par exemple: " reservation du ( la premier calendrier) au ( deuxiemme calendrier), mais je ne trouve plus le deuxiemme calendrier
je vous mais le code , et mon fichier . (les case en rouge sont là ou je voudrais activer les calendriers) les cases après la où je souhaite afficher les dates.
Je vous remercie beaucoup
Code:
Option Explicit
Private Sub Calendar1_Click()
Range("D24").Value = Calendar1.Value
End Sub
'
Private Sub Calendar1_LostFocus()
Calendar1.Visible = False
Private Sub Calendar2_Click()
Range("F24").Value = Calendar2.Value
End Sub
'
Private Sub Calendar2_LostFocus()
Calendar2.Visible = False
End Sub
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Intersection As Range, Plage As Range
Set Plage = Range("E24")
Set Intersection = Application.Intersect(Target, Plage)
If Not (Intersection Is Nothing) Then
Calendar1.Visible = True
End If
End Sub
'
ps: il manque un End Sub a la fin de ceci :
Private Sub Calendar1_LostFocus()
Calendar1.Visible = False
End Sub
Le truc c'est que mon calendrier s'ouvre sur E24 et me change la date a D24 j'aimerai un calendrier en C24 pour D24 et un sur E24 pour F24.
en vous remrciant encore