Bonjour,
Nous venons de migrer vers office 365 et je tombe sur un os pour l'insertion d'un calendrier dans une application vba destinée à créer des devis.
Le code DTPicker ne passe plus et je cherche le code compatible qui remplacerait DTPicker pour l'affichage de mon calendrier. Quelqu'un peut-il m'aider svp ?
Avec mes remerciements anticipés.
Bonjour,
Nous venons de migrer vers office 365 et je tombe sur un os pour l'insertion d'un calendrier dans une application vba destinée à créer des devis.
Le code DTPicker ne passe plus et je cherche le code compatible qui remplacerait DTPicker pour l'affichage de mon calendrier. Quelqu'un peut-il m'aider svp ?
Avec mes remerciements anticipés.
Saisissez une date ou une série de dates en un seul clic! mDF XLcalendar est un utilitaire d'aide à la saisie des dates pour Excel. Pratique, esthétique et discret, il devient vite indispensable... Grâce à son interface intuitive réduite au strict nécessaire et plusieurs options...
Bonjour et merci beaucoup BrunoM45. Malheureusement, je n'ai pas le mot de passe qui me permettrait d'accéder au code. Le connaîtrais-tu ?
Merci d'avance
Bonjour à tous, @Soleil972 : Désolé les demandes de deprotections de fichiers sont interdites sur le forum. @BrunoM45 : Rassure moi l’emploi de « feu » MyDearFriend n’est pas annonciateur d’une mauvaise nouvelle j’espère?
Bonne journée
David
De passage, je fais quelques recherches sur cet excellent site qui m'a tout appris et pour lequel j'ai gardé beaucoup de bons souvenirs et d'amis...
Puis, je découvre certains messages de ta part (dont celui-ci) que je trouve assez surprenant de mépris envers mon travail et les quelques idées que j'ai tenté de mettre en pratique.
On peut critiquer le travail de quelqu'un d'autre, on peut aussi penser que ce qu'il a fait est une daube, mais est-ce que c'est vraiment utile d'essayer de faire passer l'auteur pour un demeuré ?
Si j'en crois ce que j'ai lu dans quelques fils ici, ta corbeille doit être bien pleine en effet...
Bonsoir le forum
Bonsoir le fil, bonsoir Patrick, Biz mon Jean-Marie, bonsoir Didier (mDF)
@patrick : Je ne peux pas te laisser dire tout et n'importe quoi. Comme tu le sais, j'admire ton style de compréhension du Vba tout comme celles de mon "ami Didier" que j'ai connu ici dans les années 2005 et que j'ai même déjà sollicité en privé (il y a quelques années... et... il a répondu à mon attente...) durant la journée de baptême de son fils.
Didier bien qu'ayant créé son site n'est plus pleinement présent car il a grandement participé et continue de participer à l'assistant vocal "A....ia.
Je te mets son calendar qui n'est pas une .Xla (qui a été une petite révolution à l'époque....comme tout ce qu'il a créé.... ET qui n'est pas protégé ). Entre Grands du Vba, il ne faut pas vous toiser..... mais vous associer.
Bonne soirée à toutes & à tous
@+ Eric c
Bonjour
Je ne sais pas si je suis dans la bonne discussion et ne veux pas interférer avec les précédents post.
J'ai développé tout seul dans mon coin un calendrier (un de plus parmi tous les calendriers déjà disponibles, où il a de quoi trouver son bonheur).
Je le propose et souhaiterais aussi avoir si possible des critiques et/ou des pistes d'amélioration.
Merci par avance
bonjour @jm.andryszak
je crois que vous avez perdu de vue l'essentiel
un calendrier comme tout petit menu interface est un outils pas une application
1 userform + 3 module standard+un module classe pour un calendrier et pour moi un peu too much
je salut quand même le travail ,vous avez bien du vous casser la tète
1° certaines fonction révèlent un manque de connaissance ,ce qui implique des fonctions et macros a rallonge
par exemple une toute simple la fonction nbjourmois
VB:
'***********************************************
Function NbJoursMois(Annee As Integer, Mois As Integer)
'***********************************************
Dim UneDate As Date
'***********************************************
UneDate = CDate("1/" & Mois & "/" & Annee)
NbJoursMois = DateDiff("d", UneDate, CDate("1/" & Mois + 1 & "/" & Annee))
If Mois = 12 Then
NbJoursMois = DateDiff("d", UneDate, CDate("1/1/" & Annee + 1))
End If
End Function
je vous donne une version bien plus simple
VB:
'***********************************************
Function NbJoursMois(Annee As Integer, Mois As Integer)
NbJoursMois = Day(DateSerial(Annee, Mois + 1, 0))
End Function
'***********************************************
d'ailleurs comme vous remplissez votre calendrier avec des jour avant et apres le mois choisi cette fonction vous est d'aucune utilité
2°les fonctions paques et autres (date mobile)peuvent être calculées dans votre tableau de férié
et hop on fait sauter un module
3° est-ce bien utile de partir d'un userform vide et de le remplir alors que de toute façon, ce sera toujours les mêmes controls qui vont être créés(les créer directement c'est mieux et plus stable)
4° un multipage donc autant de bouton et autres nécessaire * par 12
la c'est carrément rédhibitoire chez moi
5° le tableau de date férié a quoi sert il
pourquoi l'année est en dur (dans le .value) ne devrait elle pas être communiqué par le changement d'année du calendrier
mais je répète je salut le travail et le temps passé
ma conclusion
vous avez perdu bien du temps en exercice de style et pirouettes de code vba
vous vous êtes pas assez penché sur l'essentiel du besoins d'un interface calendrier
il y a certaines choses inutiles
manque de communication du tableau de date avec le calendrier (en gros il sert a rien pour l'interface )
Bonjour
Content de vous rencontrer ( je suis vos contributions)
Je pense cependant que votre analyse est trop rapide.
ex : Changer d'année vous verrez que le tableau se met à jour, etc..
"pourquoi l'année est en dur" : non elle n'est pas en dur
"un calendrier comme tout petit menu interface est un outil pas une application" , je suis d'accord.
Dans un autre calendrier, je peux calculer les dates de lever et coucher du soleil et les phases lunaires grâce au code java script du site IMCEEtraduit en vb, mais oui là je m'éloigne encore de l'objectif initial, c'est un de mes défauts.
Bonne lecture
re
en effet j'ai vu après le tableau change
mais par vba alors que l'on peut le faire automatiquement par formule
après non je ne pense pas avoir analyser trop rapidement
comme je l'ai dit 3 modules standards , un module classe et un userform c'est du gaspillage d'uc inutile
si pour vous seul le résultat visuel compte ok
mais perso quand je développe des petits interface comme ça je pense a en utiliser le moins possible
ce n'est qu'un menu après tout
de plus implémenter ce calendrier dans un autre fichier pourrait être compliqué
donc pour le fun j'ai commencé a reproduire l'apparence quasi identique à votre calendrier
pour commencer j'ai viré absolument tout les codes
supprimé tout les modules
je ne garde que le userform et les controls y sont déjà présents
je n'ai pas eu le temps de refaire le tableau avec formule mais si vous êtes intéressé j'irais jusqu'au bout
ce n'est qu'une ébauche mais ça va peut être vous donner un aperçu du ; a quel point vous vous êtes compliqué la vie
si vous le voulez je vais jusqu'au bout de la remastérisation
Je me suis rendu compte que souvent dans les programmes il me fallait utiliser le calendrier sur plusieurs userform et plusieurs textbox. Voici un calendrier unique pour différent userform et textbox! Un code unique quelque soit l'userform ou le...