Discussion :

[mxitzny]

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
j'ai besoin de votre aide
ci joint mon fichier
Histogramme.xlsm

[Invité]

Bonjour,

Avec ce code :

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
 
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

[Invité]

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.

[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

[Invité]

Merci à vous. Bonne continuation.