Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

K

KIM

XLDnaute Accro
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
 

Pièces jointes

  • TDB_pluriannuel.xlsx
    10.8 KB · Affichages: 44
Trier par date Trier par votes
K

KIM

XLDnaute Accro
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
 

Pièces jointes

  • TDB_pluriannuel.xlsx
    10.8 KB · Affichages: 14
Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro
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
VB: 
=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
 

Pièces jointes

  • Copie de TDB_pluriannuel v1.xlsx
    16.3 KB · Affichages: 10
Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro
re
pour les couleurs par projet il suffit de mettre en place une mfc
la formule à adapter.
VB: 
=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
 

Pièces jointes

  • Copie de TDB_pluriannuel v1.xlsx
    16.7 KB · Affichages: 10
Dernière édition:
Vote positif 0 Vote négatif
K

KIM

XLDnaute Accro
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
 
Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro
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
 

Pièces jointes

  • Copie de Copie de TDB_pluriannuel v2.xlsx
    17.1 KB · Affichages: 17
Vote positif 0 Vote négatif
K

KIM

XLDnaute Accro
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
 

Pièces jointes

  • TDB_pluriannuel v2.xlsx
    19 KB · Affichages: 12
Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro
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

VB: 
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
 

Pièces jointes

  • Copie de TDB_pluriannuel v2.xlsm
    32.3 KB · Affichages: 11
Vote positif 0 Vote négatif
K

KIM

XLDnaute Accro
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
 
Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro
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
VB: 
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
 

Pièces jointes

  • Copie de Copie de TDB_pluriannuel v3.xlsm
    33.1 KB · Affichages: 36
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

L
  • Question
Microsoft 365 KPI - Performance Commerciale
Réponses
2
Affichages
527
laurabachau
L
L
  • Résolu(e)
XL 2016 Récupérer données de différents fichiers Excel et rappatrier dans 1 seul fichier
Réponses
5
Affichages
694
LAPIN-53
L
C
  • Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
211
CS49
C
S
  • Question
XL 2021 Planning de suivi des actions pour service Hygiène Sécurité et Environnement
Réponses
2
Affichages
821
fanfan38
  • Question
Autres Diagramme de Gantt avec beaucoup de contraintes (avec LibreOffice) et formule matricielle multicritères
Réponses
2
Affichages
619
Simon 1234
S
S
  • Question
règle conventionnelle
Réponses
2
Affichages
440
seraf
S
B
  • Résolu(e)
XL 2021 Séparer les adresses (Rue et N°) en 2 cellules avec un macro
2
Réponses
20
Affichages
1 K
Banbara
B
M
  • Question
XL 2010 Colorie certaines lettres en bleu dans la ListBox 1
Réponses
1
Affichages
339
job75
POWERQUERY :: Cumuls par trimestre ou par période groupées
Réponses
0
Affichages
345
oguruma
R
  • Résolu(e)
XL 2016 Somme par année en fonction d'une date de début et de fin
Réponses
4
Affichages
671
remyexcel
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…