Tutoriel sur l'intégration d'un planning basé sur la classe clGdiPlus

**User** · 07/09/2009, 18h37

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é** · 08/09/2009, 18h24

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** · 08/09/2009, 19h19

jpcheck,

çà fait plaisir

Je corrige ça d'ici demain

Invité · 08/09/2009, 19h27

Bonsoir User

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

**User** · 08/09/2009, 19h40

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é · 08/09/2009, 20h23

Aucun problème..., aucun problème... C'est vite dit

Par contre je saurai à qui m'adresser.

**EtienneS** · 01/11/2009, 16h37

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** · 01/11/2009, 19h33

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** · 02/11/2009, 13h02

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** · 10/11/2009, 20h40

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** · 23/11/2012, 17h52

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** · 23/11/2012, 18h13

Salut,

Tuto très fluide et clair

On en redemande...

@+.

**manuzajac** · 14/08/2013, 10h11

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** · 07/01/2014, 14h23

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** · 07/01/2014, 21h09

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** · 12/01/2014, 12h09

Envoyé par 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+