Discussion :

[Invité]

Bonjour bonjour,

Je ne sais pas trop où placer ce topic donc je vais le mettre ici.

J'ai un graphique qui se modifie de façon automatique (via vba) en fonction d'une base de données SQL.

Sur ce graphique j'ai fait ressortir en bidouillant les valeurs min et max.

En gros j'ai créer un nouvelle série dont je n'affiche pas le titre mais seulement les étiquettes.

Et avec une fonction vba excel toute simple j'ai ne mets que les valeurs min et max de mes trois autres séries dans cette série :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Function Affichage_Etiquettes()
 
Dim i, nb_valeurs, last_max, last_min As Integer
Dim val_max, val_min As Double
 
nb_valeurs = Sheets("DONNEES").Range("L1").Value
 
val_max = 100
val_min = 100
 
i = 0
 
    While i < nb_valeurs - 1
 
        If val_max < Cells(i + 2, 2).Value Then
 
            val_max = Cells(i + 2, 2).Value
            last_max = i + 2
 
        ElseIf val_max < Cells(i + 2, 3).Value Then
 
            val_max = Cells(i + 2, 3).Value
            last_max = i + 2
 
        ElseIf val_max < Cells(i + 2, 4).Value Then
 
            val_max = Cells(i + 2, 4).Value
            last_max = i + 2
 
        End If
 
 
        If val_min > Cells(i + 2, 2).Value Then
 
            val_min = Cells(i + 2, 2).Value
            last_min = i + 2
 
        ElseIf val_min > Cells(i + 2, 3).Value Then
 
            val_min = Cells(i + 2, 3).Value
            last_min = i + 2
 
        ElseIf val_min > Cells(i + 2, 4).Value Then
 
            val_min = Cells(i + 2, 4).Value
            last_min = i + 2
 
        End If
 
        i = i + 1
 
    Wend
 
Cells(last_max, 5).Value = val_max
Cells(last_min, 5).Value = val_min
 
End Function

En fait ça fonctionne mais je voulais juste savoir s'il y avait un moyen plus "propre" pour afficher les valeurs min et max ?? En gros que powerpoint me trouve tout seul comme un grand.

Cf le graph en pièce jointe.

http://www.developpez.net/forums/att...1&d=1254990128