macro pour un histogramme

Version imprimable

09/08/2017, 16h39
mxitzny

1 pièce(s) jointe(s)

macro pour un histogramme

Bonjour je suis débutant j'ai besoin de votre aide
J'ai crée une macro pour m’afficher les éléments de mon tableau qui sont l'objectif en % et le pourcentage réalisé sachant que mon tableau peut augmenter, mai ça ne donne rien :(:calim2:
j'ai besoin de votre aide
ci joint mon fichier
Pièce jointe 301783

Citation:

Envoyé par mxitzny

Bonjour,

Avec ce code :

Code:

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
 
Sub Bouton1_Clic()
'macro pour l'histogramme
Dim sh As Worksheet
Dim chrt As Chart
Dim chrto As ChartObject
Dim sc1 As SeriesCollection
Dim ser As Series
 
        Set sh = Sheets("Pourcentage")
        With sh
             For Each chrto In .ChartObjects
                  chrto.Delete
             Next chrto
 
             Set chrt = .Shapes.AddChart.Chart
             With chrt
                 Set sc1 = .SeriesCollection
                 Set ser = sc1.NewSeries
 
                 With ser
                      .XValues = Range(sh.Range("A1").Offset(0, 1), sh.Range("A1").End(xlToRight))
                      .Values = Range(sh.Range("A5").Offset(0, 1), sh.Range("A5").End(xlToRight))
                      .ChartType = xlColumnClustered
                 End With
            End With
 
            Set chrt = Nothing
        End With
        Set sh = Nothing
End Sub

Vous obtiendrez ça :
Pièce jointe 301816

10/08/2017, 18h04
Invité

Citation:

Envoyé par mxitzny

Bonjour,

Je vous suggère de lire au moins une fois les règles du forum club.developpez.com/regles, notamment le chapitre 4.

Bonne lecture.
11/08/2017, 13h45
mxitzny

je m'excuse pour mon comportement, merci pour votre réponse et pour le temps que vous avez consacré votre réponse m'a bien aidé!!!
Merci
11/08/2017, 14h23
Invité

Citation:

Envoyé par mxitzny

Merci à vous. Bonne continuation.