Changer type de courbe graphique en fonction d'un critère[resolu]

[Etn]

Bonjour !

Je souhaiterais avoir 2 types de courbes différentes en fonction du fait si le mois est realisé ou prévisionnel.

Si le mois est realisé alors trait plein.
Si le mois est prévisionnel alors trait en pointillé.

Est-ce possible ?

J'ai joint un fichier modèle.

Merci d'avance !

Etn

 

[phlaurent55]

Bonjour Etn,

Difficile à réaliser avec des courbes (problèmes avec les raccordements des courbes)
mais plus facile avec des bâtonnets

voir fichier joint

à+
Philippe

 

[Etn]

Bonjour Philippe,

Le probleme est que cela doit être via des courbes car il y a environ 5-6 colonnes différentes à comparer mais merci quand meme d'avoir essayé via les batonnets.

 

[Gardien de phare]

Bonsoir,

Ça ?

 

[CB60]

Bonsoir
Un autre exemple

 

[Etn]

Bonsoir CB60 et gardien de phare,

C'est actuellement la méthode que j'avais trouvé (je voulais savoir s'il était possible d'y parvenir en utilisant qu'une seule courbe).

En revanche j'avais essayé avec si "prévisionnel" alors "" sauf que ça me mettais 0. Je n'ai pas pensé à utiliser le NA().

Merci de votre aide, je devrais pouvoir me débrouiller avec cela.

Bonne soirée,

Etn

 

[Gardien de phare]

Bonjour,

Une seule courbe et une petite macro... Activer le graphique avant d'exécuter la macro.

 

[CB60]

Bonjour à tous
Avec le travail de gardien de phare et une petite modif, possibilité d'avoir X courbes et pas besoin de sélectionner le graph en amont

Sub Pointille()
Dim i As Integer
    graph = ActiveSheet.Shapes(1).Name
   ' MsgBox graph
    ActiveSheet.ChartObjects(graph).Activate
B = ActiveChart.SeriesCollection.Count
'MsgBox B
For A = 1 To B
    With ActiveChart.SeriesCollection(A)
        For i = 1 To 12
            With .Points(i)
                If Range("b" & i + 1) = "Prévisionnel" Then
                    .Format.Line.DashStyle = msoLineSysDash
                End If
            End With
        Next
    End With
Next A
End Sub

 

[Etn]

Waouh super ! Merci beaucoup !!

 

[CB60]

Bonne soirée
J'ai ajouté un else afin de permette la mise à jour des courbes si l'état "Réalisé et Prévisionnel " change

Sub Pointille()
Dim i As Integer
    graph = ActiveSheet.Shapes(1).Name
    ActiveSheet.ChartObjects(graph).Activate
B = ActiveChart.SeriesCollection.Count

For a = 1 To B
    With ActiveChart.SeriesCollection(a)
        For i = 1 To 12
            With .Points(i)
                If Range("b" & i + 1) = "Prévisionnel" Then
                    .Format.Line.DashStyle = msoLineSysDot
                    Else
                    .Format.Line.DashStyle = msoLineSolid
                End If
            End With
        Next
    End With
Next a
End Sub