XL 2016 Erreur 1004 avec macro calendrier

[MCGS]

Bonjour,

Je suis nul en VBA et en Excel. Avec l'aide de "patricktoulon", j'ai installé son calendrier par glissé-déposé du UserForm "calendrier". Pour l'appel du calendrier, j'ai ajouté ce script dans la feuil1 (patricktoulon m'a encore aidé):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If  Target.Columns.Count > 1 Then Exit Sub
    If Intersect([A2:A1001,L2:L1001,O2:O1001,R2:R1001,T2:T1001], Target) Is Nothing Then Exit Sub
    Cancel = True
    Target = Calendar.ShowX(Target(1), 2, 0, 44)
End Sub

Les cellules cibles sont déverrouillées, et, tout fonctionne à merveille sans que la feuille ne soit protégée.

A la protection de la feuille, j'obtiens le message "erreur 1004" lors de l'écriture de la date comme si les cellules seraient protégées. L'appel du calendrier par doubleclick fonctionne.

J'ai tester quelques scripts trouvés sur le forum mais sans succès.

Avez-vous une idée?

Merci.

 

[sylvanu]

Bonjour MCGS,
J'ai fait une simulation de votre fichier tel que décrit ( vous auriez pu fournir un fichier test )
Chez moi ça marche, les cellules roses sont déprotégées,le reste est protégé par le mot de passe 1234.
Le problème vient d'autre part, mais pas du calendar.

 

[MCGS]

Bonjour sylvanu,

Déjà merci pour votre intervention, et, désolé pour le fichier, je n'en n'avais pas mesuré l'utilité.
Il semble que ce soit bien le module "calendar" qui pose problème. J'ai remplacé votre version par la dernière que j'utilise (4.2.2) de patricktoulon et le bug se répète.

Merci.

 

[patricktoulon]

Bonsoir
envoie ton fichier je regarde ça
et ne dis pas que c'est mon calendar sinon je cogne

 

[sylvanu]

Bonsoir Patrick,
Prenez la PJ #3, avec un mot de passe on obtient une erreur sur :

Target = Calendar.ShowX(Target(1), 2, 0, 1)

Alors qu'avec la PJ #2, pas de problème.
En PJ #2 j'ai juste pris votre module.
Donc le bug vient je pense de "l'adaptation" du module par MCGS... ou alors d'un effet de bord de la 4.1 vers la 4.2.2.

 

[sylvanu]

OUF !!! Ca vient pas de la macro de Patrick, on va gagner quelques décibels.
Le problème vient des options lors de la protection. Il faut déprotéger Format de cellule.

 

[patricktoulon]

le post#3 chez moi re protégé avec 1234 fonctionnent
a ben oui je force le format en fonction de la langue donc forcement le calendar tente de formater la cellule caller

"Il semble que ce soit bien le module "calendar" qui pose problème. "

j'en foutrais moi

merci @sylvanu

 

[MCGS]

Encore Merci @ sylvanu! et biensur à patricktoulon
Je cours de ce pas corriger le problème ...dangereux d’écrire des bêtises sur ce forum
Encore merci.

 

[MCGS]

Voilà!
Je confirme l'analyse de sylvanu. A la protection de la feuille, la case format de cellule était décochée. Après correction tout fonctionne. Le calendrier n'était donc pas en cause...
Encore merci à tous les deux. Je suis content.

 

[patricktoulon]

re
et bien sur
ce calendrier représente 8 ans d’évolution
les version 4.0 et + ont moins de 2 ans ces évolutions 4.xx sont le résultante des diverses demandes des uns et des autres
il a subi c'est vrai une re transformation en profondeur avec la 4.16 ou j'ai complètement refondu le code pour pouvoir ajouter ou modifier sans devoir tout re coder et modifier son look
a ce jour tout autour du globe personne ne l'a pris en défaut
la version 4.2.5 n'a pas été distribué
et enfin la version 4.3 qui inclu le skinner je ne l'ai pas distribué non plus elle me permet de changer les couleur sans toucher au code j'ai un interface skinner pour ca que j'ai développé en parallèle

petite demo

voilà pour la petite histoire

 

[MCGS]

Encore merci! Je le mets de côté celui-là et j'ai fait un petit mémo.
Merci pour l'historique.