Discussion :

[Marleclerc]

Bonjour,

Ma question est relativement simple ! Je veux utiliser un système de graphique de type linéaire qui affiche les données tant et aussi longtemps quelle monte mais aussitôt que la valeur suivant est plus petite que la précédant , l'affichage arrête à cette endroit ?

Exemple (1) : A1:A12 = 1,2,3,4,5,6,7,8,9,8,7,6
J'entre c'est donnée sur graphique mais sur le graphique on voit la ligne monté jusqu'à 9 mais après elle disparaît, on ne la voit pas descendre.

J'espère que j'ai été assez claire !

Merci de votre aide.
Martin

[parmi]

Bonjour,

Quelque chose comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Graphique()
    Dim I As Long, nbLignes As Long
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
 
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
 
    For I = 1 To nbLignes
        If Range("A" & I) > Range("A" & I + 1) Then
            ActiveChart.SetSourceData Source:=Range("A1:A" & I)
            Exit For
        End If
    Next
 
End Sub

S'il y a des entêtes en ligne 1, change pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For I = 2 To nbLignes

[Marleclerc]

Merci Beaucoup !

C'est parfais. Le problème est solutionné