XL 2016 [Résolu ] Problème avec le calendrier "Calendar 4.1 de PatrickToulon"

Dudu2

XLDnaute Barbatruc

• 4 Janvier 2020

• #2

Bonjour,
Ça a l'air très connu mais pourrais-tu donner le lien sur ce fameux calendrier ?
D.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Janvier 2020

• #3

bonsoir
allons donc !! je vais verifier cela

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Janvier 2020

• #4

re
ok
tu remplace

VB:

dat = Date : If Not Obj Is Nothing And IsDate(Obj) Then dat = IIf(Calendar.region = 0 And TypeName(Obj) <> "Range", Format(Obj.Value, "mm/dd/yyyy"), Obj.Value)

PAR ceci avec commentaires

VB:

dat = Date'on donne la date a "dat"
If Not Obj Is Nothing Then 'si obj injecté par objx dans la fonction  n'est pas rien
        If IsDate(Obj) Then 'si c'est une date
           'si c'est un range cdate(.value) , si c'est un control la date formatée
dat = IIf(Calendar.region = 0 And TypeName(Obj) <> "Range", Format(Obj.Value, "mm/dd/yyyy"), CDate(Obj.Value))
        End If
    End If
    Cbmonth.ListIndex = Month(dat) - 1   'et enfin le combo cbmonth prend l'index du mois dans sa liste

un simple oubli de ma part désolé
ca se produisait quand le target ou controls etait vide au départ
le principe étant
1 si vide mois et année en cours
2 mois et année de target ou control (objx) si non vide
voila qui est réglé
demo


demo dans userform

 

Dernière édition: 4 Janvier 2020

Vote positif 0 Vote négatif

C

Cloburk

XLDnaute Nouveau

• 5 Janvier 2020

• #5

Bonjour Patrick, bonjour à tous,

Merci pour cette solution, ça fonctionne à merveille. Et encore merci pour cette solution qui remplace vraiment bien le DTpicker que j'utilisais jusqu'a ce que je sois confronté à Excel 64 bits.

Bon dimanche

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Janvier 2020

• #6

bonjour
de rien bon dimanche

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 5 Janvier 2020

• #7

Bonjour à tous.
Bonne année 2020 avec plein de nouveaux projets.
En parlant de projet, le calendrier de PatrickToulon m'interesse et serait il possible d'avoir le lien comme demandé parDUDU2 au post #2
Cordialement
Lolote83

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Janvier 2020

• #8

Bonjour Lolote83
j'ai fait la correction dans les ressource mais ca n'est pas encore dispo because (doit passer l'approbation de la modération)

un peu de recherche et vous auriez trouvé LA RESSOURCE EST ICI EN VERSION ANTÉRIEUR POUR LE MOMENT
cela dit voici un exemplaire
bonne utilisation

 

Pièces jointes

• new calendar version 2019-2020 V.4.1.1.xlsm

  55.4 KB · Affichages: 46

Vote positif 0 Vote négatif

P

PHS

XLDnaute Nouveau

• 8 Janvier 2020

• #9

Bonjour
Je suis désolé mais j'ai une question de novice....que je suis.
Comment faire pour que ce petit fichier très pratique devienne une option insérable dans mes fichiers?

Merci de bien vouloir aider un débutant!
PHS

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Janvier 2020

• #10

Bonsoir
c'est l'userform et la facon d'ont on l'appelle qui est important
donc pour mettre mon claendrier dans ton fichier il suffit d'y transférer mon userform calendar
les methodes d'apelle sont soit dans le sheets soit dans le module pour la showtopleft

et c'est tout

 

Vote positif 0 Vote négatif

P

PHS

XLDnaute Nouveau

• 9 Janvier 2020

• #11

Bonjour

merci pour votre réponse rapide. Mais j'ai beau lire les explications pour méthodes d'appel je ne parvient pas à le faire dans mes fichiers ...mon niveau en VBA est proche du zéro....
Accepteriez vous de prendre un petit temps pour m'expliquer?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Janvier 2020

• #12

re
bonsoir
prends un fichier vierge

va dans le module feuil1
et met lui ca

VB:

Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True

    If Target(1).Row = 1 Or Target.Columns.Count > 1 Then Exit Sub

         Select Case Target.Column
        
        Case 1: Target = Calendar.ShowX(Target(1), 2, 0, 0): ' region = 0 ou "US" Etats Unis

        Case 2: Target = Calendar.ShowX(Target(1), 2, 0, 1):   ' region = 1 ou "FR" France

        Case 3: Target = Calendar.ShowX(Target(1), 2, 0, 2): ' region = 2  ou "CA" Canada

        Case Else:  Target = Calendar.ShowX(Target(1), 0, 2):   'automatique region

        End Select
        
   'Unload Calendar
End Sub

en gros ca dit
si la cellule selectionné au click droite est 1 c'est version US "mm/dd/yyyy"
si c'est la colonne 2 c'est francais "dd/mm/yyyy"
si c'est la colonne 3 c'est canadien "yyyy-mm-dd"

maintenant exporte le userform de mon fichier sur ton bureau par exemple

pour cela click droit sur le module "calendar" ( voir capture)



dans ton nouveau fichier
importe le calendar de la même façon "importer un fichier
et voila ton nouveau fichier a le calendar

ca peut pas être plus simple
ca je pourrais pas le faire a ta place

 

Vote positif 0 Vote négatif

Flown720

XLDnaute Nouveau

• 10 Janvier 2020

• #13

Bonjour,
Moi, je viens de tester chez moi car je trouve que ce calendrier est vraiment top.
j'ai bien coller le code d'appel dans une feuille vierge, et importer le userform
et quand je clique droit, ça me met cette erreur sur cette ligne là ?

 

Vote positif 0 Vote négatif

P

PHS

XLDnaute Nouveau

• 10 Janvier 2020

• #14

chez moi ca marche merci beaucoup!

 

Vote positif 0 Vote négatif

Flown720

XLDnaute Nouveau

• 10 Janvier 2020

• #15

Désolé d'avoir polluer un post, j'ai refait la manip et ça marche... ce matin, je devait pas être trop en forme....

 

Vote positif 0 Vote négatif