Titre du sujet : Mdf XLcalendar par wjmavsk le 05/01/2013 19:39:07
Bonjour,
Avec MdfXLCalendar, quel code puis-je utiliser pour positionner le calendrier systématiquement sur le coté droit de la cellule sélectionnée avec le curseur?
Merci par avance pour votre aide.
Auparavant, j'utilisais un calendrier trouvé dans les compléments Excel VBA.
Pour afficher, masquer et positionner ce calendrier, j'utilisais en VBA le code suivant:
Private Sub Calendar1_Click()
' Met la date sélectionnée dans la cellule active
ActiveCell.Value = Calendar1.Value
' Masque le calendrier
Calendar1.Visible = False
End Sub
Private Sub Calendar1_LostFocus()
Calendar1.Visible = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 11 And Target.Row >= 7 Or Target.Column = 12 And Target.Row >= 7 Or Target.Column = 16 And Target.Row >= 7 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' on affiche le calendrier
Calendar1.Visible = True
' Place le calendrier à côté de la cellule
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
' Sinon, on masque le calendrier
Calendar1.Visible = False
End If
End Sub
|