Microsoft 365 Calendrier vba

Soleil972

XLDnaute Nouveau
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.
 

Soleil972

XLDnaute Nouveau
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.
j'ai juste omis de joindre le code actuel qui dysfonctionne, que voici :

Sub Rectangle2_Cliquer()
Dim DTPicker21 As Object
Application.ScreenUpdating = False
Range("F9").Activate
Range("F9:F16").Value = ""
Range("G12").Value = ""
'Range("F14:F15").Value = ""
Range("F18:F21").Value = ""
Range("F18:F21").Value = ""
Feuil8.DTPicker21.Value = Now
Feuil1.Range("M2") = Now
Range("F22") = 0
Range("P9:p16").Value = ""
'Range("P26").Value = ""
Range("N41") = ""
Range("N45") = "Formule1"
Range("N46") = "Sans"
Range("N47") = "Sans"
Range("F28") = ""
Range("C44:C94") = ""
Range("E44:E94") = "non"
Range("F44:F94") = 0
Range("G44:G94") = "non"
Range("H44:H94") = "non"
Range("F9").Activate
Application.ScreenUpdating = True
End Sub
 
C

Compte Supprimé 979

Guest

myDearFriend!

XLDnaute Barbatruc
Bonjour Patrick Toulon,

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...

Bonne soirée à tous (sauf à toi, pardon!),
 

Eric C

XLDnaute Barbatruc
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
 

Pièces jointes

  • A GARDER - mDF - USFCalendrierAvecFériés.xlsm
    41.3 KB · Affichages: 13
Dernière édition:

jm.andryszak

XLDnaute Occasionnel
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
 

Pièces jointes

  • calendrier.xlsm
    143.6 KB · Affichages: 17

patricktoulon

XLDnaute Barbatruc
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 )

voyez plus simple et simplifiez vous la tache ;)
 
Dernière édition:

jm.andryszak

XLDnaute Occasionnel

patricktoulon

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 IMCEE traduit en vb, mais oui là je m'éloigne encore de l'objectif initial, c'est un de mes défauts.
Bonne lecture
 

patricktoulon

XLDnaute Barbatruc
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
 

Pièces jointes

  • calendrier V pat .xlsm
    42.5 KB · Affichages: 15

youky(BJ)

XLDnaute Barbatruc
Bonjour Soleil et tous,
Voir ici le calendrier le plus téléchargé en ce moment
Bruno
 

Discussions similaires

Réponses
1
Affichages
347

Statistiques des forums

Discussions
312 211
Messages
2 086 296
Membres
103 171
dernier inscrit
clemm