Calendrier autonome (sans module microsoft)

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

fonctionne nickel un tout grand merci

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

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

QUOI !!!!!

Tatiak ou pierrep56 ne font qu'un ?!

Alors les "répondeurs" travaillent sur plusieurs FORUM !?!?

J'y crois pas... Moi qui pensais qu'il n'y avait que les "questionneurs" qui osaient faire ça....

Cette bonne blague !

Aller @ bientôt

LouReeD

LouReeD a écrit :

QUOI !!!!!

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.

regarde ici :

screen

conclusion : Tatiak est devenu immortel, comme tous les super-héros !

dhany

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

LouReeD a écrit :

QUOI !!!!!

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.

conclusion : Tatiak est devenu immortel, comme tous les super-héros !

dhany

Salut à tous,

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

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)

Bonjour Pierre (Tatiak),

bravo pour ton calendrier qui a tant de succès !

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

bon week-end à toi aussi !

dhany

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

je vous joins mon fichier.

28cp2.xlsm (223.17 Ko)

merci de votre aide.

a+

fronck

Bonjour,

il vous manque un underscore entre calendar_affiche_me

@ bientôt

LouReeD

Bonjour Lou Reed,

c'est pareil avec affiche_me sur cette 1ere version de calendrier.

Mais c'est pire avec la 2eme version car j'ai un probléme pour ouvrir le calendrier sur mon fichier:

sans titre

alors que j'arrive à ouvrir l'UF avec le lien du fichier original.

fronck

27cp2.xlsm (215.84 Ko)

Bonjour à tous,

@Fronk ... dans ton fichier, il manque le module de classe Class_Cal

Tu peux le trouver dans le fichier d'I20100 quelques posts plus haut.

ric

Bonjour,

Voici ton fichier avec les modules nécessaire et notamment les modules de classe.

A nous redire,

Leakim

Bonjour,

merci pour vos réponses, Leakim et ric. A noter qu'il s'agit pas de mon fichier et il y a surement des conflits avec les macros enregistrées dans les modules comme graph...

le module de leakim bug plus, donc il doit avoir vos modules de class.

quand le prend le module original, il valide la date choisit dans le bouton valider avant qu'on le choisisse pour aller dans la textbox.

mais là c'est pas le cas:

sans titre sans titre2

en copiant collant le code du formulaire calendrier de la version isa en PJ, que ce soit moi ou toi Leakim, çà ouvre l'UF, mais çà ne prend pas de date dans le bouton.

Aprés il restera plus qu'il aille dans la textbox

Fronck

Re

La date dans le bouton c'est juste une ligne de code dans le module de classe afin de lever le doute sur la date que l'on a choisit lors du clique sur les bouton des jours.

Je dirai que c'est un détail cosmétique que l'on peut régler plus tard.

Tu parles d'un textbox dans laquelle doit aller la date choisit. Il est où ton UF ?

Leakim

bonjour,

ici:

sans titre

la date sélectionnée doit aller dans la textbox1 de UFconges

28cp2.xlsm (230.32 Ko)

fronck

Ok

Pas fait attention.

Je regardes pour te rendre çà fonctionnelle

A tout à l'heure.

Leakim

Bon bah, j'ai eut une journée de ouf hier alors la nuit c'est bien aussi.

Voici ton fichier avec l'affichage du calendrier avec date dans le bouton de validation après un double clique dans tes textbox.

Je te laisse faire pour le reste de ton code de validation.

Leakim

39cp2-1.xlsm (238.01 Ko)

Merci Hakim

Rechercher des sujets similaires à "calendrier autonome module microsoft"