Discussion :

[minot83]

Bonjour,

Dans le cadre d’une application que je développe pour mon cousin qui vient d’ouvrir une société de nettoyage, je souhaiterais un formulaire planning multi employés.

Je m’explique, une mission pour un client peut être affectée à un ou plusieurs employés.
Est-il envisageable de présenter dans un planning mensuel, toutes les missions ?
Par exemple si 10 employés, possibilité de faire apparaître l à 10 missions dans chaque créneau horaire selon si celles-ci sont attribuées individuellement ou non. Ou serait-ce illisible ?

J’ai observé depuis quelques jours le beau travail accompli par plusieurs membres de Developpez.com et notamment celui de Denis Hulo, mais je n’ai pas vu la possibilité de gérer plusieurs planning en un seul. (plusieurs RDV dans la même cellule/zone de liste)

Merci d’avance pour vos conseils
Bonne journée

[User]

Bonjour,

Désolé mais en ce moment je suis très occupé

Pour gérer plusieurs rdv simultanés tu dois trouver cela dans les tutoriels:

Le tutoriel

Les exemples

Mais généralement c'est sur des plannings hebdomadaire : comme tu le dis sur des plannings mensuels ça peut très vite devenir illisible.

A moins de passer par un calendrier.

A+

Denis

[minot83]

Merci beaucoup pour ton attention, je vais bien regarder tout cela.

Bonne soirée

[minot83]

Je suis sur cette version : "Agenda v7.mdb" et je suis parvenu à l'adapter, en donnant la possibilité d'affecter plusieurs employés par RDV.

Je galère cependant, comme prévu, pour la lecture et je souhaiterais essayer de diminuer la taille de la police, et d'augmenter la largeur des colonnes.

Le code me fait quand même un peu peur... est-ce facilement envisageable?

D'avance merci

[User]

Salut,

Pour la taille de la police:

Par exemple dans la procédure MajPlanning du module "M_Planning" tu as le bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If IsNull(RsPL!NC) Then
         .DrawRectRdv Ligne, Col, (Ligne + d - 1), Col, RsPL!Id, RsPL!Nb, Color, vbBlack, 1
         .DrawTextRdv Ligne, Col, (Ligne + d - 1), Col, RsPL!Id, RsPL!Nb, RsPL!NR, Nz(RsPL!Memo, ""), 12, 1, 1, vbBlack, False
               
         Else
         .DrawRectRdv Ligne, Col, (Ligne + d - 1), Col, RsPL!Id, RsPL!Nb, Color, vbBlack, 1
         .DrawTextRdv Ligne, Col, (Ligne + d - 1), Col, RsPL!Id, RsPL!Nb, RsPL!NR, RsPL!Contact, 12, 1, 1, vbBlack, False
      
         End If

La taille de la police est en rouge...

Pour la largeur des colonnes tu as sur "ouverture" du formulaire "F_Planning" le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
...
 With goHeader
      .RefControleImage = Me.Planning.Form.Header
      .InitImage
      .FieldsCols = 1
      .FieldsColsWidth = 50
      .FieldsColor = -2147483633
      .Rows = 2
      .RowsHeight = 25
      .Cols = 7
      .ColsWidth = 156
      .BackColor = -2147483633
   End With
   
   With goPlanning
      .RefControleImage = Me.Planning.Form.Planning
      .InitImage
      .FieldsCols = 1
      .FieldsColsWidth = 50
      .RowsHeight = HauteurLigne
      .Rows = NL
      .Cols = 7
      .ColsWidth = 156
      .EspaceWidth = 6
   End With

La largeur des colonnes est en rouge, il faut faire des essais successifs pour ajuster cette largeur.(il faut que ces largeurs soient les mêmes pour la section goHeader et goPlanning).

A+

[minot83]

Merci beaucoup