XL 2010 Gantt, suivi activités par trimestre et n-1, n et n+1

[KIM]

Bonjour le forum, bonjour les ami(e)s,
Comme d'habitude j'ai toujours trouvé une aide à mes projets sur ce forum et je vous en remercie. J'ai trouvé sur ce forum plusieurs Gantt et suivi d'activités ou planning journalier, ou mensuel. Par contre je cherche un Gantt, suivi d'activités et sous activités avec une périodicité le trimestre et sur plusieurs années (n-1, n n+1, n+2, etc.).
Avez-vous ce type de tableau de bord dans vos archives ?
Pour un projet donné, je saisi
-Libellé exacte du projet
- Périmètre
- coût annuel
- Début année
- Début trimestre (T1, ... T4) ou date exacte ou mois
- Fin année
- Fin trimestre (T1, ... T4) ou date exacte ou mois
et la répartition du Gantt pour chaque projet se fera par trimestre avec une couleur par projet et le nom du projet dans le Gantt.
Avec une échelle du temps le trimestre (en priorité) et en option le mois et une impression correcte.
Par avance, merci de votre aide.
KIM

 

[KIM]

Bonjour le forum et les ami(e)s,
Pour info, je peux adapter mon fichier à un planning par trimestre et par année selon la date de début et fin de chaque activité.
Le site est riche en planning journalier, hebdo et mensuel. par contre je n'ai rien trouvé pour un planning par trimestre et selon les années des activités à suivre (une par ligne).
Merci d'avance de votre aide
KIM

 

[GALOUGALOU]

bonjour kim bonjour le forum
je ne sais pas si je répond à votre souhait, mais je me suis laissé inspiré par votre problématique
j'ai crée un index dans la feuille saisie en colonne k/l exploité dans la feuille gantt par la création d'un index en ligne 1
dans le tableau la formule suivante récupère la fourchette calendaire

=SI(ET(Gantt!C$1>=Saisie!$K4;Gantt!C$1<=Saisie!$L4);Saisie!$A4;"")

a défaut d'autre solution, peut-être une piste à exploiter
cordialement
galougalou

 

[KIM]

Bonjour Galougalou et le forum,
Merci pour ton retour, je vais regarder.
Question, as-tu une piste pour gérer les couleurs par projet?
Merci
KIM

 

[GALOUGALOU]

re
pour les couleurs par projet il suffit de mettre en place une mfc
la formule à adapter.

=ET(D8<>"";D8=$C$3)

D8 sans le signe$ est identique pour toutes les couleurs
par contre $c$3 est a adapter pour chaque couleur. la couleur dans les cellules du classeur ligne3 n'a qu'une valeur d'information. la couleur est à determiner dans la mfc (et donc identique à la couleur de la cellule
par contre il suffit de mettre dans la cellule c3 le code du projet (p1 ou p2 ou p3 etc) que l'on veut colorer de vert. et ainsi de suite.
si vous adapter dans un autre classeur attention au positionnement.
dans ce classeur d8 correspond à la 1er ligne du tableau, et la colonne la plus à gauche.
dans le classeur ci-dessous je vous ai configuré 4 couleurs pour que vous puissiez capturer le principe de fonctionnement
précision (dans le classeur T1,t2,t3,t4 est remplacé par 1,2,3,4 (index oblige))
cordialement
galougalou

 

[KIM]

Re,
Merci Galougalou,.
Pour une meilleure présentation du Gantt, il est préférable d'avoir les index et les couleurs dans une feuille cfg.
Cela permet d'adapter facilement le gantt.
Merci d'avance
KIM

 

[GALOUGALOU]

aucun souci
vous pouvez sans problème mettre les index et les couleurs dans une autre feuille.
j'ai fait un peu vite, à vous de customiser
cordialement
galougalou

 

[KIM]

Merci bien, cela me permet d'avancer.

Bonne fin de journée
KIM

 

[KIM]

Bonjour Galougalou et le forum,
Je reviens vers toi pour une solution vba et te demander si possible d'avoir ta solution (mfc et formules) en vba seulement pour l'intégrer dans une solution globale vba.
Merci d'avance
KIM

 

[GALOUGALOU]

bonjour kim bonjour le fil bonjour le forum
un classeur avec le même principe d'indexation mais avec une macro qui renvoie l'information, p1 ou p2 etc, la couleur de la cellule et la couleur de la police
il n'y a plus de mfc

une feuille ouverture (avec une information) visible uniquement si les macros ne sont pas activées , qui oblige l'action pour que le classeur soit fonctionnel

Sub Mise_à_jour()

ScreenUpdating = False
Dim F1 As String
Dim F2 As String
F1 = Sheets("Saisie").Name
F2 = Sheets("Gantt").Name
Call Effacement

 li = Sheets(F1).Cells(36000, 1).End(xlUp).Row
ligne = Sheets(F2).Cells(36000, 2).End(xlUp).Row + 1

For i = 4 To li
For col = 4 To 11
 If Sheets(F2).Cells(1, col) >= Sheets(F1).Cells(i, 11) And Sheets(F2).Cells(1, col) <= Sheets(F1).Cells(i, 12) Then 'And Sheets(F2).Cells(1 & col) <= Sheets(F1).Cells(i & 12)

     Sheets(F1).Cells(i, 1).Copy Destination:=Sheets(F2).Cells(ligne, col)
End If
   Next col
       ligne = ligne + 1
   Next i

   End Sub
Sub Effacement()

    Range("b8:L3000").Clear
End Sub

cordialement
galougalou

 

[KIM]

Merci Galougalou, et le forum,
Je regarde et te tiens au courant.
Merci encore de ta réactivité.
Cordialement
KIM

 

[KIM]

Re bonjour GalouGalou et le forum,
La mise en forme du Gantt se rempli correctement, parcontre il me manque les informations du projet : Projet, Périmètre et coût annuel dans la feuille Gantt.
Par avance merci
KIM

 

[GALOUGALOU]

re kim
et oui trop occupé à mettre la macro au point sur le calendrier, j'en ai occulté, les informations périmètre et coût.
corrigé dans la macro ci-dessous

Sub Mise_à_jour()

ScreenUpdating = False
Dim F1 As String
Dim F2 As String
F1 = Sheets("Saisie").Name
F2 = Sheets("Gantt").Name
Call Effacement

 li = Sheets(F1).Cells(36000, 1).End(xlUp).Row
ligne = Sheets(F2).Cells(36000, 2).End(xlUp).Row + 1

For i = 4 To li
For col = 4 To 11
 If Sheets(F2).Cells(1, col) >= Sheets(F1).Cells(i, 11) And Sheets(F2).Cells(1, col) <= Sheets(F1).Cells(i, 12) Then 'And Sheets(F2).Cells(1 & col) <= Sheets(F1).Cells(i & 12)

     Sheets(F1).Cells(i, 1).Copy Destination:=Sheets(F2).Cells(ligne, col)
      Sheets(F2).Cells(ligne, 1) = Sheets(F1).Cells(i, 1)
         Sheets(F2).Cells(ligne, 2) = Sheets(F1).Cells(i, 2)
           Sheets(F2).Cells(ligne, 3) = Sheets(F1).Cells(i, 3)
                  Sheets(F2).Cells(ligne, 12) = Sheets(F1).Cells(i, 8)
End If
   Next col
       ligne = ligne + 1
   Next i

   End Sub

cordialement galougalou

 

[KIM]

Merci Galougalou,
Je récupère bien les infos de chaque projet.
Je vais m'occuper du formatage final.
Merci encore et bonne après-midi.
Cordialement
KIM