collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal 5.2 2024

[patricktoulon]

patricktoulon a mis à jour collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal avec une nouvelle entrée de mise à jour:

vous avez maintenant le skinner avec

ATTENTION
IL FAUT COCHER LA CASE DANS LES PARAMETRES MACROS
"accès approuvé au modèle d'object du projet vba"
sinon le skinner ne fonctionnera pas
Lire le reste de cette entrée de mise à jour...

 

[Alain 79]

Bonjour,
Je souhaiterais lorsque j'utilise le calendrier le résultat s'affiche au format "date longue = jjjj jj mmmm aaaa".
Je n'arrive pas à voir dans la macro où je peux modifier le format pour arriver à ce résultat.
Par avance, merci pour la réponse.
Cordialement

 

[Alain 79]

Re
C'est bon j'ai fini par trouver la partie à modifier.
Désolé pour le dérangement.
"Case 1, 12, 33, 14, 15, 44: Forme = "dddd dd mmmm yyyy": Calendar.FormDat = Forme"
Par la même occasion, j'en profite pour t'adresser toutes mes félicitations pour cet excellent travail.

 

[JCabral]

Juste une petite correction à :

    Case 15
        Calendar.Cbmonth.List = Split("janeiro, fevereiro, março, abril, correio, junho, julho, agosto, setembro, outubro, novembro, dezembro", ",")
        Listdays = Split("seg,ter,qua,quin,sex,sáb,dom,,Sem", ",")

là où se trouve "correio", il devrait s'agir de "maio"

 

[patricktoulon]

@JCabral
en effet je me demande comment c'est arrivé là
espagne "mayo"
portugal "maio"

merci les gars

 

[patricktoulon]

Re
C'est bon j'ai fini par trouver la partie à modifier.
Désolé pour le dérangement.
"Case 1, 12, 33, 14, 15, 44: Forme = "dddd dd mmmm yyyy": Calendar.FormDat = Forme"
Par la même occasion, j'en profite pour t'adresser toutes mes félicitations pour cet excellent travail.

si j'etais toi je ne ferais pas ca

perso j'aurais ajouté un case date longue
par exemple ici j'ajoute une region 111

comme tu peux le voir je remet la region à 1 (france) dans le case
ce qui fait que si j'appelle mon calendar avec region 111

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Target = Calendar.ShowX(Target, 2, 0, 111)
Cancel = True
End Sub

ben le résultat est nickel

et comme ca tu n'a pas besoins de recoder à l'origine si tu veux revenir au bon format

voila voila

 

[Alain 79]

Merci beaucoup pour le conseil et la réponse. J'effectue immédiatement la modification.

 

[Alain 79]

Je reviens vers toi car je souhaiterai que la commande d'appel du calendrier ne soit active pour une feuille dans une seule cellule (par exemple la cellule (D8) et pour une autre feuille que certaines colonnes (par exemple les colonnes B, I, K).
Je ne me souviens pas comment le formuler dans le code VBA des feuilles concernées (C'est surement dû à mon grand âge de perdre un peu la tête)
Par avance, je te remercie

 

[patricktoulon]

Bonjour @Alain 79
dans la feuille de la cellule D8

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$8" Then
Target = Calendar.showx(Target, 2, 0, 1)
cancel=true
else cancel=false
End If
End Sub

dans la feuille qui concerne les colonnes B,I,et K

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("b:b,I:I,K:K")) Is Nothing Then
        Target = Calendar.Showx(Target, 2, 0, 1)
        Cancel = True
    Else: Cancel = False
    End If
End Sub

 

[Alain 79]

C'est extraordinaire une telle rapidité pour apporter la solution.
Merci beaucoup.

 

[patricktoulon]

 

[Alain 79]

Encore moi car j'ai un problème que je n'arrive pas à m'expliquer.
Lorsque que je clique dans la cellule, le calendrier apparaît normalement mais lorsque je clique sur un jour, j'ai un message d'erreur : et en cliquant sur Débogage, "Ligne Target = Calendar.showX(Target, 2, 0, 1)" surlignée en jaune

 

[patricktoulon]

re
bonjour @Alain 79
oui mais en fait c'est dans le calendar que ça a planté
après sans fichier il m'est difficile de te dire je ne suis pas devin si les cellules ne sont pas protégées ou je ne sais quoi difficile sans fichier d'apporter un diag

 

[Alain 79]

Bonsoir
Merci de m'avoir répondu. J'ai enfin trouvé la raison du problème. Cela vient de la protection de la feuille et bien que la cellule en cause ne soit pas verrouillée. J'ai fait des essais avec le même formulaire dans une nouveau fichier et je n'avais pas de problème.
Satisfait de pouvoir utiliser ton calendrier.

 

[Benou10]

Bonjour,
je suis novice dans ce domaine et je souhaiterai savoir si il y a un tuto pour utiliser le calendrier dans un userform.
J'ai créé un questionnaire qu'avec des userform et dans ma première userform, il faut indiquer une date de naissance comme je n'ai pas trouvé de code pour que le répondant marque la date sous forme JJ/MM/AAAA, je tente en utilisant un calendrier.

J'ai téléchargé celui de patricktoulon mais je ne sais pas du tout comment l'intégrer à mon userform.

Pouvez-vous m'aide s'il-vous-plait?

En vous remerciant