Discussion :

[User]

Bonjour à tous,

Je vous propose un nouvel article :
http://denishulo.developpez.com/tuto...ss/planningv2/

J'y décris une méthode pour intégrer un planning paramétrable dans un projet Access. Cette "technique" utilise la classe de gestion d'image clGdiPlus.

De bonnes bases en VBA sont nécessaires

En espérant que cela pourra être utile à certaines personnes.

Vous pouvez également laisser un commentaire si besoin.

Bonne lecture à tous

[Jean-Philippe André]

très bon, dans la mesure où on y va progressivement sur les objets manipulés. Un bon outil

PS :

mettre à jour l'image du chapitre
VI. Le formulaire fPlanning
le planning est mensuel

[User]

jpcheck,

çà fait plaisir

Je corrige ça d'ici demain

[Invité]

Bonsoir User

Très beau travail, dont je vais surement me servir dans les semaines qui viennent.

[User]

Salut Jean-Damien,

Merci bien,

Bravo aussi pour ton tuto sur les filtres

Le paramétrage du planning se fait en VBA, donc çà demande de connaître le VBA et les modules de classes.

Mais celà ne te posera sans doute aucun problème

[Invité]

Aucun problème..., aucun problème... C'est vite dit
Par contre je saurai à qui m'adresser.

[EtienneS]

Bonjour
Merci pour ce travail excellent qui a l'avantage, d'afficher une réservation sur plusieurs jours par une zone de texte en couleur.
Par contre il semble y avoir un problème des que le nombre de chambre dépasse la hauteur de la page=> quand on double-clique sur une chambre, c'est une autre qui est ouverte. Est ce qu'il est possible de gérer plus de ligne que la taille de l'écran ? (pour essayer ajouter des chambres dans la table T_chambres.
Je suis également entrain de réfléchir à une version sans bitmap, juste avec des traits (ligne et colonne) construit directement sur le formulaire , l'évènement sur la section sur "souris appuyée" qui donne les coordonnée du curseur, et des zones de textes qu'on placerait automatiquement au bon endroit. A suivre...

Merci d'avance

Etienne

[User]

Salut,

comme indiqué sur le tuto, la seul limitation concerne la taille du sous-formulaire,
soit une centaine de lignes.(voir nombre maximum de lignes du planning)

Par contre j'ai testé sur la base jointe, j'ai ajouté des chambres et je n'ai pas rencontré le problème que tu décris:

par défaut le nombre maximum de lignes est à 40,
si tu souhaites faire apparaitre plus de lignes, tu agrandi l'image dans le sous-formulaire et tu définis le nombre de lignes (rows) dans le code du sous-formulaire, sur chargement:

Code :

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

1
2
3
4
5
6
7
8
9
With obPlanning
      .RefControleImage = Me.Planning
      .InitImage
      .FieldsCols = 2
      .FieldsColsWidth = 75
      .Rows = 50
      .Cols = 31
      .ColsWidth = 27
   End With

J'ai mis 50 chambres et çà fonctionne bien

Pour des plannings sur une semaine utilisant des tableaux d'étiquettes, tu peux jeter un oeil dans les contributions:
geshot v13-14-15-16

ou dans le même genre un tuto sur la création d'un agenda:
agenda

Remarque: Pour un planning mensuelle (exemple 40*31) on est vite limité par le nombre maximum de contrôles autorisé dans un formulaire. C'est pourquoi j'ai proposé cette technique utilisant la classe de gestion d'images d'Arkham.

[FRANZ38]

Bonjour
J'aimerais intégré votre planning semainier dans un projet sous access ou j'organise mes cours (je suis proff) ,je ne suis pas très doué dans le codage
pouvez-vous me donné un coup de main
Merci
Cordialement

[User]

Salut,

tu peux t'inspirer de cette agenda (planning hebdomadaire) basé sur la classe de gestion d'images clGdiPlus (sujet de l'article):

agenda hebdomadaire


A+

[chris45]

bonjour
j'ai repris les code source en suivant le tuto de Denis Hulo


http://denishulo.developpez.com/tuto...ss/planningv2/

tres tres interessant!
je suis plutot moyen en vba comparer a vous

voila j'ai repris le code source (partie impression) du projet gesplan v3.3 utilisant aussi gdiplus et possedant une fonction impression

mais voila quand je click sur le bouton impression
cela se passe un peut comme sur gesplan v3 mais l'image qui s'affiche est seulement grise
et dans le 'report' ( pour l'impression) je n'ai pas l'image, juste un fond gris et la mise en page

comment est recuperer l'image du planning de la form vers le report??
la est la question

bon je vais cherche de mon coté
mais si vous pouviez m'aider je vous en remerci

je peux aussi joindre ma base quelquepart si vous voulez

ps:je vous est mis un lien vers ma base en zip
http://yevrecapri.com/test/planning_(5).zip
cordialement
Christophe

[zoom61]

Salut,

Tuto très fluide et clair

On en redemande...

@+.

[manuzajac]

Excellent Planning! A recommander. Et très maniable, il peut être adapté à la période de suivi désirée (cf pièce-jointe).

On peut également trier et ordonner les enregistrements comme on le souhaite.

Merci à Denis Hulo qui m'a fourni une aide précieuse pour programmer ces changements!

Emmanuel

[meirjo]

bonjour,
superbe travail et merci !
une question svp comment définir les colonnes à droite (au lieu de gauche)du planning pour les en-têtes de lignes.

merci par avance.

[User]

Bonjour,

Disons qu'il n'est pas prévu que les colonnes soient à droite

Une idée serait de mettre la largeur ou le nombre de colonnes à gauche à 0 et d'ajouter 2 colonnes jours qui seront en fait les colonnes à droite.

Il faut agir sur le code au chargement du sous-formulaire SF_Planning :

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
26
27
28
29
With obHeader
      .RefControleImage = Me.Header
      .InitImage
      .FieldsCols = 0 ' paramètres colonnes à gauche
      .FieldsColsWidth = 0
      .FieldsColor = 16766935 '-2147483633
      .Rows = 1
      .RowsHeight = 36
      .Cols = 31 + 2 ' ajout 2 colonnes à droite
      .ColsWidth = 32
      .BackColor = -2147483633
      .GridColor = 8421504
   End With
   
' Spécification du contrôle image imPlanning sur lequel on va dessiner le planning.
' Puis, initialisation de l'image et affectation des paramètres pour le planning.
   
   With obPlanning
      .RefControleImage = Me.Planning
      .InitImage
      .FieldsCols = 0 ' paramètres colonnes à gauche
      .FieldsColsWidth = 0
      .Rows = NL
      .Cols = 31 + 2  ' ajout 2 colonnes à droite
      .RowsHeight = 25
      .ColsWidth = 32
      .BackColor = 14788262
      .GridColor = 8421504 '14788262
   End With

a+

[meirjo]

Bonjour,

Disons qu'il n'est pas prévu que les colonnes soient à droite

Une idée serait de mettre la largeur ou le nombre de colonnes à gauche à 0 et d'ajouter 2 colonnes jours qui seront en fait les colonnes à droite.

Il faut agir sur le code au chargement du sous-formulaire SF_Planning :

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
26
27
28
29
With obHeader
      .RefControleImage = Me.Header
      .InitImage
      .FieldsCols = 0 ' paramètres colonnes à gauche
      .FieldsColsWidth = 0
      .FieldsColor = 16766935 '-2147483633
      .Rows = 1
      .RowsHeight = 36
      .Cols = 31 + 2 ' ajout 2 colonnes à droite
      .ColsWidth = 32
      .BackColor = -2147483633
      .GridColor = 8421504
   End With
   
' Spécification du contrôle image imPlanning sur lequel on va dessiner le planning.
' Puis, initialisation de l'image et affectation des paramètres pour le planning.
   
   With obPlanning
      .RefControleImage = Me.Planning
      .InitImage
      .FieldsCols = 0 ' paramètres colonnes à gauche
      .FieldsColsWidth = 0
      .Rows = NL
      .Cols = 31 + 2  ' ajout 2 colonnes à droite
      .RowsHeight = 25
      .ColsWidth = 32
      .BackColor = 14788262
      .GridColor = 8421504 '14788262
   End With

a+

[User]

De rien

[3ug3n]

C'est tout simplement remarquable, merci à User et Arkham pour cette contribution monumentale.
PS : Le gantt pique les yeux aussi

[Raafat Maurice]

Excelent Presentation, est ce qu'on peut telecharger votre projet avec cette suprb form ?

[User]

Bonjour et merci,

Vous avez des exemples en téléchargement dans le paragraphe VII.

Cdlt,