Créer un calendrier sous forme de POP-UP

Bonjour,

J'aimerais avoir la possibilité d'avoir 3 fenêtres de calendrier sous forme de POP-UP distinctes d'une à l'autre.

Voir dans le fichier TEST en attachement

J15

F19

I19

Le calendrier que vous voyez est une image

Merci

Bonsoir,

je n'ai pas tout suivi de votre fichier, je télécharge le "test" et je me retrouve avec un calendrier "scolaire" qui s'ouvre lors d'un clic sur la cellule J15 ! Merci d'avoir prévenu ! Peut-être est-ce dû que j'ai en mémoire votre fichier calendrier suite à la participation pour aide de mise en place de couleur en fonction des dates de vacances ?

Quel genre de calendrier souhaitez-vous mettre en place ? Car il y en a un de très bon ici.

@ bientôt

LouReeD

Voici le genre de calendrier que je parle

Merci

Bonjour,

Alors il y en a de très bien en téléchargement sur ce site. Celui de Gautier par exemple je vous ai mis le lien dans le précédent message.

@ bientôt

LouReeD

Merci. Comment je fais pour le mettre en place dans mon ficher Excel sans inclure l'heure dans le calendrier ?

Merci

Bonsoir,

un peu absent en ce moment...
Dans le code du USF modifiez ceci :

Private Sub NewSelection(Val As Integer)
    If CurrentModeInfo = "ANNEE" Then: YearInfo = Me.Controls("A" & Val): Call CalendarUpdate_Month: Exit Sub
    If CurrentModeInfo = "MOIS" Then
        If Val > 12 Then YearInfo = YearInfo + 1
        MonthInfo = Val
        Call CalendarUpdate_Day
        Me.Frame2.Visible = True
        Me.Frame1.Visible = False
        Exit Sub
    End If
    If CurrentModeInfo = "JOUR" Then
        If Val >= ScaleDownInfo And Val <= ScaleUpInfo Then
            DateSelected = CDate(Val - ScaleDownInfo + 1 & "/" & MonthInfo & "/" & YearInfo) '& " " & Me.LiveClock
            MsgBox DateSelected
            'Unload Me
        End If
        If Val < ScaleDownInfo Then
            MonthInfo = MonthInfo - 1
            If MonthInfo = 0 Then MonthInfo = 12: YearInfo = YearInfo - 1
            Call CalendarUpdate_Day
        End If
        If Val > ScaleUpInfo Then
            MonthInfo = MonthInfo + 1
            If MonthInfo = 12 Then MonthInfo = 1: YearInfo = YearInfo + 1
            Call CalendarUpdate_Day
        End If
    End If
End Sub

En fait j'ai mis en commentaire la partie horaire du format.

@ bientôt

LouReeD