Calendrier autonome (sans module microsoft)

Pour partager vos applications (Excel, Calc et Google Sheets) avec les autres membres
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 411
Appréciations reçues : 8
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 10 juillet 2019, 20:29

bravo Hakim euh non leakim :lol:
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 411
Appréciations reçues : 8
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 12 juillet 2019, 15:32

Bonjour Leakim,
La version originale affiche bien dans une cellule, mais je pense qu'il y a un petit souci sur le mini calendrier pour la textbox1 en dehors du mois courant pour 2019:
Il s'affiche correctement dans la textbox1: (ouvrable à la page data)
Sans titre2.png
Sans titre2.png (5.28 Kio) Vu 204 fois
mais pas dans ma base de données (fin de la page cascade)
Sans titre.png
Sans titre.png (9.43 Kio) Vu 204 fois
et je pense pas que mon code inverse les mois pour 2019:
Sans titre3.png
a+
fronck ::o
ABSENCES 2018 forum.xlsm
(173.41 Kio) Téléchargé 6 fois
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'064
Appréciations reçues : 172
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr

Message par ric » 12 juillet 2019, 18:24

Bonjour à tous,

Un essai ...
Modifié le format sous le bouton Valider du Calendrier.
Bouton Validé du userforme "conges", j'ai ajouté Cdate aux textbox qui écrivent dans les colonnes D et E.





ric
fronk ABSENCES 2018 forum.xlsm
(146.92 Kio) Téléchargé 7 fois
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'791
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 12 juillet 2019, 19:13

Bonjour,
Oui effectivement il est nécessaire de passer par CDate pour vider la textbox1 ou 2 dans la base de données.

Merci ric
Fronck, tu nous redis.

Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 411
Appréciations reçues : 8
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 12 juillet 2019, 19:38

Bonjour ric leakim,
je prends merci, mais le format dans l'UF est en anglais, c'est moyen.
Sans titre.png
Sans titre.png (5.46 Kio) Vu 190 fois
a+ ::B.
fronck
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'064
Appréciations reçues : 172
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr

Message par ric » 12 juillet 2019, 19:52

Bonjour à tous,

Désolé, ma machine a la date courte au format anglais.
J'ai modifié pour les tests, il n'y a eu que le format à changer dans le bouton Valider du Calendrier.
Un essai ...





ric
fronk ABSENCES 2018 forum.xlsm
(147.25 Kio) Téléchargé 11 fois
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 411
Appréciations reçues : 8
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 12 juillet 2019, 22:16

super ric,
c'est impec.

Leakim, j'en profite pour une petite critique sur le calendrier dans ce cas de 2 textboxs.
il me faudrait un lien entre le choix de la 2éme texttbox avec la 1ere.
En général, quand tu choisis une date de départ en dehors du mois en cours, la date d'arrivée est aussi en dehors de ce mois, donc liée.
Exemple, tu prends 2 semaines en aout, tu changes de mois pour la date de départ en aout, mais quand tu sélectionnes la date de fin, il faut aussi que tu changes de mois, alors qu'on pourrait lier l'affichage du calendrier en date d'arrivée sur aout en fonction du choix fait de la textbox en date de départ.
merci :)
fronck
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'064
Appréciations reçues : 172
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr

Message par ric » 13 juillet 2019, 12:20

Bonjour à tous,

J'ai vu que tu demandes à leakim, mais j'ose répondre ...
Dans Calendrier ... j'ai ajouté une ligne après "Next"
Private Sub UserForm_Initialize()
Dim CaseJ As Object, i As Byte
    AfficheTitleBarre Me.Caption, False     'lignes à masquer pour afficher le cadre du calendrier
    Me.Height = Me.Height - 15              'lignes à masquer pour afficher le cadre du calendrier

    Set CasesJour = New Collection
    For i = 1 To 37
        Set CaseJ = New Class_Cal
        Set CaseJ.Jour = Me.Controls("J" & i)
        CasesJour.Add CaseJ
    Next
    
    If conges.TextBox1 <> "" Then Date_initiale = CDate(conges.TextBox1) ' < Lien demandé avec Textbox1 du userform "conges"
    Me.ddj.Caption = IIf(Date_initiale = "", Date, Date_initiale) 'ActiveCell ou Date_initiale
    Me.Cmbannule.Caption = " Fermer"
    Me.Cmbannule.ControlTipText = "Fermer"
    Call re_init
End Sub




ric
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 411
Appréciations reçues : 8
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 13 juillet 2019, 14:21

Ah génial,
c'est plus sympa comme çà.
merci pour tes réponses.
fronck :singe:
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'791
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 14 juillet 2019, 12:45

Bonjour à vous,
Ta requête est tout à fait justifiée, c'est d'ailleurs ce que j'ai adapté sur mes fichiers depuis longtemps.

Ce fil est une proposition qui nécessite effectivement d'être adapté à chacun.

La réponse de ric est tout à fait juste, merci à toi.

Cordialement,

Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message