Bonjour,
Je peux vous proposer le calendrier que j'ai développé, utilisable dans un formulaire ou dans une feuille. Ce calendrier gère les jours fériés et les week-end et se positionne en fonction de la zone à remplir.
Sa mise en place est simple :
1- stocker le contrôle ("calendrier.xlam" ci-joint) dans le répertoire de votre choix
2- ouvrir le classeur où vous voulez ajouter le contrôle
3- à partir du classeur, menu fichier --> ouvrir le contrôle
4- sauvegarder votre classeur
Le contrôle est à présent actif et sera désormais systématiquement chargé à chaque ouverture de votre classeur.
Son utilisation est simple :
Appeler la procédure "afficher_calendrier(objet)" où objet est une Textbox ou une cellule Range.
Exemple de code associé à une feuille pour la colonne A
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("A")) Is Nothing And Target.Count = 1 Then
'affichage calendrier
Call afficher_calendrier(Target)
End If
End Sub
Exemple de code associé à un TextBox dans un UserForm :
Private Sub TextBox1_Enter()
'affichage calendrier
Call afficher_calendrier(TextBox1)
End Sub