Planning avec taches et base de donnees
kadett
Messages postés
7
Statut
Membre
-
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je recherche de l'aide pour finaliser mon projet de planning avec des taches programmées et ou créer ui sera totaliser dans une base de données
j'aimerai également pouvoir choisir la durée de la tache (heures) et colorer cette plage
d'avance merci pour votre aide !
voici mon fichier
https://www.cjoint.com/?0Bklv5FxFWz
je recherche de l'aide pour finaliser mon projet de planning avec des taches programmées et ou créer ui sera totaliser dans une base de données
j'aimerai également pouvoir choisir la durée de la tache (heures) et colorer cette plage
d'avance merci pour votre aide !
voici mon fichier
https://www.cjoint.com/?0Bklv5FxFWz
4 réponses
-
Bonjour,
Je pense que ta méthode n'est pas la bonne.
La base de données - selon moi - devrait avoir 4 colonnes :
- agent ;
- tâche ;
- date (y compris heure) de début ;
- date de fin.
Ensuite l'onglet planning hebdo ne devrait être qu'une lecture de cette base.
PS : Certaines années ont une semaine "53".
A+ -
Bonjour à vous deux
Je suis d'accord la base de données ne peut pas être utilisée en l'état
Elle devrait plutôt être à mon sens fondée sur les semaines et les taches avec une feuille différente par agent (et une feuille recap si necessaire)
En cas de nouvel agent il suffit de rajouter la feuille à son nom
D'autre part t on peut bien composer un planning à partir du planning hebdo et renvoyer par macro les infos dans les feuilles de BDD
Pour la coloration des lignes du planning en fonction des heures il faut aussi passer par macro (en abandonnant la validation de données par cellule)
exemple ci joint à partir de ton fichier :
https://www.cjoint.com/?0BkpblC7sUC
Cdlmnt -
bonsoir a tous,
suis preneur pour les améliorations! peut on m'aider pour la construction de la base de données?
d'avance merci a vous pour votre collaboration-
Bonjour,
via55 et moi avons deux concepts différents :
- via55 pense à un onglet par agent et saisie possible dans le planning hebdomadaire ;
- je suis en faveur d'une base de données sur un onglet unique regroupant le tout (et un peu illisible telle quelle, je l'avoue). La saisie des activités se ferait dans un formulaire et le planning hebdomadaire ne serait là que pour la lecture (assemblage des lignes de la base de données qui satisfont aux critères.
Qu'est-ce que tu préférerais ?
A+ -
Re,
Je vois que tu te débrouilles un peu en UserForm...
Ci-après le lien de comment je présenterais les choses : https://www.cjoint.com/?DBllCJ8JrH4
Pour les valeurs dans les listes de ton formulaire, utilise plutôt le UserForm_Initialize avec les données de l'onglet "Reference" et un While. S'il y a du mouvement dans le personnel, ça se gère facilement.
Des spécialistes arriveraient peut-être à remplir les onglets "Semainier" et "Par_agent" à l'aide de formules Excel (avec INDEX, EQUIV, DECALER,...) mais ça semble jouable par macro.
A+
-
-
bonjour;
merci pour ta réactivité! j'aimerai en remplissant ma semaine que les infos puissent s'inscrire dans la base de donnée en reprenant les infos telles que: nom,date taches ainsi que le nombre de fois que cette tache a été effectué par cette personne! par mois,trimestre,semestre,annuel. en lançant par exemple une requête!!
merci a vous deux-
Bonjour
Sur la base que tu m'as transmise et selon ce que tu voulais voilà une possibilité
Attention à ne pas effacer ce qui est dans les lignes masquées en bas du planning et en haut de la BDD et des Requêtes car les références sont utilisées dans les formules
https://www.cjoint.com/?0BnsNVnemjz
A adapter à tes besoins et améliorer si nécessaire
Bonne suite
Cdlmnt -
Bonjour
Une erreur à corriger dans cette macro :
Sub transfertbase()
On Error Resume Next
'boucle sur les colonnes agents de Planning
For y = 2 To 16 Step 3 'de 3 en 3 à cause des cellules fusionnées !
'jour
jour = Sheets("PLANNING HEBDO").Cells(7, y)
'traitement des 3 colonnes d'une journée
'nom agent
agent = Sheets("PLANNING HEBDO").Cells(8, y)
' Boucle sur la colonne dans Planning
For n = 9 To 39
'Si rencontre une tache inscrite lance la macro transferer
If Cells(n, y) <> "" Then tache = Cells(n, y).Value: transferer
et non pas Cells(n, y+1) (par contre dans les lignes en dessous c'est bien Cells(n, y+1) puis Cells(n, y+2) )
Cdlmnt
-
