XL 2016 [RESOLU] GANTT dynamique selon liste déroulante

ralph45

XLDnaute Impliqué
Bonjour le forum et la France confinée,

Je me trouve confronté à une impasse. Dans le fichier joint, vous trouverez 2 onglets :
- Onglet PROJETS, qui liste tous les projets avec leurs caractéristiques ;
- Onglet GANTT, qui est censé traduire en diagramme de GANTT lesdits projets, via une liste déroulante (cellule A1).

Et c'est là où cela devient sérieux : selon le choix de projet, les caractéristiques (cellules B2à D4) se mettent à jour : OK.
Seulement, ces projets ont des dates d'étapes de début différentes et éloignées...
Faites le test en choisissant les différents projets, vous verrez graphiquement le souci !

--> Comment puis-je procéder afin que - dans le diagramme et selon le choix du projet - mon option d'axe limite (minimum) se réfère à la cellule F2 (Début_2), de manière à ce que l'affichage des périodes référencées soit bon (formule ou code VBA) ?

En vous remerciant d'avance ! :)
 

Pièces jointes

  • GANTT_Dynamique_Selon_LD.xlsm
    17.7 KB · Affichages: 61

Fred0o

XLDnaute Barbatruc
Bonjour Ralph45

Macro evenementielle a mettre dans la feuille GANTT (Click-droit sur l'onglet GANTT, visualiser le code, puis coller la macro).

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A1]) Is Nothing Then
        ActiveSheet.ChartObjects("Graphique 4").Select
        ActiveChart.Axes(xlValue).MinimumScale = [B2]
        ActiveChart.Axes(xlValue).MaximumScale = [C4]
    End If
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 195
Messages
2 086 083
Membres
103 114
dernier inscrit
sylvainb6969