créer un calendrier dans un UserForm

C@thy

XLDnaute Barbatruc

• 29 Mai 2012

• #61

Re : créer un calendrier dans un UserForm

Merci MJ13, Roland_M, Pierre-Jean

Arf, oui, c'est vrai, tu as raison, Pierre-Jean, sacrebleu!!!

cela dit, je me mets dans la peau des mes utilisateurs (et trices, il y a aussi des femmes...)

ils (elles) doivent pouvoir sélectionner rapidement une date, sans changer le mois en activant la liste des mois, dans la mesure où la date à sélectionner fait partie des dates affichées mais non "cliquables" car appartenant au mois suivant

eh oui, mes utilisateurs (trices) sont fainéants et (très) exigeants, et comme je les connais bien, je sais ce qu'ils vont me dire.

Donc je trouve très bien de ne pas pouvoir cliquer une date passée, bravo Roland_M,
par contre il serait également très bien de pouvoir cliquer une date visible mais non "cliquable" car appartenant au mois suivant...

Ah oui, les femmes, c'est compliqué!!!

Bises

C@thy

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Mai 2012

• #62

Re : créer un calendrier dans un UserForm

Re

Eh oui nous les hommes on ne sait guère par quel bout vous prendre !!
Alors que vous , les femmes, le savez très bien

Bises

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 29 Mai 2012

• #63

Re : créer un calendrier dans un UserForm

Arf arf arf!!! Mais c'est vrai, ça!!!

Bises

C@thy

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 29 Mai 2012

• #64

Re : créer un calendrier dans un UserForm

Pardon Roland, je n'avais pas vu ton message de 18:07
Je viens de tester, c'est très sympa! J'aime beaucoup.

Je te remercie pour tes efforts pour me satisfaire
(Pierre-Jean, pas de commentaires s'il te plaît!!!)

Ton calendrier est une vraie merveille!!!

Il serait même absolument parfait si on pouvait aussi cliquer les dates du début juin sans changer de mois...

Bises et mille mercis, tu es super. J'ai bien compris ta logique maintenant,
et il est vrai que ma demande en diffère quelque peu...

C@thy

 

Vote positif 0 Vote négatif

C

Carnage029

XLDnaute Occasionnel

• 29 Mai 2012

• #65

Re : créer un calendrier dans un UserForm

Un autre axe d'amélioration aussi (sinon c'est pas drôle), le fait de pouvoir passer de décembre 2012 à janvier 2013 en incrémentant d'un mois uniquement

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 29 Mai 2012

• #66

Re : créer un calendrier dans un UserForm

Bonsoir,

à partir de la proposition de MJ13 ; mais comme je fais partie des personnes qui vivent au jour le jour sans se préoccuper des dates, les macros pour les jours fériés ne sont peut-être pas fiables. Me prévenir, s.v.p. , s'il y a des erreurs.

Il vaut mieux utiliser les "SpinButton" dans l'ordre année --> mois --> jour de façon à définir le nombre exact de jours dans un mois.

 

Pièces jointes

• UsF&Dates(calendrier).xls

  43.5 KB · Affichages: 98

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 29 Mai 2012

• #67

Re : créer un calendrier dans un UserForm

Excellente idée Carnage029, aurais-tu toi aussi une logique de fille?

C@thy

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 30 Mai 2012

• #68

Re : créer un calendrier dans un UserForm

re

Il serait même absolument parfait si on pouvait aussi cliquer les dates du début juin sans changer de mois...

Cliquez pour agrandir...

voir si c'est cela pour toi "absolument parfait" !?

 

Pièces jointes

• Calendrier AutoCathy.xls

  99 KB · Affichages: 90
• Calendrier AutoCathy.xls

  99 KB · Affichages: 105
• Calendrier AutoCathy.xls

  99 KB · Affichages: 104

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 30 Mai 2012

• #69

Re : créer un calendrier dans un UserForm

MERCDI Roland_M, c'est plus qu'absolument parfait, c'est carrément absolument génial pour mes chers utilisateurs

je vais tester dans tous les sens, mais les premiers tests sont excellents!!!

Bravo, tu es un chef, et un immense MERCI pour ta patience et ta perséverence

Roland_M is GREAT!!!

Biz et bonne journée

C@thy

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 30 Mai 2012

• #70

Re : créer un calendrier dans un UserForm

re

content pour toi !

mais reprend celui-ci car j'ai apporté une petite correction !

 

Pièces jointes

• Calendrier AutoCathy.xls

  98.5 KB · Affichages: 97
• Calendrier AutoCathy.xls

  98.5 KB · Affichages: 107
• Calendrier AutoCathy.xls

  98.5 KB · Affichages: 110

Dernière édition: 30 Mai 2012

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 30 Mai 2012

• #71

Re : créer un calendrier dans un UserForm

MERCI Roland_M,

j'ai juste apporté aussi une petite correction, à savoir que lorsqu'on modifie la date de début, la date de fin se met automatiquement au jour suivant, corrigé des samedis et des dimanches,

et maintenant tout est parfait!! (selon ma logique )

Bises et un grand MERCI

C@thy

 

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Impliqué

Supporter XLD

• 1 Juin 2012

• #72

Re : créer un calendrier dans un UserForm

Bonjour Le Forum, Le Fil,
Je rebondis sur l'excellente application proposée par PierreJean dans les #4 #17.
J'ai apporté une petite touche complémentaire pour mes usages (Barre de titre cachée, double clic pour sortir de l'userform, clic enfoncé pour déplacer).

En guise de partage je vous joins cette application pour ceux qui sont intéressés.

Dans la feuille de saisie j'explique mon objectif, car il me reste un problème à résoudre :
- J'ai tenté dans la macro Sub affiche() de faire en sorte que le CommandButton du jour se colore en vert pour rendre l'USerForm plus conversationnel ; en vain.

Avez-vous une solution ?
J'ai laissé dans les macros mes approches du style Ctl.BackColor = &H0& 'vbGreen ou Controls("CommandButton" & n).BackColor = &H2AC19A mais ça ne marche pas.
Avec :
If l + n - 1 = Date Then Case Format(Date, "ddmm")
Controls("CommandButton" & n).BackColor = &H2AC19A
... ce n'est pas plus concluant.

Plus tard, le top du top pour cet userform et pour moi sera d'y placer une coloration spécifique pour les fériés.
Bonne journée à vous tous,
Webperegrino

 

Pièces jointes

• Calendrier_cousu_main(1juin12).xls

  102 KB · Affichages: 92
• Calendrier_cousu_main(1juin12).xls

  102 KB · Affichages: 90
• Calendrier_cousu_main(1juin12).xls

  102 KB · Affichages: 85

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 1 Juin 2012

• #73

Re : créer un calendrier dans un UserForm

bonjour

sinon celui-ci a les couleurs sur le jour et les fériés !?
il se place à côté de la cellule cliquée
il check la date s'il y en a déjà une dans la cellule !
et sans appel api (qq fois problème d'incompatibilité !)

à toi de voir !

EDIT

sinon voir comme ceci ...

Code:

If l + n - 1 = Date Then
  Controls("CommandButton" & n).SetFocus
  Controls("CommandButton" & n).BackColor = &H2AC19A
End If
 'ESSAI DE COLORATION DU BUTTON d'Aujourdhui()

EDIT: mise à jour du classeur ! VOIR MON POST#24

 

Dernière édition: 6 Juin 2015

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 1 Juin 2012

• #74

Re : créer un calendrier dans un UserForm

Bonsour®

Webperegrino à dit:

Bonjour Le Forum, Le Fil,
Je rebondis sur l'excellente application proposée par PierreJean dans les #4 #17.
J'ai apporté une petite touche complémentaire pour mes usages (Barre de titre cachée, double clic pour sortir de l'userform, clic enfoncé pour déplacer).

En guise de partage je vous joins cette application pour ceux qui sont intéressés.

Dans la feuille de saisie j'explique mon objectif, car il me reste un problème à résoudre :
- J'ai tenté dans la macro Sub affiche() de faire en sorte que le CommandButton du jour se colore en vert pour rendre l'USerForm plus conversationnel ; en vain.

Avez-vous une solution ?
J'ai laissé dans les macros mes approches du style Ctl.BackColor = &H0& 'vbGreen ou Controls("CommandButton" & n).BackColor = &H2AC19A mais ça ne marche pas.
Avec :
If l + n - 1 = Date Then Case Format(Date, "ddmm")
Controls("CommandButton" & n).BackColor = &H2AC19A
... ce n'est pas plus concluant.

Plus tard, le top du top pour cet userform et pour moi sera d'y placer une coloration spécifique pour les fériés.
Bonne journée à vous tous,
Webperegrino

Cliquez pour agrandir...

je joins l'état actuel de mes évolutions en cours dans PicDateXLD

j'ai pris en compte quelques uns des desiderata exprimés dans le fil.
dont :
- le CommandButton du jour se colore en vert.
- une coloration spécifique pour les fériés.
- defilement continu changement d'année par changement de mois.
- saisie bloquée falcultative sur Week-ends.
- persistance falcultaive à l'écran aprés saisie.


choix et memorisation des préférences couleurs pour chaque particularité calendaire

choix du format de sortie :

• N° serie,
• date courte : jj/mm/aaaa,
• date longue : NomJour n° NomMois Annéé,
• nombreuses possibilités d'obtenir les dates en langues étrangères.

Ne sont pas encore opérationnelles les dates fériées autres que la France...
beaucoup de reste à faire :
code à optimiser, rationaliser, documenter, aide etc...

@+ sur le fil

 

Pièces jointes

• picdate v3.xlsm

  174.6 KB · Affichages: 148
• picdate v3.xlsm

  174.6 KB · Affichages: 147
• picdate v3.xlsm

  174.6 KB · Affichages: 151

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Juin 2012

• #75

Re : créer un calendrier dans un UserForm

Re

Salut roland

Merci Webperegrino pour ton appreciation

Voila la version avec colorations pour aujourdhui et les fériés ( je n'ai fait qu'un controle très succint )

Edit: Salut Modeste

 

Pièces jointes

• Calendrier_cousu_main(1juin12).xls

  106.5 KB · Affichages: 83
• Calendrier_cousu_main(1juin12).xls

  106.5 KB · Affichages: 91
• Calendrier_cousu_main(1juin12).xls

  106.5 KB · Affichages: 95

Vote positif 0 Vote négatif