Agenda

Re : Agenda

Bonsoir le forum et TATIAK

super boulot

mais j'ai un petit bug quand je veux supprimer le (pas de couleur) du mardi 29 décembre

est ce que d'autre on le mème problème (voir capture)

Amicalement Votre

Re : Agenda

Bonjour TATIAK,
toujours super ce fichier pour moi c'est OK

est ce que l'on peut avoir plus de choix au niveau des couleurs?

Amicalement Votre

Re : Agenda

bonjour tatiak, philo et le forum

merveilleux classeur qui fonctionne très bien pour les rendez-vous journaliers, mais moi qui veux me le faire professionnel j'ai toujours les problèmes évoqués plus haut

Pascal

Re : Agenda

Bonjour a tous

en effet la modification avec planning est très inintéressante, pour ma part j ai également besoins de faire des modifications pour l'exploiter au minimum.

Cet agenda va servir a faire passer des consignes entre 4 personnes qui gèrent un planning dans caserne de sapeurs pompiers .

Pour répondre à Grisan29 dans un post précédent , le motif est qu'il y a certaine zone de texte que je souhaite modifier
-exemples :
- enlever lieu et mettre Agent RH ( agent Ressources Humaines )
- légende de couleurs
- saisir par défaut TOUS dans la case agenda

la modification de l’user-forme RDV me parait pas compliquée ( déplacer des cases , copier / coller des cadres )

par contre après c'est autre chose, je ne comprend pas grand chose , j ai bien 1 livre qui explique le VBA mais assez complexe donc si quelqu'un a un lien ou document pour m’éclaircir je suis preneur

en pièce jointe le rendu final que je souhaite

merci pour votre aide

Re : Agenda

Bonjour à vous,
Nono1835 , si tu veux bien partager ton travail je veux bien faire le job pour toi. Pour mettre "Tous" par défaut il faut ajouter dans Private Sub UserForm_Initialize()
et après
ComboBox1.List = USF_Agenda.ComboBox1.List
ComboBox1.ListIndex = 0

Grisan29, pour la réservation sur trois jours, il faut entendre que la macro ne commence pas à 0 mais à 1. Lorsque tu répètes un événement, tu répètes l'événement que tu as créé il faut indiquer deux, car une création d'une événement et la répétition de celui-ci deux fois font bien trois événements.

Ou alors tu gardes ta logique de trois événements en tapant 3 et tu modifies le code suivant dans
Private Sub CommandButton1_Click() ' valider
à la ligne
nb_repet = IIf(Label22.Caption = "Non", 0, TextBox10.Value)
For j = 0 To nb_repet
soit tu fais
nb_repet = IIf(Label22.Caption = "Non", 0, TextBox10.Value - 1)
For j = 0 To nb_repet
soit tu fais
nb_repet = IIf(Label22.Caption = "Non", 0, TextBox10.Value)
For j = 0 To nb_repet - 1

Le tout devant être validé par Tatiak, mais je pense que cela fera ton affaire.

Par ailleurs et je sais pas faire pour le coup, sur un post précédent tu évoquais dans le multipage une page registre des clients qui pourrait être mis en lien avec l'userform RDV, je pense qu'il faut passer par du SQL comme là fait sur la dernière version Tatiak. Mais là je suis perdu... Par ailleurs, avec l'ajout d'une page à ton multipage, je pense que tu peux nommer ton fichier "agenda V2a"

Voilà pour ma contribution.

Cordialement,

Leakim

Re : Agenda

bonjour Leakim, tatiaket le forum

Leakim je viens d'essayer tes solutions et c'est la dernière qui fonctionne

maintenant comme tu le dit il faut l'aval de Tatiak
mais s'il le donne je mets en résolu pour moi les 2 post avec lien, mais sans bloquer nono1835 qui l'initiateur du post

par ailleurs tu as relevé

Par ailleurs et je sais pas faire pour le coup, sur un post précédent tu évoquais dans le multipage une page registre des clients qui pourrait être mis en lien avec l'userform RDV, je pense qu'il faut passer par du SQL comme là fait sur la dernière version Tatiak. Mais là je suis perdu... Par ailleurs, avec l'ajout d'une page à ton multipage, je pense que tu peux nommer ton fichier "agenda V2a"

Cliquez pour agrandir...

vu la complexité des modules de classe je crois je vais abandonné cette option

Pascal

Re : Agenda

grisan29 à dit:

vu la complexité des modules de classe je crois je vais abandonné cette option

Cliquez pour agrandir...

Dommage ...

Leakim

Re : Agenda

bonjour Leakim

je ne me sens pas a même de liés cet agenda que Tatiak a merveilleusement réalise avec celui qu'il a répondu pour CALI ici et qui est du même cru a base des mêmes modules de classe car Tatiak et PierreP56 sont la même personne de qualité

car si cela se fait il faudrait que je le mette sur mon classeur de facturation pour remplacer celui que notre cher Dranreb a créer également a module de classe

Pascal

Re : Agenda

bonjour Tatiak

merci de tout ce que tu as fait
mais a ce stade de l'année tu as d'autres chat a fouetter et je le comprends très bien
tu même reporter a 2016 tes réponses car 2015 on n'en parlera bientôt plus
je vais clore l'autre post pour l'agenda

bonne fêtes de fin d'année a toi et le forum

Pascal

Re : Agenda

salut Leakim , salut le forum

leakim peux tu me faire une impr ecran de l endroit ou inclure les infos que je doit mettre pour avoir "TOUS" par défaut dans l’espace texte agenda.

mon support de travail est la dernière version de tatiak

merci
Nono

Re : Agenda

Bonjour Tatiak, nono1835, Leakim et le forum

Tatiak j'ai fait référence au dernier fichier que tu as mis au post 63 en mettant résolu le post que j'ai ouvert sur ce forum et c'est la dernière réponse que j'y ai fait

bonne fin d'année et Joyeux Noël

nono1835 voici un aperçu d’où il mettre la ligne que Leakim t'a donnée

Pascal

Re : Agenda

Re,

Nono1835 à dit:

mon support de travail est la dernière version de tatiak

Cliquez pour agrandir...

Oui je me doute bien, et cela m'arrange bien je t'avoue Mais tu as mis une capture d'une userform. est ce que tu peux joindre cette userform. Cela m'évite de tout reprendre ta mise en forme.

J'ajoute que c'est la moindre de chose de rendre à Tatiak ce qui revient à Tatiak !

Cordialement,

Leakim

Re : Agenda

Bonjour à tous,
Salut Pierre,

Encore de la belle ouvrage avec une émulation qui fait plaisir à lire.

Bravo les gars

A++
A+ à tous

Re : Agenda

Bonsoir à tous,

Bravo pour ce superbe travail !

Remercions vivement Pierre dont-on du mal à imaginer le temps passé à concevoir cette agenda et, de plus, tout cela gratuitement !!!

Merci beaucoup à également aux autres qui ont fait progresser cette agenda fort utile !

Bonne soirée et bonne fête à tous !

Re : Agenda

Un dernier commentaire pour aujourd'hui,
Une version dans laquelle j'ai corrigé un bug suite à ma proposition à grisan29 sur la répétition d'événement

nb_repet = IIf(Label22.Caption = "Non", 1, TextBox10.Value)
For j = 0 To nb_repet - 1

et une correction que j'ai apporté pour l'initialisation de l'userform rdv lors d'une modif de RDV.

.ComboBox1.Value = IIf(Sheets("Data").Cells(lig, "J").Value = "", "Tous", Sheets("Data").Cells(lig, "J").Value)

Ce qui permet d'avoir "tous" dans la combobox agenda, si c'est un événement qui a été créé pour tous, bien sûr.

Deux bricoles que je suis content d'avoir corrigé tout seul.
J'espère que la proposition de la mise ne forme de l'userform correspondra aux besoins de nono1835. Ton bug venait de l'ajout d'une couleur et de l'incidence de cette introduction dans le code.

Merci encore à Tatiak pour ce travail.

Voilà dans l'attente de vous relire,
Joyeuses fêtes à vous.

Cordialement,
Leakim

Édit: Suppression fichier obsolète