1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

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

Discussion dans 'Forum Excel' démarrée par Etn, 7 Décembre 2017.

  1. Etn

    Etn XLDnaute Junior

    Inscrit depuis le :
    19 Février 2016
    Messages :
    98
    "J'aime" reçus :
    1
    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
     

    Pièces jointes:

  2. phlaurent55

    phlaurent55 XLDnaute Barbatruc

    Inscrit depuis le :
    27 Septembre 2007
    Messages :
    9276
    "J'aime" reçus :
    926
    Sexe :
    Masculin
    Habite à:
    Saint-Vincent Belgique
    Utilise:
    Excel 2007 (PC)
    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
     

    Pièces jointes:

    • 111.xlsx
      Taille du fichier:
      12.6 Ko
      Affichages:
      5
  3. Etn

    Etn XLDnaute Junior

    Inscrit depuis le :
    19 Février 2016
    Messages :
    98
    "J'aime" reçus :
    1
    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.
     
  4. Gardien de phare

    Gardien de phare XLDnaute Accro

    Inscrit depuis le :
    16 Septembre 2012
    Messages :
    1536
    "J'aime" reçus :
    113
    Utilise:
    Excel 2010 (PC)
    Bonsoir,

    Ça ?
     

    Pièces jointes:

    • etn.xlsx
      Taille du fichier:
      13.4 Ko
      Affichages:
      8
  5. CB60

    CB60 XLDnaute Barbatruc

    Inscrit depuis le :
    12 Février 2006
    Messages :
    4065
    "J'aime" reçus :
    61
    Utilise:
    Excel 2003 (PC)
    Bonsoir
    Un autre exemple
     

    Pièces jointes:

  6. Etn

    Etn XLDnaute Junior

    Inscrit depuis le :
    19 Février 2016
    Messages :
    98
    "J'aime" reçus :
    1
    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
     
  7. Gardien de phare

    Gardien de phare XLDnaute Accro

    Inscrit depuis le :
    16 Septembre 2012
    Messages :
    1536
    "J'aime" reçus :
    113
    Utilise:
    Excel 2010 (PC)
    Bonjour,

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

    Pièces jointes:

    • etn.xlsm
      Taille du fichier:
      19.2 Ko
      Affichages:
      5
  8. CB60

    CB60 XLDnaute Barbatruc

    Inscrit depuis le :
    12 Février 2006
    Messages :
    4065
    "J'aime" reçus :
    61
    Utilise:
    Excel 2003 (PC)
    Capt1.JPG 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
    Code (Text):
    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
     

    Pièces jointes:

    Dernière édition: 8 Décembre 2017
  9. Etn

    Etn XLDnaute Junior

    Inscrit depuis le :
    19 Février 2016
    Messages :
    98
    "J'aime" reçus :
    1
    Waouh super ! Merci beaucoup !!
     
  10. CB60

    CB60 XLDnaute Barbatruc

    Inscrit depuis le :
    12 Février 2006
    Messages :
    4065
    "J'aime" reçus :
    61
    Utilise:
    Excel 2003 (PC)
    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
    Code (Text):
    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
     

Partager cette page