Calendrier

meca13

XLDnaute Nouveau
Bonjour le forum,

Après avoir cherché dans les différents post, je viens vers vous car je ne trouve pas la solution.

J’ai un calendrier « calendar » sur lequel la date du jour est surligné, là pas de soucis.

J’aimerais avoir plusieurs dates surlignées dans ce calendrier, en exemple le 10,16 et le 20 février.

Cela est il possible ?

Cordialement,

Meca13
 

Pièces jointes

  • calendrier.xlsm
    19.6 KB · Affichages: 66

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Re bonjour,
Il y aurait un objet différent qui me permettrait de le réaliser, afin d'avoir un visuel sur plusieurs dates ?
Cordialement,
Méca13
quels critères ou conditions font que ces dates sont à mettre en surbrillance ????
- l'utilisation d'un calendrier personnalisé (personnalisable) implique l'abandon du complément "calendar" au profit d'un calendrier modifiable ou à modifier tels que ceux que tu pourra trouver parmi ceux déjà proposés sur ce forum.
 

VIARD

XLDnaute Impliqué
Bonsour®
quels critères ou conditions font que ces dates sont à mettre en surbrillance ????
- l'utilisation d'un calendrier personnalisé (personnalisable) implique l'abandon du complément "calendar" au profit d'un calendrier modifiable ou à modifier tels que ceux que tu pourra trouver parmi ceux déjà proposés sur ce forum.
Bonjour à toutes et tous

Voici un calendrier
Bonsour®
quels critères ou conditions font que ces dates sont à mettre en surbrillance ????
- l'utilisation d'un calendrier personnalisé (personnalisable) implique l'abandon du complément "calendar" au profit d'un calendrier modifiable ou à modifier tels que ceux que tu pourra trouver parmi ceux déjà proposés sur ce forum.
Bonjour à toutes et tous

Voici un petit calendrier à base de MFC
Je n'ai placé que 2 dates modifiables, pour plus il faut modifier la MFC.

A+ Jean-Paul
 

Pièces jointes

  • Calendrier(1).xlsm
    21.9 KB · Affichages: 60

Roland_M

XLDnaute Barbatruc
Bonjour tout le monde,

voir ceci en essai !
Il s'agit de mon calendrier autonome modifié pour l'occasion.
J'ai laissé seulement saisie date depuis un module,
mais ça peut être aussi depuis un module userform !
 

Pièces jointes

  • CalendrierRol_Meca13.xlsm
    71.4 KB · Affichages: 191

VIARD

XLDnaute Impliqué
Bonjour tout le monde,

voir ceci en essai !
Il s'agit de mon calendrier autonome modifié pour l'occasion.
J'ai laissé seulement saisie date depuis un module,
mais ça peut être aussi depuis un module userform !
Bonjour Roland

Super, magnifique ce calendrier

j'ai juste ajouté au boutonOK "ActiveCell = CalDateSELECT"
pour avoir la date dans la cellule sélectionnée, plus pratique pour moi.

Compliment

A+ Jean-Paul
 

VIARD

XLDnaute Impliqué

Roland_M

XLDnaute Barbatruc
re

j'ai supprimer le module de classe volontairement pour rester simple !
un seul userform à récupérer !

EDIT:
la saisie se passe ici, dans Private Sub UserForm_Activate()
avec la déclaration suivante (astuce fournie par Dranreb)
Private WithEvents ToggleJour As MSForms.ToggleButton, DoInputDate As Boolean

Private Sub UserForm_Activate()
...
...
'- ceci avec WithEvents ToggleJour
DoInputDate = False '#############
Do While Not DoInputDate: DoEvents
LbAujourdhui.Caption = Format(Dat, "dddd") & vbLf & Format(Dat, FormatDateUser$) & vbLf & Time
If Not ToggleJour Is Me.CadreJours.ActiveControl Then
If TypeOf Me.CadreJours.ActiveControl Is MSForms.ToggleButton Then
Set ToggleJour = Me.CadreJours.ActiveControl
Else
Set ToggleJour = Nothing
End If
End If
Loop
Set ToggleJour = Nothing: Exit Sub '
...
...
End Sub
 
Dernière édition:

Discussions similaires

Réponses
3
Affichages
409

Statistiques des forums

Discussions
312 201
Messages
2 086 171
Membres
103 152
dernier inscrit
Karibu