XL 2016 Gestion des dates projets

  • Initiateur de la discussion Initiateur de la discussion babooche
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

babooche

XLDnaute Nouveau
Bonjour à tous,

Je souhaite mettre en place un fichier de suivi de mess projets pro afin de rassembler sur un même doc l'avancement et les deadlines de tous mes projets.

Pour ce faire, j'ai pensé à un fichier en 2 onglets.
* Le premier (TB_Suivi) est un tableau avec en première colonne le nom du projet (ici Etude 1 et Etude 2 pour l'exemple) et plusieurs autres colonnes avec des infos sur les projets.
(Pour simplifier la lecture, je n'ai laissé que les colonnes ayant un rapport avec le second onglet)

* Le second est un "plan de charge". En colonne A, j'ai utilisée une formule pour avoir tous les jours ouvrés (weekend et férié enlevés). La colonne B correspond au projet 1 (Etude 1), la colonne C au projet 2 (Etude 2)...
L'idée étant que pour chaque projet (chaque colonne), les différentes périodes du dit projet soient mis en évidence. Pour exemple, j'ai fait la mise en évidence de "Etude 1" à la main et quelque chose de similaire mais avec des formules pour les autres projets.

Au final, j'aimerai pouvoir compléter l'onglet 1 (TB_Suivi) et voir mon onglet 2 (Plan de charge) se mettre à jour automatiquement sans que j'ai besoin de le faire à la main. j'ai essayé de le faire avec la formule SOMMEPROD. Cela marche pour un remplissage mais pas pour tout.

D'avance merci pour ceux qui prendront un peu de temps pour m'aider.

Babooche
 

Pièces jointes

Salut

un essai par macro
suffit de cliquer sur le bouton
2 points seront sans doute à modifier
1) la formule pour créer les jours colonne A de ton plan de charge disparait pendant le traitement==> je peux la remettre
2) lorsque la date de livraison tombe PENDANT la période "APRES"... ??
 

Pièces jointes

Bonjour,
Désolé de ma réponse tardive. Je suis parti en weekend et j'ai décidé de ne plus penser au taff sur cette période.
J'ai pu regarder et ça marche très bien. Un grand merci à toi pour le temps passé.

N'y reconnaissant pas grand chose sur les macros, j'ai 2-3 petites questions qui me viennent.
Si je rajoute dans la feuille TB_Suivi des colonnes à la suite (pour mettre d'autre informations) est ce que cela va poser problème ?
Il y a deux feuilles nommée plan de charge. Est ce que je dois garder les deux? Ou est ce que je peux n'en garder qu'une?
 
Dernière édition:
Salut

Pour répondre à tes questions
si tu ajoutes des colonnes dans le tableau TB_suivi: pas de problème pour la macro à condition que tu les ajoutes tout à droite.. sinon, il faudra ajuster les indices dans la macro.
la feuille "Plan de charge(2)" peut etre supprimée. je la gardais juste pour avoir de quoi comparer avec le résultat de la macro
 
Merci pour ces précisions.
J'ai rajouté une colonne a gauche. J'ai changé les indices donc c'est bon ça marche toujours.
En revanche j'ai essayé de rajouté une ligne à la macros pour que cela m'affiche la date prévue et la date effective de livraison. (rajout en rouge)
Et comme je m'en doutais, il y a un truc que je n'ai pas compris puisque ça ne marche pas 🙂


Sub PlandeCharge()
Dim TabSuivi() As Variant
Dim TabPdC() As Variant
With Sheets("TB_Suivi")
TabSuivi = .Range("Tableau2").Value
End With
With Sheets("Plan de charge")
FinFeuille = .Range("A" & .Rows.Count).End(xlUp).Row
.UsedRange.Offset(1, 1).ClearContents
TabPdC = .Range("A2").Resize(FinFeuille, UBound(TabSuivi, 1) + 1).Value
End With
For i = LBound(TabSuivi, 1) To UBound(TabSuivi, 1) 'pour chaque ligne = pour chaque projet
Etude = TabSuivi(i, 1)
Livraison = TabSuivi(i, 3)
DateLivraison = TabSuivi(i, 4)
Debut = TabSuivi(i, 6)
Fin = TabSuivi(i, 7)
AvantProjet = TabSuivi(i, 8)
AprèsProjet = TabSuivi(i, 10)
For j = LBound(TabPdC, 1) To UBound(TabPdC, 1)
If TabPdC(j, 1) >= Debut And TabPdC(j, 1) <= Fin Then 'pendant la campagne
TabPdC(j, 1 + i) = "Campagne"
End If

If TabPdC(j, 1) < Debut And TabPdC(j, 1) >= Debut - 7 * AvantProjet Then TabPdC(j, i + 1) = "Avant"
If TabPdC(j, 1) > Fin And TabPdC(j, 1) <= Fin + 7 * AprèsProjet Then TabPdC(j, i + 1) = "Après"
If TabPdC(j, 1) = DateLivraison Then TabPdC(j, 1 + i) = "Livraison prévue"
If TabPdC(j, 1) = Livraison Then TabPdC(j, 1 + i) = "Livrée"
Next j
Next i
With Sheets("Plan de charge")
.Range("A2").Resize(UBound(TabPdC, 1), UBound(TabPdC, 2)) = TabPdC
formule = "=SERIE.JOUR.OUVRE(A2;1;Fériés!$D$6:$D$17)"
.Range("A3").FormulaLocal = formule
.Range("A3:A" & FinFeuille).FillDown
End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Graphique à bulles
Réponses
6
Affichages
203
Réponses
4
Affichages
81
Réponses
5
Affichages
337
Réponses
11
Affichages
153
Réponses
3
Affichages
195
  • Question Question
Réponses
7
Affichages
186
Réponses
7
Affichages
980
Réponses
2
Affichages
446
Retour