Rapport de message :*
 

Re: Faire apparaitre mDF XLcalendar avec selection change à cote cellule active

Titre du sujet : Re: Faire apparaitre mDF XLcalendar avec selection change à cote cellule active
par Guy le 05/03/2010 15:22:55

Bonjour Uzuor,

Le calendrier peut être affiché dans un formulaire ou dans une feuille de calcul.

Dans le cas qui nous occupe tu cherches à afficher le calendrier dans une feuille de calcul avec :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Sheets("Tables1").Range("A1").Value = "" Then
    mDF_XLCalendar.mDFXLcalShow CalCtrl:=Range("A1"), CalFormat:="dddd dd/mm/yyyy", CalLang:="FR"
  End If
End Sub
Or, l'erreur de type provient de ce que Range("A1") est un type Range et non un type Control attendu.

Modifie le bout de code
mDF_XLCalendar.mDFXLcalShow CalCtrl:=Range("A1"), CalFormat:="dddd dd/mm/yyyy", CalLang:="FR"
en
mDF_XLCalendar.mDFXLcalShow CalFormat:="dddd dd/mm/yyyy", CalLang:="FR"
où le paramètre CalCtrl est Nothing et ça devrait marcher rondement.

Évidemment le calendrier ne s'affichera que si Range("A1") = "".
Il serait souhaitable que tu indiques le but de cette condition.
Veux-tu n'afficher le calendrier que pour la cellule A1?

Cordialement,

Guy