Faire apparaitre mDF XLcalendar avec selection change à cote cellule active
#1
Débutant XLPages

Inscription: 05/03/2010

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 05-03-2010 12h10
 bonjour 

  je voudrais afficher mDF_XLCalendar avec ce code mais j'ai toujours une erreur de type ou autre je pense sur la zone en rouge pourriez-vous me venir en aide ??



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

cordialement,
Hors Ligne
Rapport   Haut 

Re: Faire apparaitre mDF XLcalendar avec selection change à cote cellule active
#2
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 05-03-2010 15h22
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




Hors Ligne
Rapport   Haut 

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

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 06-03-2010 01h01
Bonsoir Uzuor, Guy, le Forum,

Tout d'abord, Uzuor bienvenue sur XLpages.com

A mon avis, tu n'utilises pas la bonne méthode pour piloter l'affichage du mDF XLcalendar sur feuille de calcul.

Le code que tu utilises est destiné à piloter l'affichage pour compléter un TextBox d'un Userform (comme je l'explique dans CE POST du forum ou dans la FAQ).

A l'occasion du présent sujet, je viens de compléter la FAQ par cette question-réponse que je t'invite à consulter :
[mDF] Peut-on piloter par VBA l'affichage du mDF XLcalendar 1.1 sur feuille de calcul ?
Tu y trouveras la façon de procéder pour déclencher l'affichage du calendrier par VBA, lorsqu'il s'agit de compléter une cellule de feuille de calcul.

Comme tu pourras le voir, cela peut se faire avec - ou sans - ajouter une référence au mDF XLcalendar dans le classeur. Mais dans les 2 cas, on ne peut piloter le format de date souhaité depuis le code d'appel.

Si tu veux une date avec un format particulier dans la cellule, il te faudrat :
  • soit le définir dans les options de l'interface du calendrier avant de cliquer sur une date.
  • soit l'appliquer directement à la cellule (via le menu Format / Cellule.../Nombre) et laisser l'option de format par défaut dans l'interface du calendrier (c'est à dire : "[aucun]")

Cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes