Discussion :

[all63]

Merci pour votre rapide réponse.............
Pour me permettre une meilleure compréhension ci joint 3 screenshots
Responsable 1 avec une planification
Responsable 2 avec une planification
Sur le screenshot 3 sur la liste déroulante du responsable, j'ai modifié la liste déroulante suivante :

Code :

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

SELECT T_Personne.IDPersonne, NomPersonne & " " & PrenomPersonne AS Personne FROM T_Personne ORDER BY T_Personne.NomPersonne, T_Personne.PrenomPersonne; UNION SELECT 0, " ---Tous--- " FROM Mois;

dans le but d'afficher le planning des responsables 1 et 2.

Cela ne marche.............., je ne sais pas si cela et la bonne solution, mais peut-être qu’une autre solution existe et qui permettrais d'obtenir le résultat souhaité, bien évidement je suis preneur de toute solution.

Merci encore

Alain

[User]

J'ai juste paramétré la liste déroulante en prenant comme source une requête union R_Personnes pour avoir le [Tous] en haut de la liste (cf. table T_Ligne).

Puis j'ai modifié le code sur la procédure RefreshPlannerHorizontal :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub RefreshHorizontalPlanner()
   ...
                      
    sSQL = "select " & FieldsDataSource & ".*, R1.* " & _
            "from " & FieldsDataSource & " LEFT JOIN (select " & IdentDataField & ", " & FieldsIdentDataField & " as IdTache, " & StartDateDataField & ", " & EndDateDataField & _
            ", " & TextDataField & ", " & ColorDataField & " from " & DataSource & _
           " where (" & PersonIdentDataField & " like '" & IIf(PlannerPersonIdent = 0, "*", PlannerPersonIdent) & "') or IsNull([" & PersonIdentDataField & "])" & _
            " order by " & FieldsIdentDataField & "," & StartDateDataField & ") as R1" & _
            " on " & FieldsDataSource & "." & FieldsIdentDataField & "= R1.IdTache " & _
            " order by " & FieldsIdentDataField & ", " & StartDateDataField & ";"

...

Il y a aussi la possibilité de mettre comme DataSource la requête R_PlanningTaches, dans la table T_Parametres.

Cdlt,

[all63]

SUPER….ET MERCI encore pour votre aide précieuse, la pratique du langage VBA et Access, vous l’avez certainement compris, n’est pas mon métier. Mais cette pratique m'a permis de retrouver une certaine créativité.
Merci pour ce fantastique travail.
Alain

[User]

Merci à vous

[Serguey1979]

Bonjour,

Tout d'abord félicitations pour le travail effectué.
J'utilise déjà clPlanner/clPlanning et clGdiPlus dans l'un de mes programme.

Souhaitant en développer un nouveau, je voulais savoir s'il est possible d'avoir plusieurs événements par ligne comme un peu sur le modèle qu'a développé manuzajac :


Merci d'avance.
Serge

[User]

Bonsoir,

Faute de temps, je n'ai pas prévu cette possibilité.

Le mieux serait je pense d'afficher en plus les événements en en-tête de ligne du planning, pour prévoir ainsi un événement par ligne.

Cdlt,

[Serguey1979]

Bonjour et merci beaucoup pour votre retour rapide.

Du coup je vais donc explorer cette piste.

Je suis également à la recherche du coin des téléchargements avec les différents modèles pour trouver ma version de base qui soit la plus adaptée à mon besoin, auriez-vous un lien, car j'ai cherché dans le paragraphe VI, et j'ai fini par tomber sur ce lien mais aucun téléchargement n'est viable.

Merci d'avance.
Serge.

[Jarod12]

Bonjour à tous,

Je suis vraiment intéressé par ce planning mais impossible de télécharger les fichiers qui sont décrit sur ce site. Est-ce que quelqu'un pourrait m'aider.
Merci d'avance.

[User]

Bonjour,

Il faut attendre un peu je pense car j'ai remarqué que d'autres fichiers sur le site sont aussi indisponibles en téléchargement pour le moment.

Cdlt,