Question sur "Calendar" de Alain GROS

[degap05]

Bonjour,

Je voudrais utiliser le "Calendar" de Alain GROS. Je l'ai modifié pour ouverture en double clic sur une cellule. Sur la feuille jointe, lorsque je veux sélectionner la date, la macro se bloque sur Format (8ème ligne), avec "erreur de compilation, projet ou bibliothèque introuvable".
Est-ce du à une absence de fonctionnalité de ma version Excel.
J'ai cherché la fonction "Calendar" et je ne l'ai pas.
Y a-t-il un moyen de contourner ceci ?

Merci beaucoup🙂🙂

Private Sub CommandButton1_Click()
Const MCM_FIRST& = &H1000&, MCM_GETCURSEL& = (MCM_FIRST + 1&)
Dim LeTime As SYSTEMTIME
'Récuperer la date sélectionnée
SendMessage mWnd, MCM_GETCURSEL, 0&, LeTime
With LeTime
MsgBox "Vous avez choisi le : " & vbNewLine & vbTab & _
Format(DateSerial(.wYear, .wMonth, .wDay), "dddd dd mmmm yyyy") & "."
End With
Unload Me
End Sub

 

[Cousinhub]

Re : Question sur "Calendar" de Alain GROS

Bonjour,
il faut que tu rajoutes la référence "Microsoft Calendar Control x.0"
x représente ta version d'excel (11 pour 2003)

dans l'éditeur VBE, tu fais Outils/Référence, tu cherches cette référence, sélectionne en cliquant dans le petit carré à gauche, puis OK

 

[jp14]

Re : Question sur "Calendar" de Alain GROS

Bonjour
Bonjour Bhbh


La solution à ce problème consiste à ouvrir un nouveau classeur et copier les macros dans ce nouveau classeur.
Le calendrier correspond au contrôle supplémentaire "Microsoft MonthView"


A lire paragraphe 2 de
Lien supprimé

JP

 

[degap05]

Re : Question sur "Calendar" de Alain GROS

Bonjour, merci JP14🙂

Sauf que lorsque je sélectionne une date, la cellule reste vide🙄🙄

J'ai beau définir le format de cellule, rien n'y fait ?????

 

[jp14]

Re : Question sur "Calendar" de Alain GROS

Bonjour (re)

Un exemple d'utilisation du calendrier
https://www.excel-downloads.com/threads/calendrier.90423/

Pour insérer une date dans la feuille
Dans un module créer une variable publique
Public date2 as date

dans la macro
Private Sub CommandButton1_Click()
Format(DateSerial(.wYear, .wMonth, .wDay), "dddd dd mmmm yyyy") & "."
' ajouter
date2 = DateSerial(.wYear, .wMonth, .wDay)

et modifier la macro
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Calendar.Show
Target.Value = date2
End Sub




JP

 

[degap05]

Re : Question sur "Calendar" de Alain GROS

Merci JP14, cela fonctionne parfaitement🙂

Pensez-vous qu'il serait possible de limiter l'appel du calendrier à certaines colonnes définies, d'une feuille ?


Merci.

 

[jp14]

Re : Question sur "Calendar" de Alain GROS

Bonjour (re)

En rajoutant dans la macro
If Target.Count > 1 Then Exit Sub ' pour éviter la sélection de plus d'une cellule
If Not Intersect(Target, Range("b4:b24")) Is Nothing Then ' pour définir la plage
ou
if target.column= 5 or target.column = 8 then ' pour les colonnes 5 ou 8


JP

 

[degap05]

Re : Question sur "Calendar" de Alain GROS

Bonjour et merci JP14,
Le complément de code ajouté à ma feuille de travail est parfait🙂
Une petite question complémentaire: lorsqu'on annule l'action sur le calendrier, sans choix de date, la cellule ne reste pas vide, mais indique une date par défaut🙁 c'est bête..........

Un petit remède ?

Merci.

 

[jp14]

Re : Question sur "Calendar" de Alain GROS

Bonjour

Macros à modifier
Dans l'USF

Private Sub CommandButton2_Click()
date2 = 0
    Unload Me
.......

et dans la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Calendar.Show
If date2 > 0 Then
Target.Value = date2
End If

JP

 

[degap05]

Re : Question sur "Calendar" de Alain GROS

PARFAIT🙂🙂
Merci pour tout.🙂🙂