Bonjour,
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 "charger_calendrier(objet)" où objet est une Textbox ou une cellule Range.
Exemple de code associé à une feuille pour la cellule "A1"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
'affichage calendrier
Call charger_calendrier(Target, Date_début)
End If
End Sub
Exemple de code associé à un TextBox dans un UserForm :
Private Sub TextBox1_Enter()
'affichage calendrier
Call charger_calendrier(TextBox1, Date_début)
End Sub
NB: Le paramètre de date est optionnel, s'il n'est pas fourni, la date du jour sera prise par défaut.
ci-joint calendrier