Modifier modéle Microsoft (en rapport avec Gantt)

[Yurperqod]

Bonjour le forum


J'essaie sans succès de modifier ce modèle fourni par Microsoft
Lien du site
https://templates.office.com/fr-be/Barre-de-planning-de-projet-TM02930043
Lien du ficher Excel à télécharger
https://omextemplates.content.office.net/support/templates/fr-fr/tf02930043.xltx

A l'origine, l'intervalle est journalier.

Je voudrais avoir la même chose mais avec comme intervalle la semaine

J'ai affiché la feuille masquée nommée calculs et dans la cellule F31, j'ai remplacé la formule par
=E31+1 par E31+7

Mais cela ne donne pas le résultat voulu.

Est-ce que quelqu'un saurait comment faire, svp ?

 

[Yurperqod]

Bonjour le forum, bonjour Modeste geedee

Sur ton dernier fichier, j'ai essayé de changer les couleurs du graphique selon la couleur de fond des jalons
La macro 1 vient de l'enregistreur de macros et fonctionne
La macro 2 et 3 trouvées sur internet ne fonctionnent pas.
J'ai effacé la MEFC des cellules A7:A18

Sub Macro1()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(2).Points(2).Select
  With Selection.Format.Fill
  .Visible = msoTrue
  .ForeColor.RGB = RGB(255, 255, 0)
  .Transparency = 0
  .Solid
  End With
End Sub
Sub Macro2()
Dim i
ActiveSheet.ChartObjects("Graphique 1").Activate
For i = 1 To ActiveChart.SeriesCollection(2).Points.Count
ActiveChart.SeriesCollection(2).Points(i).Format.Fill.ForeColor.RGB = ActiveSheet.Cells(i + 6, 1).Interior.ColorIndex
Next i
End Sub
Sub Macro3()
Dim i
ActiveSheet.ChartObjects("Graphique 1").Activate
For i = 1 To ActiveChart.SeriesCollection(2).Points.Count
ActiveChart.SeriesCollection(2).Points(i).MarkerBackgroundColorIndex = ActiveSheet.Cells(i + 6, 1).Interior.ColorIndex
Next i
End Sub

Sinon sur l'axe horizontal, on ne peut mettre le numéro de semaine ?

Merci d'avance.

 

[Yurperqod]

Bonjour le forum, bonjour Modeste geedee

Voici une macro qui marche pour les couleurs
Il faut mettre Interior.Color à la place de Interior.ColorIndex

Sub Macro4()
Dim i
ActiveSheet.ChartObjects("Graphique 1").Activate
For i = 1 To ActiveChart.SeriesCollection(2).Points.Count
ActiveChart.SeriesCollection(2).Points(i).Format.Fill.ForeColor.RGB = ActiveSheet.Cells(i + 6, 1).Interior.Color
Next i
End Sub

Pour les numéros de semaine sur l'axe horizontal du graphique, on est obligé de passer par une macro ?

 

[Yurperqod]

Bonjour le forum, Bonjour Modeste geedee

J'ai essayé de créer un graphique en me servant de ton dernier fichier pour avoir le numéro de semaine
à la place des jours.
Je n'y arrive pas.
Est-ce que tu peux m'aider, stp?

 

[Modeste geedee]

Bonjour le forum, Bonjour Modeste geedee

J'ai essayé de créer un graphique en me servant de ton dernier fichier pour avoir le numéro de semaine
à la place des jours.
Je n'y arrive pas.
Est-ce que tu peux m'aider, stp?

soit la première méthode : pseudo graphique (simple)
soi la seconde : graphe barres horizontales (usine à gaz)
Excel ne sait pas utiliser les semaines en tant que unité chronologique
sauf à utiliser une serie secondaire barres verticales à ajuster en amplitude par macro aux barres horizontales ??? ...
les tests que j'ai rapidement fait son compliqués pour un rendu plus que décevant...

reste la possibilité toujours par macro de positionner des zones textes(N°sem) à proximité des graduations principales (tous les 7 jours)
désolé de pouvoir faire plus...