Je suis perdu

Question

Je sais tout juste programmer pour d&#233;velopper 2, 3 trucs simples en VB6. R&#233;cemment j'ai d&#233;velopp&#233; une application qui fonctionne mais que je trouve trop lourde et trop fragile pour aller plus loin. J'utilise beaucoup de tableaux, de variables et de boucles. Vous allez comprendre.

Mon but est d'aller chercher les t&#226;ches non compl&#233;t&#233;es et &#224; venir dans Outlook pour les pr&#233;senter sous une forme graphique. C'est assez document&#233; pour aller les chercher mais 1ere frustration, sauf erreur, on ne peut consid&#233;rer MAPI comme une base de donn&#233;e avec les avantages qui vont avec(je ne comprends pas pourquoi). De plus je ne veux pas joindre &#224; mon programme de feuille mdb ou xls. Dans une premi&#232;re version j'ai rempli un tableau et dans un autre j'ai cherch&#233; &#224; le faire avec mhsflexgrid qui n'a rien apport&#233; de plus simple. Recemment quelqu'un m'a propos&#233; d'avoir une approche objet et collection d'objets. Apr&#232;s avoir lu dessus je suis convaincu que s'est la bonne approche mais je suis aussi compl&#232;tement m&#234;l&#233; par tout ce que j'ai lu. Si quelqu'un pouvait m'aider &#224; d&#233;marrer dans cette approche je lui serais &#233;ternellement reconnaissant.

Voil&#224; les donn&#233;es de base (&#231;a pas de pb je maitrise)
De chaque t&#226;che r&#233;cup&#233;r&#233;e dans un tableau servant d'interface avec Outlook il y a 3 donn&#233;es fondamentales que je r&#233;cup&#232;re: 
   * La date d'&#233;ch&#233;ance dont j'extrais un index Jour en soustrayant la date d'aujourd'hui (par DateDiff(Now...))
   * La priorit&#233; (de 1 &#224; 6) qui classe les t&#226;ches de la journ&#233;e en fonction de l'urgence.
   * La dur&#233;e &#233;valu&#233;e de la t&#226;che.

L&#224; o&#249; ca se complique (C'est l&#224; o&#249; je me retouve avec beaucoup de boucles et de tableaux):
   * J'ai besoin d'isoler chaque niveau de priorit&#233; trouv&#233; d'un jour pour:
      + en faire la somme des dur&#233;e
      + Ensuite diviser chaque dur&#233;e par cette somme

   *J'ai besoin apr&#232;s d'ordonner (toujours pour un jour) les priorit&#233;s. Exemple: Pour l'index de jour 2 on a comme priorit&#233;s: 2, 6, 1, 4, 2. Il faut que j'ai: 1, 2, 4 , 6 (pas besoin d'appeler une deuxi&#232;me fois le 2). Avec cel&#224; je veux entrer une propri&#233;t&#233; &#224; la tache qui sera &#233;gale &#224; la somme des dur&#233;es du niveau inf&#233;rieur de propri&#233;t&#233;. Pour &#234;tre plus clair si on a les couples priorit&#233; / dur&#233;e suivants: 2/4, 6/5, 1/3, 4/1, 2/3 on obtiendrait: 1/0, 2/3, 4/(4+3=7), , 6/1.

&#201;videmment il faut recommencer cet exercice pour chaque jour.

Au final, pour mon exploitation graphique, je devrais &#234;tre capable en lancant mon application d'extraire chaque t&#226;che contenant toutes les informations dont on vient de parler et aussi appeler les autres informations attach&#233;es &#224; la tache Outlook  (sujet, Objet, date de d&#233;but etc)

Cela vous parait-il assez clair et &#234;tre un d&#233;fi int&#233;ressant??? Moi, en parfait b&#233;otien, je m'en fait une montagne l&#224; o&#249; n'y verez qu'une routine bien connue.

Question subsidiaire: Serait-il possible d'int&#233;grer dans ma tache (son objet qui le repr&#233;sente) un bouton commande qui apparaitrait pour chaque t&#226;che cr&#233;&#233;e par New???

Zlub · Answer

Salut,

En ayant lu
rapidement, j'ai cru comprendre que le probleme est de trier les
donn&#233;es ... Je te conseil de d&#233;finir un Type par exemple,




Public Type donn&#233;eFondamentales

      ech&#233;ance As Date

      priorit&#233;e As Integer

      ...

  End Type




Ensuite tu fais un tableau genre




Dim tab() As donn&#233;eFondamentales




que tu remplies avec tes donn&#233;es ... puis hop un coup de trie et c'est regl&#233;... genre tri bulle (mais y'a mieux)




Public sub trierDonnees(T() as donn&#233;eFondamentales)

      Dim i As Integer

      Dim j As Integer

      Dim N As Integer

  

      Dim tmp As donn&#233;eFondamentales

  

    N = Ubound(T)

  

     

      For i = 0 To N - 1

          For j = 0 To N - i - 1

              ' Trier par priorit&#233;e

              If T(j).priorit&#233;e  > T(j + 1).priorit&#233;e  Then  Temp T(j): T(j) T(j + 1): T(j + 1) = Temp

          Next j

      Next i

  End Sub




Dans la proc&#233;dure ci-dessus reste plus qu'&#224; ajouter le critiere de date
pour trier par jour, puis par priorit&#233;e ... Sinon, tu fais une
recherches sur le site, il doit y avoir des sources pour trier de
tableau d'objets selon deux crit&#233;res...



J'eperes avoir r&#233;pondu &#224; ta question,


++

Zlub

Zlub · Answer

Salut,

oui, une pr&#233;cision, j'ai suppos&#233; que t'es en VB6 ...


++

Zlub

cs_Nulll · Answer

Merci pour ton aide Zlub mais tu m'am&#232;nes d'une fa&#231;on &#233;l&#233;gante au pied de l&#224; o&#249; cela se complique parce que je fais plein de boucles et de conditions r&#233;cursives qui ne demandent pas mieux d'&#234;tre remplac&#233;es par quelque chose de plus simple. 
Puisque on peut joindre des images, voila un Grafcet dans lequel ton code la partie 3 et 4, puis un exemple en 3 tableaux et o&#249; l&#224; ton code m'am&#232;ne au tableau du milieu. C'est un r&#233;sultat que j'ai obtenu avec l'objet mhsflexgrid.
Si ces 2 pages peuvent t'aider &#224; relever ce d&#233;fi...

cs_Nulll · Answer

Merci pour ton aide Zlub mais tu m'am&#232;nes d'une fa&#231;on &#233;l&#233;gante au pied de l&#224; o&#249; cela se complique parce que je fais plein de boucles et de conditions r&#233;cursives qui ne demandent pas mieux d'&#234;tre remplac&#233;es par quelque chose de plus simple. 
Puisque on peut joindre des images, voila un Grafcet dans lequel ton code la partie 3 et 4, puis un exemple en 3 tableaux et o&#249; l&#224; ton code m'am&#232;ne au tableau du milieu. C'est un r&#233;sultat que j'ai obtenu avec l'objet mhsflexgrid.
Si ces 2 pages peuvent t'aider &#224; relever ce d&#233;fi...

cs_Nulll · Answer

Si si, les fichiers sont biens l&#224;, il faut les chercher. Je ne vois pas d'icone qui me permettrait de les mettre non pas en image mais juste en fichier joint. D&#233;sol&#233; pour le trouble.

Je suis perdu

5 réponses

Discussions similaires