Controle Calendar dans un formulaire excel

Al -  
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai déjà, dans mon formulaire Excel, une cellule ("B7") liée à un Contrôle Calendar.

J'aimerais trouver un code me permettant d'obtenirun autre Contrôle Calendar liée à une autre cellule ("B38") mais qui pourrait afficher une date différente de la cellule "B7".

Voici les codes qui me permettent d'afficher une date sur "B7" :



Option Explicit

Private Sub Calendar1_Click()
Range("B7").Value = Calendar1.Value
End Sub
'

Private Sub Calendar1_LostFocus()
Calendar1.Visible = False
End Sub
'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Intersection As Range, Plage As Range

Set Plage = Range("B7")

Set Intersection = Application.Intersect(Target, Plage)
If Not (Intersection Is Nothing) Then
Calendar1.Visible = True
End If

End Sub
'


J'espère être assez explicite .... merci
A voir également:

1 réponse

eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonsoir,

tu peux aussi utiliser le contrôle 'microsoft date and time picker' qui te fera la même chose (le calendrier se déroule que si on clique dessus), permet le lien avec une cellule, et ça sans une ligne de programmation.
eric
1