Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion meca13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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.
 
Bonjour à toutes et tous

Voici un calendrier
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

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
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
281
Réponses
8
Affichages
532
Réponses
1
Affichages
288
Réponses
6
Affichages
159
Réponses
6
Affichages
305
Réponses
12
Affichages
622
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…