Calendrier portable Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
Fred35
Membre dévoué
Membre dévoué
Messages : 867
Appréciation reçue : 1
Inscrit le : 31 mars 2012
Version d'Excel : 2003 FR, 2013 FR

Message par Fred35 » 12 novembre 2014, 11:33

Bonjour,

J'ai trouvé ce calendrier sur le net qui est vraiment pratique.
Mais je bloque sur la couleur de police. J'ai compris le principe de couleur des fonds avec la variable coul mais j'aurais aimer que la police soit de couleur blanche pour les dimanches et mes tentatives sont infructueuses.

Quelqu'un aurait une idée ?

EDIT : avec le fichier c'est mieux (c'est le fichier d'origine).
Calendrier_portable.xls
(61 Kio) Téléchargé 60 fois
Avatar du membre
mbbp
Passionné d'Excel
Passionné d'Excel
Messages : 6'293
Appréciations reçues : 228
Inscrit le : 29 mars 2014
Version d'Excel : 2007 FR

Message par mbbp » 12 novembre 2014, 13:21

Bonjour le forum,

On peut changer la police, sa taille, son style mais peut-être pas sa couleur ?

Celle relative au fond de la cellule est : 16777215.

mbbp
Avatar du membre
BOB71AU
Membre dévoué
Membre dévoué
Messages : 649
Appréciations reçues : 12
Inscrit le : 1 janvier 2010
Version d'Excel : 2003 - 2007

Message par BOB71AU » 12 novembre 2014, 13:36

Bonjour

Dans le module fonctions
    With Obj
        .Name = "Bouton" & i
        .Object.Caption = i
        .Left = Gauc
        .Top = T
        .Width = 20
        .Height = 20
        .Object.BackColor = Coul
        If Coul = 3754751 Then
           .Object.ForeColor = &HFFFFFF
        End If
    End With
Cordialement
Bob
Avatar du membre
mbbp
Passionné d'Excel
Passionné d'Excel
Messages : 6'293
Appréciations reçues : 228
Inscrit le : 29 mars 2014
Version d'Excel : 2007 FR

Message par mbbp » 12 novembre 2014, 13:59

Re,

Bravo à BOB71AU pour son code.

Modification de la couleur de fond du samedi pour avoir uniquement la police de couleur blanche le dimanche.

mbbp
Calendrier couleur police.xls
(78 Kio) Téléchargé 46 fois
Avatar du membre
Fred35
Membre dévoué
Membre dévoué
Messages : 867
Appréciation reçue : 1
Inscrit le : 31 mars 2012
Version d'Excel : 2003 FR, 2013 FR

Message par Fred35 » 13 novembre 2014, 00:06

Bonsoir,

Merci à vous 2, que dire de plus, juste parfait ^^
p
pijaku
Membre fidèle
Membre fidèle
Messages : 424
Appréciations reçues : 27
Inscrit le : 14 janvier 2010
Version d'Excel : 2010 FR

Message par pijaku » 14 novembre 2014, 10:37

Bonjour,

Je me permet de relancer ce sujet.
Suite à la lecture de cette question de Fred35, j'ai apporté des modifications au fichier de base pour en faire un UserForm paramétrable.

Vous pourrez dorénavant choisir vous même les couleurs de fond et de polices des différents contrôles du calendrier.
Ces paramètres de couleur sont sauvegardés à chaque clic sur le bouton "Valider".

Vous pouvez également choisir des couleurs ne faisant pas partie des couleurs supplémentaires que j'ai ajouté.
Pour cela, il suffit d'écrire le code Long de votre couleur dans le textbox, de choisir à quel endroit du calendrier vous souhaitez l'affecter (boutons d'option) et de valider.

Pour accéder aux différents paramètres, clic droit soit sur le fond du calendrier, soit sur un des boutons de commande.
calendrier_portable.xls
(116.5 Kio) Téléchargé 49 fois
Merci de votre intérêt et de vos éventuels retours.

Cordialement,
Pijaku
Cordialement,
Franck
Avatar du membre
Fred35
Membre dévoué
Membre dévoué
Messages : 867
Appréciation reçue : 1
Inscrit le : 31 mars 2012
Version d'Excel : 2003 FR, 2013 FR

Message par Fred35 » 14 novembre 2014, 22:16

Bonsoir,

Merci Pikaju pour ta contribution, c'est vraiment du beau travail et j'espère avoir un jour la possibilité d'avoir ce niveau.

J'ai cependant une petit question concernant les jours de la semaine.
Est il envisageable de pouvoir paramétrer des couleurs pour chaque jour de la semaine ou l'architecture du calendrier ne le permet pas ?

En tout cas merci pour ta participation, je me suis empressé de prendre ta version en modifiant la couleur du dimanche que je devait dissocier du samedi.
p
pijaku
Membre fidèle
Membre fidèle
Messages : 424
Appréciations reçues : 27
Inscrit le : 14 janvier 2010
Version d'Excel : 2010 FR

Message par pijaku » 15 novembre 2014, 09:06

Bonjour,

En fait, je n'ai vu les réponses ici qu'après avoir retravaillé sur le fichier.
Je n'ai pas envisagé cette possibilité.
Mais c'est tout à fait faisable.
Par contre, le code fourni avec le second fichier est une usine à gaz. Ceci est du à une adaptation trop vite réalisée sans être préalablement pensée.
Je vais donc me remettre sur la table de travail avec papiers, colle ciseaux et crayons et refaire ceci en tenant compte de ta suggestion.
A bientôt donc avec une version 3...
Bon week end.
Cordialement,
Franck
Avatar du membre
mbbp
Passionné d'Excel
Passionné d'Excel
Messages : 6'293
Appréciations reçues : 228
Inscrit le : 29 mars 2014
Version d'Excel : 2007 FR

Message par mbbp » 15 novembre 2014, 14:14

pijaku a écrit :Par contre, le code fourni avec le second fichier est une usine à gaz. Ceci est du à une adaptation trop vite réalisée sans être préalablement pensée.
Attention : ces 3 lignes de code ajoutées (qui permettent de changer une couleur) sont dangereuses.
        .Object.BackColor = Coul
        If Coul = 3754751 Then
           .Object.ForeColor = &HFFFFFF
mbbp
Avatar du membre
Fred35
Membre dévoué
Membre dévoué
Messages : 867
Appréciation reçue : 1
Inscrit le : 31 mars 2012
Version d'Excel : 2003 FR, 2013 FR

Message par Fred35 » 15 novembre 2014, 14:47

Bonjour,
mbbp a écrit :Attention : ces 3 lignes de code ajoutées (qui permettent de changer une couleur) sont dangereuses.
Peux tu développer ?
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message