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

patricktoulon

XLDnaute Barbatruc

• 22 Août 2023

• #136

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

Cliquez pour agrandir...

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

 

Dernière édition: 24 Août 2023

A

Alain 79

XLDnaute Junior

Supporter XLD

• 4 Septembre 2023

• #137

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

 

A

Alain 79

XLDnaute Junior

Supporter XLD

• 4 Septembre 2023

• #138

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

XLDnaute Nouveau

• 4 Septembre 2023

• #139

Juste une petite correction à :

VB:

    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

XLDnaute Barbatruc

• 4 Septembre 2023

• #140

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

merci les gars

 

patricktoulon

XLDnaute Barbatruc

• 4 Septembre 2023

• #141

Alain 79 à dit:

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.

Cliquez pour agrandir...

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

VB:

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

 

A

Alain 79

XLDnaute Junior

Supporter XLD

• 4 Septembre 2023

• #142

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

 

A

Alain 79

XLDnaute Junior

Supporter XLD

• 12 Septembre 2023

• #143

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

XLDnaute Barbatruc

• 12 Septembre 2023

• #144

Bonjour @Alain 79
dans la feuille de la cellule D8

VB:

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

VB:

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

 

A

Alain 79

XLDnaute Junior

Supporter XLD

• 12 Septembre 2023

• #145

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

 

patricktoulon

XLDnaute Barbatruc

• 12 Septembre 2023

• #146

 

A

Alain 79

XLDnaute Junior

Supporter XLD

• 13 Septembre 2023

• #147

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

XLDnaute Barbatruc

• 13 Septembre 2023

• #148

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

 

A

Alain 79

XLDnaute Junior

Supporter XLD

• 14 Septembre 2023

• #149

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.

 

B

Benou10

XLDnaute Nouveau

• 19 Septembre 2023

• #150

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