Calendrier autonome (sans module microsoft)

Pour partager vos applications (Excel, Calc et Google Sheets) avec les autres membres
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'713
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 3 novembre 2018, 03:58

Bonjour leakim,

je découvre peu à peu cette mine d'or qu'il y a ici sur la section Applications Excel
et là je vient de découvrir une grosse pépite :)
un très gros merci pour cette performance, (module de classe)
j'ai beaucoup apprécié la passe du J28 avec son index à 7 jours
j'ai aussi apprécié grandement dans ce code, la liberté, c'est à dire sa clarté.
j'ai pu y ajouter facilement un SpinButton pour les années.
j'invite tous les excelliens à regarder attentivement tous les functions incluent dans ce fichier.
leakim, encore une fois un très grand merci! isabelle
Calendrier avec boutons-forum V3(avec spin année).xlsm
(38.64 Kio) Téléchargé 103 fois
Vive ces nouvelles saisons qui nous colorent.
isabelle
f
flexi2202
Membre habitué
Membre habitué
Messages : 97
Inscrit le : 16 août 2010
Version d'Excel : 2007 fr

Message par flexi2202 » 3 novembre 2018, 10:55

fonctionne nickel un tout grand merci
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'661
Appréciations reçues : 321
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 3 novembre 2018, 11:00

Bonjour,

mise à part le fait de commencer les années à 1900 lors du clic sur le bouton, tout fonctionne bien ;-)
Il faut absolument que je me lance dans la création d'un "tel" calendrier ! ;)

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'806
Appréciations reçues : 12
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 3 novembre 2018, 21:30

Salut,
Je suis content que les unes et les autres puissent vous approprier à votre tour, le travail initial de Tatiak ou pierrep56 selon les forums.
Merci à lui.

Leakim
Modifié en dernier par leakim le 15 novembre 2018, 06:54, modifié 1 fois.
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'661
Appréciations reçues : 321
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 3 novembre 2018, 21:36

QUOI !!!!! 8[]
Tatiak ou pierrep56 ne font qu'un ?!
Alors les "répondeurs" travaillent sur plusieurs FORUM !?!? :cry:
J'y crois pas... Moi qui pensais qu'il n'y avait que les "questionneurs" qui osaient faire ça.... ::(

:lol: Cette bonne blague !

Aller @ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'910
Appréciations reçues : 693
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 3 novembre 2018, 22:41

LouReeD a écrit : QUOI !!!!! 8[]
Tatiak ou pierrep56 ne font qu'un ?!
eh oui, tout comme Zorro et DonDiego de la Vega sont une seule et même personne !
idem pour Superman et Clark Kent ; ou pour Spider-Man et Peter Parker.  :P :lol:

regarde ici :
Screen.jpg
Screen.jpg (19.59 Kio) Vu 1828 fois
conclusion : Tatiak est devenu immortel, comme tous les super-héros !  ::D

dhany
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'713
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 5 novembre 2018, 03:12

Bonjour la communauté,
mise à part le fait de commencer les années à 1900 lors du clic sur le bouton, tout fonctionne bien
@LouReed,

cela provient du programme original qui détermine la date selon la cellule active lors de l'appel du UserForm, si la cellule active contient une valeur numérique.
mais c'est très facile à modifier.
il faut modifier la ligne suivante:
Me.ddj.Caption = IIf(ActiveCell = "", Date, ActiveCell) 'ActiveCell ou Date_initiale
sur cette macro:
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
    
    Me.ddj.Caption = IIf(ActiveCell = "", Date, ActiveCell) 'ActiveCell ou Date_initiale
    Me.Cmbannule.Caption = " Fermer"
    Me.Cmbannule.ControlTipText = "Fermer"
    Call re_init
End Sub

Édit:
Il faut vraiment modifier cette ligne, car si celle-ci contient du texte cela bug l'appel du UserForm
aussi si la valeur de la cellule active est numérique mais dépasse la capacité pour une date valide il y a aussi un bug.

À noter/ la tranche de date valide se situe entre:
1900-03-01
9999-11-30

À noter/ pour la tranche de date
1900-01-01
1900-02-28
la date grisée sur le calendrier est décaler de - 1 jour, mais on comprend bien que la cause est que 1900 n'est pas considérée comme une année bis.

aussi quelque remarque sur ce fichier
Calendrier (test-isa).xlsm
(98.56 Kio) Téléchargé 68 fois
Vive ces nouvelles saisons qui nous colorent.
isabelle
Avatar du membre
pierrep56
Membre impliqué
Membre impliqué
Messages : 1'145
Appréciations reçues : 187
Inscrit le : 18 juin 2014
Version d'Excel : 2016

Message par pierrep56 » 17 novembre 2018, 10:54

dhany a écrit :
3 novembre 2018, 22:41
LouReeD a écrit : QUOI !!!!! 8[]
Tatiak ou pierrep56 ne font qu'un ?!
eh oui, tout comme Zorro et DonDiego de la Vega sont une seule et même personne !
idem pour Superman et Clark Kent ; ou pour Spider-Man et Peter Parker.  :P :lol:
...
conclusion : Tatiak est devenu immortel, comme tous les super-héros !  ::D

dhany
Salut à tous,

Je découvre par hasard et avec étonnement ce fil et je vois que ça délire bien sur mon compte! :roll: ::o

Je n'avais même pas vu que Leakim avait relayé ici mon (vieux) calendrier, mais visiblement il a l'air de plaire.

Pour info, depuis j'ai amélioré et simplifié le code pour avoir un modèle plus facile à intégrer dans mes appli (cf celles de mon blog)

Bon week-end
Pierre (Tatiak)
2 membres du forum aiment ce message.
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'910
Appréciations reçues : 693
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 17 novembre 2018, 16:23

Bonjour Pierre (Tatiak),
bravo pour ton calendrier qui a tant de succès !  :sp:  :appl2:  :clap:  :s10:

(même dans une version antérieure !  :good:)

bon week-end à toi aussi !  :trfl:

dhany
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 476
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 8 juillet 2019, 14:02

Bonjour à tous,
Pour reprendre ce post concernant l'ouverture d'un mini calendrier dans une zone de texte pour afficher une date.
j'ai oublié de consulter toutes les pages de ce sujet et essaie de mettre la derniére version du mini calendrier dans ma textbox.
Sans titre.png
je vous joins mon fichier.
CP2.xlsm
(223.17 Kio) Téléchargé 24 fois
::B.
merci de votre aide.
a+
fronck
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message