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

[patricktoulon]

bonjour
a tu vu la vidéo?(àa la fin je montre comment l'installer sur son fichier
a tu lu dans les commentaire en haut de modul userform calendar
a tu vu que dans le classeur il y avait un userform appelant pour tester
bref si ça c'est pas assez tutoriel pour toi je vois pas ce que je peux faire de plus

 

[JPSonic51]

Bonjour patricktoulon, je viens de découvrir ton Calendar et son skinner (c'est vraiment un +). Pour faire cours, ton Calendar, c'est Topissime et très utile du fait de ne pas passer par un complément office. Je viens de faire un test dans un fichier et je rencontre un problème lié à mon code VBA afin de lancer le calendrier par double clic dans trois cellules fusionnées. Je suis loin d'avoir tes connaissances en VBA ; j'apprends beaucoup des utilisateurs d'Excel et de la lecture de code. Voici le code que j'utilise pour le moment :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect(Target, Range("K6:M6")) Is Nothing Then
               Target = Calendar.ShowX(Target, 2, 0, 1)
               Cancel = True
     End If
End Sub

Je déclenche le calendrier par un double clic dans une cellule fusionnée (K6:M6), les cellules ne sont pas verrouillées. Lorsque la feuille n'est pas protégée cela fonctionne, mais lorsque la feuille est protégée par un mot de passe mon code bloque sur la ligne : Target = Calendar.ShowX(Target, 2, 0, 1)
Ton Calendar n'est pas en cause, c'est bien ma procédure qui pose problème. Pour info, si je ne précise pas la plage, mais juste la référence de la cellule fusionnée K6, le calendrier ne se déclenche pas. Peux-tu me venir en aide ? 🙄

 

[patricktoulon]

re
bonsoir @JPSonic51
c'est normal tu dois déprotéger avent de modifier une cellule comme tout autre action d'ailleurs
quitte a re protéger ensuite

donc si pas de mot de passe on fera comme ça

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C3:E3")) Is Nothing Then
        ActiveSheet.Unprotect
        DoEvents
        Target = Calendar.ShowX(Target, 2, 0, 1)
        Cancel = True
        ActiveSheet.Protect
    End If
End Sub

voila c'est simple

 

[JPSonic51]

Re
Merci patricktoulon pour ta réponse, effectivement en déprotégeant la feuille au moment du double clic ça fonctionne, je re-protège la feuille en fin de procédure. J'ai pourtant des procédures sur des feuilles protégées dans lesquelles des cellules ne sont pas verrouillées et j'arrive bien à inscrire des valeurs sans avoir à déprotéger. Je pensais pouvoir faire pareil avec le Calendar sans avoir à ajouter des lignes pour enlever la protection sur la feuille et la remettre après. Merci encore pour ton travail, ton partage de connaissances et de code. 😉

 

[patricktoulon]

J'ai pourtant des procédures sur des feuilles protégées dans lesquelles des cellules ne sont pas verrouillées et j'arrive bien à inscrire des valeurs sans avoir à déprotéger.

regarde bien le message
il ne dit pas que tu peux pas inscrire mais que tu ne peux pas changer le numberformat
c'est pas la même chose

il aurait fallu cocher la le format dans la protection

 

[JPSonic51]

Je dis simplement Respect. Je n'ai aucune formation en VBA ou autre langage de programmation et il est un peu tard pour retourner sur les bancs d'école 😁 Je n'avais pas ce type de message dans mon vrai fichier. Merci encore et je te souhaite une bonne nuit

 

[patricktoulon]

Bonjour a tous
une mise a jour a été faite
deux nouvelles régions
bretagne (nos amis breton) region 11
et
allemagne(deutschland) region 35

 

[Alain 79]

Bonjour Patrick,
J'utilise ton calendrier dans différents fichiers ou différentes feuilles du même fichier sans aucun problème.
Alors, j'ai voulu me lancer dans le changement de thème et là je rencontre un problème.
1er essai, à partir du fichier téléchargé version V 2024.5.1 :

Je clique sur le bouton « Créer votre thème etc. », j’obtiens ça :

Ensuite si je clique sur « Nouveau theme » j’obtiens ça avec message d’erreur

Et en cliquant sur « Débogage » j’arrive à cette ligne :

2éme essai :
Je clique sur le bouton « Créer votre thème etc. » puiss je modifie le thème directement sur la boite affichée, lorsque je clique sur le bouton « Appliquer le theme », j’obtiens le message d’erreur :

Par contre, si je modifie le thème à partir de VBA mais avec les couleurs limitées, aucun problème.
Je n'arrive pas à comprendre la raison pour laquelle je ne suis pas capable d'utiliser ton excellent travail.

 

[patricktoulon]

re
bonjour
ouvre un post dans le forum
car là il va falloir chercher ça risque d'être long

 

[F22Raptor]

Bonjour à tous,
Je découvre le calendrier de Patrick, que je vais tenter d'intégrer dans un UserForm à la place d'un DatePicker.

Donc, si je comprends : il faudra lancer au démarrage d'Excel en arrière plan le fichier XLSM de Patrick
Puis, si je veux tester dans un Userform d'une de mes feuilles :
Je fais glisser le UF "Calendar" de Patrick dans mon fichier.
Mais ensuite, comment intégrer le Calendrier dans mon UF ?
Je n'ai pas d'objet à placer sur l'UF ?

EDIT : je viens de découvrir le UF "testeur" ... je regarde ça !

 

[patricktoulon]

Bonjour
Non!
je l'explique dans la vidéo
1°tu ouvre ton classeur
2tu ouvre mon classeur(que tu a téléchargé dans la ressource)
3° si il ne te plait pas comme çc tu ouvre le skin creator et tu change les couleurs ( demo dans video)
4° si il te plait comme ça tu va dans le vbe et tu devrait apercevoir ton projet et le mien
5° tu va dans mon projet et tu click sur "Calendar" en restant appuyé dessus
7° tout en restant appuyé dessus tu le glisse dans ton projet

terminé le calendar est installé
il ne te reste plus qu'a fermer mon classeur
et faire les appel dans une feuille ou control dans userform comme je le montre en haut dans les commentaire du code du calendar
a la fin de la vidéo je montre comment on fait pour l'installer

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

c'est pas compliqué
je vais finir par le remettre l'installateur 🤣 🤣

 

[F22Raptor]

Bonjour
Non!
je l'explique dans la vidéo
1°tu ouvre ton classeur
2tu ouvre mon classeur(que tu a téléchargé dans la ressource)
3° si il ne te plait pas comme çc tu ouvre le skin creator et tu change les couleurs ( demo dans video)
4° si il te plait comme ça tu va dans le vbe et tu devrait apercevoir ton projet et le mien
5° tu va dans mon projet et tu click sur "Calendar" en restant appuyé dessus
7° tout en restant appuyé dessus tu le glisse dans ton projet

terminé le calendar est installé
il ne te reste plus qu'a fermer mon classeur
et faire les appel dans une feuille ou control dans userform comme je le montre en haut dans les commentaire du code du calendar
a la fin de la vidéo je montre comment on fait pour l'installer

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

c'est pas compliqué
je vais finir par le remettre l'installateur 🤣 🤣

Yes ! Je viens de regarder : ça marche !
Je voulais lier le lancement du calendrier à une image en forme de flèche basse (comme pour le DatePicker), mais il n'aime pas, car il faut, si je comprends, que ce soit un objet dont la valeur est modifiable, donc Label ou Textbox.
Mais ça va parfaitement m'aller !

Outre la qualité de l'outil, je suis très impressionné par sa légèreté !
Ca ne pèse rien du tout en ko !
Bravo, super boulot, très impressionnant.

 

[patricktoulon]

ben tu met ton image dans un label et
nomdulabel.caption=Calendar.showx(nomdulabel,2,0,1)
tu aura une image clickable et la date viendra s'ecrire dessus

 

[F22Raptor]

ben tu met ton image dans un label et
nomdulabel.caption=Calendar.showx(nomdulabel,2,0,1)
tu aura une image clickable et la date viendra s'ecrire dessus

Pas bête ! Je regarde ça !

 

[patricktoulon]

re
a oui il y avait une petite carabistouille dans le potage avec le controls "Label"
la voici réglée j'ai corrigé dans le calendar
voila on peut donc avoir des input date avec image de fond