XL 2013 Problème d’enregistrement de fichier avec calendrier

[zegmanour]

Bonjour à tous,

J’ai téléchargé un fichier excel posté par M. Dranreb sur ce site, qui contient un calendrier, puis dans le visual basic de ce fichier, j’ai exporté l’UserForm sur mon ordinateur.

Après, j’ai créé un nouveau fichier et pour insérer dans chaque cellule de colonne C.D.H.I.L et L un calendrier pour choix de date, j’ai importé cet UserForm, maintenant je rencontre de problème lors de l’enregistrement en me demandant toujours (l’enregistrement sous) et même au niveau de la vérification d’absences de problème.

Je vous serais très reconnaissant si vous pouviez m'aider à résoudre ce problème même avec un autre calendrier.

Merci

 

[fanfan38]

Bonjour et bienvenu sur le forum
Ci joint ma solution

A+ François

 

[sylvanu]

Bonjour Fanfan,
Il doit manquer un "n" :

If Target.cout > 1 Then Exit Sub

If Target.count > 1 Then Exit Sub

🙂

 

[zegmanour]

Merci pour vos réponses
je reçois ce message en cliquant sur le cellules

voila mon code avant le problème:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C2:C1000😀2😀1000:H2:H1000:I2:I1000:K1:K1000:L2:L1000")) Is Nothing Then
UFmCalenS.Posit Target, 1, 0.9
Target.Value = UFmCalenS.Saisie(Titre:=" ", DInit:=Target.Value, Défaut:=Target.Value)
End If
End Sub

 

[sylvanu]

je reçois ce message en cliquant sur le cellules

Voir post #3 !

 

[fanfan38]

Bonjour Sylvanu
En effet il manque un n...

A+ François

 

[zegmanour]

Bonjour Sylvanu
En effet il manque un n...

A+ François

Grand Merci à vous deux Messieurs.
Le tableau fonctionne très bien, la solution est parfaite, Merci beaucoup pour votre aide

Une dernière question s’il vous plait, concernant les résultats de l’inspection de classeur :
N° 1. Commentaires et annotations, (!)
Est-ce que c’est normal ou il y a un risque?

 

[fanfan38]

Bonjour
Aucun risque
A+ François

 

[zegmanour]

Bonjour
Aucun risque
A+ François

Merci beaucoup pour votre aide