Rapport de message :*
 

Mdf XLcalendar

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