Question sur "Calendar" de Alain GROS

Cousinhub

XLDnaute Barbatruc

• 13 Février 2008

• #2

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 13 Février 2008

• #3

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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 13 Février 2008

• #4

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

 

Pièces jointes

• essai calendrier.xls

  38.5 KB · Affichages: 45
• essai calendrier.xls

  38.5 KB · Affichages: 52
• essai calendrier.xls

  38.5 KB · Affichages: 48

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 13 Février 2008

• #5

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

 

Dernière édition: 13 Février 2008

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 13 Février 2008

• #6

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.

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 13 Février 2008

• #7

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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 14 Février 2008

• #8

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.

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 14 Février 2008

• #9

Re : Question sur "Calendar" de Alain GROS

Bonjour

Macros à modifier
Dans l'USF

Code:

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

et dans la feuille

Code:

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

JP

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 14 Février 2008

• #10

Re : Question sur "Calendar" de Alain GROS

PARFAIT🙂🙂
Merci pour tout.🙂🙂

 

Vote positif 0 Vote négatif