Rapport de message :*
 

Re: XL Calendar dans TextBox d'un Userform

Titre du sujet : Re: XL Calendar dans TextBox d'un Userform
par Philmfr le 07/04/2011 06:30:31

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