Calendrier portable

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).

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

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

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

Bonsoir,

Merci à vous 2, que dire de plus, juste parfait ^^

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.

Merci de votre intérêt et de vos éventuels retours.

Cordialement,

Pijaku

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.

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.

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

Bonjour,

mbbp a écrit :

Attention : ces 3 lignes de code ajoutées (qui permettent de changer une couleur) sont dangereuses.

Peux tu développer ?

Re,

"Par contre, le code fourni avec le second fichier est une usine à gaz".

J'ai sans doute mal interprété !

Il ne doit pas s'agir du code proposé au début de la discussion.

mbbp

Bonjour,

Non mbbp. Je ne parlais pas des fichiers donnés ici, je parlais bel et bien de mon second fichier.

Il a en effet été construit à partir du premier calendrier au lieu d'être repensé depuis le début.

Il n'a jamais été question, pour ma part, de remettre en cause les contributions de chacun...

re-bonjour tout le monde,

Voici donc le nouveau classeur exemple.

Il y a pas mal de modifs qui peuvent être intéressantes...

Merci de me communiquer ici-même toutes vos critiques.

EDIT : Correction d'un bug d'affichage. Le nouveau fichier :

Désolé

Cordialement,

Pijaku

Bonjour,

Merci de me communiquer ici-même toutes vos critiques.

Adopté !

A+

Bonjour, je viens de tester et c'est plutôt sympa mais du coup il a perdu en option.

Je trouvais bien les paramètres de la version précédente.

Bonjour tout le monde,

@galopin :

Adopté !

Hop hop hop! Attend un peu ça n'est pas terminé...

En tout cas, merci.

@Fred :

mais du coup il a perdu en option

Ben en fait, non. Il en a même gagné pas mal, sans en perdre...

On a gardé les mêmes possibilités de changement des couleurs (polices et fonds) et on en a ajouté d'autres.

Ancienne version (V2) :

  • changement de couleurs (police + fond) de : "UserForm", "Boutons de commande", "Boutons journaliers" (une couleur mensuelle), "Week End", "Jours fériés".
  • Au clic sur un bouton "Jour" donne la date.
De plus, pour être exploité dans le classeur d'un utilisateur, tu devais importer : 3 modules de classe, 1 UserForm, 1 Module "standard" + la procédure Private Sub Workbook_Open() du module ThisWorkBook. En plus de cela, tu devais saisir les noms dans le gestionnaire des noms.

Nouvelle version (V3) :

  • changement de couleurs (police + fond) de : "UserForm", "Boutons de commande", "Boutons journaliers" (une couleur possible par Lundi, mardi etc), "Week End" est remplacée par "Samedi" & "Dimanche", "Jours fériés".
  • Donne la date, le jour dans la semaine, le numéro de semaine, s'il s'agit d'un jour férié et lequel...
L'exploitation dans un classeur personnel a été simplifiée. Il faut importer 2 Userforms, 1 module et 1 module de classe. Le gestionnaire des noms est automatiquement alimenté.

Mais ton ressenti exprime certainement un manque. Dis moi ce qu'il en est, je tâcherai d'y remédier.

@tous :

Il subsiste néanmoins des bugs et je vais y travailler ce matin.

  • décalage de l'affichage de l'userform de config en cas de clic droit dans le fond du Calendrier,
  • possibilité (à empêcher absolument) de choisir la même couleur de police et de fond pour le même type de contrôle...

N'hésitez pas!

Re-

mais du coup il a perdu en option

Mais ton ressenti exprime certainement un manque. Dis moi ce qu'il en est, je tâcherai d'y remédier.

Je crois avoir compris ce que tu exprimais.

Avant, en un (ou trois) clic l'on pouvait changer la couleur de tous les boutons du mois ou de tous les week end.

Maintenant, il faut faire la modification sur chaque jour du Lundi au Dimanche.

Fastidieux...

Voici donc la nouvelle version (V3.1) avec les modifications suivantes :

  • plus de bug d'affichage (cas du fond de l'userform),
  • on ne peut pas saisir la même couleur de police et de fond,
  • un clic droit sur un bouton "jours ouvrés" (autre qu'un jour férié et qu'un week end) permet de colorer tous les boutons du mois
  • Idem pour les week end,
  • mise à jour du Mode d'Emploi (seconde feuille).

Reste à faire, pour l'instant :

- amélioration du choix des couleurs (le classement n'est pas judicieux et les couleurs ne sont pas top...)

Je trouve ça génial, quand je disais il avait perdu en option, c'est parce qu'il n'y avait plus de fenêtre de configuration, ce qui m'a rendu perplexe, mais avec le mode d'emploi on s'y retrouve du coup.

Bravo pour le travail effectué

Bonjour Fred35, bonjour à tous,

Je vous l'ai promis hier :

- amélioration du choix des couleurs (le classement n'est pas judicieux et les couleurs ne sont pas top...)

mais comme moi et l'esthétisme ça fait 2 (voir 45...), j'ai préféré placer ce %$µ§°*_\ de truc en dernier...

Voici donc la dernière version du Calendrier.

Comme d'habitude, si vous ou l'un de vos collaborateurs décelait des améliorations possibles, n'hésitez pas à m'en faire part ici-même.

Améliorations de cette version :

- Choix des couleurs :

Dans un premier temps, l'UserForm ConfigCouleurs s'ouvre avec les couleurs de base d'Excel 2010 (Couleurs du Thème, celles que l'on peut choisir pour les couleurs de polices et/ou de fond de cellules Excel). Puis, lors d'un clic sur le bouton +, l'UserForm s'agrandit et nous donne toute la palette des couleurs Excel (Couleurs du Thème + Couleurs standard + Autres couleurs Standard).

- Possibilité de réinitialiser

J'ai remarqué lors de mes tests, qu'un plantage de l'UserForm ConfigCouleurs (ça peut arriver quoi un bug...) pouvait générer une erreur dans un des noms du gestionnaire de noms. Cela fait que vous ne pourrez plus ouvrir le Calendrier. Pour remédier à cela, j'ai créé une procédure (Reinitialisation_Noms) qui, comme son nom l'indique, rétablit les noms (configuration d'origine, la mienne pas la votre) dans le gestionnaire de noms de votre classeur.

- Redimensionnement des polices

Pour les boutons "OK", "X" et "+" de l'UserForm ConfigCouleurs... Un oubli de ma part réparé.

Et bien sur, la mise à jour du Mode d'emploi en seconde feuille...

What Else?

bonsoir,

Bravo Pijaku, c'est vraiment du bon boulot

Bravo.

Rechercher des sujets similaires à "calendrier portable"