Forums XLPages

Tous les messages (Philmfr)

Re: XL Calendar dans TextBox d'un Userform
#1
Débutant XLPages

Inscription: 06/04/2011

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 07-04-2011 23h29
Bonsoir,
En effet, c'était évident mais je ne cherchais pas de ce côté
Je ne reste qu'un amateur.
Encore bien merci pour cette réussite.
Philippe
Hors Ligne
Rapport   Haut 

Re: XL Calendar dans TextBox d'un Userform
#2
Débutant XLPages

Inscription: 06/04/2011

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 07-04-2011 06h30
Bonjour,
Alors voilà quand je lance ma commande de néttoyage de mon Userform, il néttoie/vide bien tout sauf qu'il lance XlCalendar en Textbox "PériodeF"

Private Sub Annuler_Click()
'vérifie que le classeur Bertille est le classeur actif
'sinon l'initialisation échoue
Workbooks("Bertille.xls").Activate
'Vide les Combobox, vide les éléments de texte...
    agents = ""
    annule = ""
    PériodeD = ""
    PériodeF = ""
    gpa = ""
    commentaire = ""
    'positionne sur "Faux" les cases à cocher
    matin = False
    aprèsmidi = False
    journée = False
    urgence = False
   
End Sub

Je pense que cela est normal car dans ce que tu as (très bien fait),
Private Sub PériodeD_Change()
    'Ferme le calendrier et le réouvre automatiquement pour la date de FIN (par défaut, à la même date)
    With PériodeF
        If .Text = "" Then .Text = PériodeD.Text
etc....

Comment puis je éviter celà? changer ma méthode de néttoyage? y ajouter la fermeture de XLcalendar?
Bien merci,
Philippe
Hors Ligne
Rapport   Haut 

Re: XL Calendar dans TextBox d'un Userform
#3
Débutant XLPages

Inscription: 06/04/2011

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 07-04-2011 01h02
Bonjour,
C'est génial, ça marche exactement comme je le voulais
Mais la commande sur la T2 me pose maintenant un bug ailleus.
Je vais chercher par moi même demain après dodo et je reviens vous voir.
Déjà merci et à demain.
Philippe
Hors Ligne
Rapport   Haut 

XL Calendar dans TextBox d'un Userform
#4
Débutant XLPages

Inscription: 06/04/2011

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 06-04-2011 23h01
Bonsoir,
J'utilise depuis peu mDF Xlcalendar v1.1 dans deux TextBox d'un Userform avec Excel 2003 et Excel 2007 et c'est Génial.
Ma prémière TextBox est pour indiquer la date du début de période de congé et la seconde la fin de la période de congé qui peuvent être le même jour (1journée).
Pour celà j'utilise la macro fournie et c'est ok:
Private Sub PériodeF_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = True
    mDFXLcalShow CalCtrl:=PériodeD, CalFormat:="dd/mm/yyyy", CalLang:="FR"

Ma question est de savoir si on peu ajouter d'autre commandes dans la macro afin d'avoir toutes les options de XLcalendar lors de son appel en cliquant dans la TextBox (ex: rappel du dernier mois).

Par ailleurs, lorsque je choisi une date de début dans ma première TextBox j'aimerai que dans la TextBox de fin de période XLcalendar puisse se positioner sur le dernier mois saisis et mieux encore le dernier jour saisi . Le summum serait même en plus que XLcalendar se lance seul dans la 2ème TextBox à partir du moment ou la date de début est choisie dans la première TextBox.

Bon ok c'est pas très clair mon histoire ;-(

Merci à tous pour votre lecture

Hors Ligne
Rapport   Haut