Agenda

grisan29

XLDnaute Accro
Re : Agenda

bonjour tatiak,:cool: philo et le forum

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

Pascal
 

Nono1835

XLDnaute Junior
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
 

Fichiers joints

leakim

XLDnaute Occasionnel
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
 
Dernière édition:

grisan29

XLDnaute Accro
Re : Agenda

bonjour Leakim,:cool: tatiak:cool:et le forum

Leakim je viens d'essayer tes solutions et c'est la dernière qui fonctionne
Code:
For j = 0 To nb_repet - 1
:cool:

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"
vu la complexité des modules de classe je crois je vais abandonné cette option

Pascal
 

grisan29

XLDnaute Accro
Re : Agenda

bonjour Leakim

je ne me sens pas a même de liés cet agenda que Tatiak :cool: a merveilleusement réalise :cool: 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é:cool:

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

Pascal
 

tatiak

XLDnaute Barbatruc
Re : Agenda

Bon les gars, quelques précisions:

1/ Une suite est en cours de dev pour associer un contact à un évènement. Mais il me faut un peu de temps (+fêtes de Noël...).

2/ Vous pouvez modifier comme vous voulez ce que je met sur ce forum, mais si vous diffusez après faites référence à la source (comme le fait Leakim, merci à lui) . A noter : en revanche dans ce cas, je ne corrige pas vos bugs.

3/ Pas d'inquiétude pour Nono, je ne le laisse pas tomber...

@+
Pierre/tatiak/pierrep56
 

grisan29

XLDnaute Accro
Re : Agenda

bonjour Tatiak:cool:

merci de tout ce que tu as fait:cool:
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
 

Nono1835

XLDnaute Junior
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
 

grisan29

XLDnaute Accro
Re : Agenda

Bonjour Tatiak:cool:, nono1835:cool:, Leakim:cool: et le forum

Tatiak :cool: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
 

Fichiers joints

Dernière édition:

leakim

XLDnaute Occasionnel
Re : Agenda

Re,
mon support de travail est la dernière version de tatiak
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
 

JCGL

XLDnaute Barbatruc
Re : Agenda

Bonjour à tous,
Salut Pierre,

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

Bravo les gars

A++
A+ à tous
 

JBARBE

XLDnaute Barbatruc
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 !
 

leakim

XLDnaute Occasionnel
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
 
Dernière édition:

Philo

XLDnaute Occasionnel
Re : Agenda

Bonjour le forum et Leakim Tatiak Nono1835 grisan29

Je retrouve un bug sur la suppression des événements comme sur le post #61 que j'ai poster le22/12

autre petit bug quand on veux modifier un RDV sur l'userform Evenement on n'a plus le répéter qui s'affiche comme sur la capture 2

merci de corriger c'est petit bug

Amicalement Votre et joyeux noël a vous tous
 

Fichiers joints

Dernière édition:

leakim

XLDnaute Occasionnel
Re : Agenda

Re,
Je joins un fichier en réponse aux commentaires de philo.
Perso, pas de bug de suppression depuis la mise à jour V1h de Tatiak

En espérant que cela joue pour cette fois.

Leakim

Édit: Suppression fichier obsolète
 
Dernière édition:

grisan29

XLDnaute Accro
Re : Agenda

bonjour a tous

j'ai eu le même souci que philo mais une fois enregistrer le classeur sur le bureau ce problème a disparu, et j'ai fait l'essai avec le dernier classeur que Leakim a mis et c'est pareil

Pascal
 

leakim

XLDnaute Occasionnel
Re : Agenda

Salutations de noël !
Je suis un bidouilleur en VBA, je commence à savoir lire et adapter 2 ou 3 choses mais je ne parle ni n'écris couramment le VBA.
Alors je vais aller sous le sapin et attendre Tatiak.

Joyeuses fêtes à tous,

Cordialement,

Leakim
 

tatiak

XLDnaute Barbatruc
Re : Agenda

Bonjour et bonnes fêtes à tous,

@ à mon ami JC : merci de ton commentaire ! et content que ça te plaise! :)

@ Jbarbe : rien n'est gratuit, je t'envoie la facture ! :p

@ Philo : c'est bien prévu comme ça : pas de possibilité de modifier les Rdv répétés de façon globale
A toi de coder la fonction si tu en as besoin

@ Leakim : comme indiqué précédemment (#71) je n'ai pas laissé tomber Nono, demandeur initial de l'outil. Depuis le 23 déc, il dispose d'un agenda spécialement adapté à son utilisation professionnelle avec options, fonctions et configuration non "standard", le tout étant pleinement fonctionnel.
Je ne poste pas ici cette version car trop spécifique "métier".
Je te suggère de retirer du forum tes essais qui semblent présenter des bugs.


Ceci étant, passons au coeur du sujet.

***** Vous avez aimé AGENDA+, vous allez adorer "AGENDA+ & CONTACTS"! ***** ;)

Plus sérieusement, voici une appli "Agenda+ & Contacts" qui propose conjointement un agenda et une gestion des contacts (pour l'instant en version "debug") qui INTERAGISSENT entre eux.
Dans les grandes lignes :

GESTION DES CONTACTS :
* Liste des contacts :
-- cette liste peut être filtrée selon noms, fonctions ou sociétés
-- les informations de cette liste peuvent être modifiées directement depuis cette liste.
-- un clic droit sur une ligne ouvre la fiche du contact

* Fiche Contact :
-- double-clic sur l'adresse mail pour écrire un mail
-- saisie possible de plusieurs n° de téléphone (fixe, portable, bureau, fax, ...), pas de limitation de nb (en théorie)
-- possibilité de lier des documents (textes, pdf, images, ...) à chaque contact
-- page "diaporama" pour visualiser une miniature des images associées au contact
-- page "Historique" pour visualiser la liste des évènements/rdv programmés avec ce contact (et ouverture de la fiche évènement/rdv par double-clic sur une ligne)


AGENDA : en plus des fonctions décrites précédemment :
* Chaque évènement/rdv de l'agenda peut être relié à une pièce jointe et/ou à un contact => clic sur "Associer"
* Si une pièce jointe + un contact sont associés au rdv, la pièce jointe est ajoutée à la liste des PJ associées au contact
* Possibilité d'envoyer un email automatisé depuis la fiche Rdv pour rappeler l'évènement/rdv au contact associé (via un simple mailto, donc quelques limites ...)


RQ : vu le nombre d'interactions possibles entre les différentes données, il se peut que tous les cas de figure n'aient pas été encore envisagés. Il se peut donc que des effets non souhaités surviennent, vous me les indiquerez pour que je prenne en compte ces cas de figure dans les corrections futures.

Bon week-end à tous !
Pierre
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas