[Résolu par Si... et Bebere] Calendrier-Jacques Boisgontier

[Lone-wolf]

Bonjour le Forum, Bonjour Jacques,

J'ai refais un calendrier personnalisé d'après celui susmentionné, mais je me trouve confronté à deux problèmes. Le premier, c'est de pouvoir afficher les jours masqués en y mettant comme couleur de texte (couleur système - Texte désactivé). Le deuxième, la mise en forme de la date du jour comme ceci.

With Me("Label" & i + decal)           
If .Caption = Left(Date, 2) Then
    .BackStyle = 0
    .BackColor = Me.BackColor
    .BorderStyle = 1
    .BorderColor = &H80000011
     Else
    .BackStyle = 1
    .BackColor = vbWhite
    .BorderStyle = 0
    .BorderColor = vbWhite
    End If
end With

Un petit coup de main serait le bienvenu. Merci d'avance.


A+ 😎

 

[xhudi69]

Re : CalendrierForm 1 Date de Jacques Boisgontier

Bonjour Lone-wolf, le Forum,

Quel hazard ! je viens de posté la même chose, regarde la PJ.........bonne continuation.

@+ 😎

 

[Bebere]

Re : CalendrierForm 1 Date de Jacques Boisgontier

bonjour Lonewolf,Xhudi
une autre proposition

 

[Lone-wolf]

Re : CalendrierForm 1 Date de Jacques Boisgontier

Bonjour xhudi69, Bebere,

@xhudi69: désolé, mais comme en ce moment je travail avec un PC - Win 8.1 - Office 2010 32bits, (le mien ayant rendu l'âme- qu'il soit démonté en paix 😀 😱);le MonthView n'est pas opérationnel, ça me donne une erreur DllRegister 08 x ...... Pourtant sur youtube et sur le net, j'ai vu La MonthView affichée sur Office 2013.

@Bebere: c'est Top!. Maintenant pour personnaliser la date du jour, dois-je utiliser la macro Private Sub colorx(i) ?. Sinon, j'ai ajouté ceci dans l'initialisation du formulaire, mais quand je change de mois, le label reste toujours en couleur.
EDIT: Lors du changement d'année(2015) , certains jours restent grisé, voir image. Tu voudrais bien adapter la macro s'il-te- plaît? 😱

 If GrDate(nb).GroupeLabel.Caption = Left(Date, 2) Then
            GrDate(nb).GroupeLabel.BackStyle = fmBackStyleOpaque
            GrDate(nb).GroupeLabel.BackColor = &HFFFFC0
            GrDate(nb).GroupeLabel.BorderStyle = fmBorderStyleSingle
            GrDate(nb).GroupeLabel.BorderColor = &HFF0000
        End If

A+ 😎

 

[Bebere]

Re : CalendrierForm 1 Date de Jacques Boisgontier

LoneWolf
code dans module de classe
module1 debut et fin variables publiques
qui prennent leur valeurs dans Maj_Cal de userform1

 

[Lone-wolf]

Re : CalendrierForm 1 Date de Jacques Boisgontier

Bonsoir Bebere,

il y a un petit problème pour l'année 2015. Dans le fichier le mois de janvier débute un vendredi au lieu de jeudi.
EDIT: Je n'ai pas fais attention tout de suite, en affichant le calendrier, le mois de juin commence le 25.
Désolé de t'ennuier avec ça. 😱


A+ 😎

 

[Roland_M]

Re : CalendrierForm 1 Date de Jacques Boisgontier

bonjour à tous,

voir ce calendrier avec plusieurs possibilités !

 

[Lone-wolf]

Re : CalendrierForm 1 Date de Jacques Boisgontier

Bonjour Roland_M,

j'ai déjà eu l'occasion de voir le fichier mais, trop complexe pour moi (J'ai du mal à suivre le code 😱). Et puis mois, je veux faire au plus simple. Merci quand même pour ton intervention.


A+ : cool:

 

[Roland_M]

Re : CalendrierForm 1 Date de Jacques Boisgontier

msg supprimé !

 

[Si...]

Re : CalendrierForm 1 Date de Jacques Boisgontier

salut

le hasard ferait-il bien les choses ?

 

[Lone-wolf]

Re : CalendrierForm 1 Date de Jacques Boisgontier

Bonsoir Roland_M, Si...

@Roland_M: encore une fois, merci pour ton aide. Comme je l'ai dit avant, pour comprendre comment créer un calendrier, il faut que je commence par quelque chose de plus simple.

@Si..., la macro ne s'effectue pas quand je recule les mois (Juin > Mai>Avril). Tu voudrais bien contrôler?


A+ 😎

 

[Si...]

Re : CalendrierForm 1 Date de Jacques Boisgontier

re

correction :

Private Sub UserForm_Initialize()
For n = 1 To 31: Set Cb(n).Cb = Me("C" & n): Next
[Année] = Year(Date): [Mois] = 1: Feuil1.[C1] = [Année]
For n = 1 To 31: Me("C" & n).Caption = n: Next
jour
End Sub

donc fichier précédent changé

 

[Lone-wolf]

Re : CalendrierForm 1 Date de Jacques Boisgontier

Bonsoir Si...,

Merci pour la correction. Juste(si possible) faire une dernière modification, sur les jours en lettre; les laisser figés, c'est à dire de lundi à dimanche.

Je verrais ça demain de plus près.


A+ 😎

 

[Bebere]

Re : CalendrierForm 1 Date de Jacques Boisgontier

bonjour
version améliorée et ajout couleur pour sam,dim,férié

 

[Si...]

Re : CalendrierForm 1 Date de Jacques Boisgontier

salut

2 autres exemples : codes plus simples et affichage à minima (la liste des jours fériés étant définie sur un nouvelle onglet),
le premier pour garder les étiquettes.