Discussion :

[pacolapin]

Bonjour, voilà j'essaye de faire des graphiques mais mes plages de données sont différentes chaque jour, du coup j'ai utilisé DerCel et cela fonctionne pour un graphique et j'ai remis le même code pour un second graphique mais j'ai un débogage erreur d’exécution 1004.

Pourriez- vous m'aidez ?

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
 
 
Private Sub Graphiquevitessevent_Click()
 Const sheDonnéesSource  As String = "Import - Export"
    Const sheGraphiquevitessevent      As String = "Graphiquevitessevent"
    Dim chGraph             As Chart
    Dim rPlage              As Range
 
    ' Définition de la plage des données source du graphique
    DerCel = Range("a65536").End(xlUp)(1).Row
    Set rPlage = Sheets(sheDonnéesSource).Range("B2:B" & DerCel, "H2:H" & DerCel)
 
 
    ' Suppression du graphique si déjà existant
    On Error Resume Next
    Sheets(sheGraphiquevitessevent).Delete
    On Error GoTo 0
 
    ' Création du graphique
    Set chGraph = Charts.Add
    With chGraph
        ' Type histogramme
        .ChartType = xlLine
        ' Source du graphique
        .SetSourceData Source:=rPlage, PlotBy:=xlColumns
        ' Affichage du titre
        .HasTitle = True
        ' Intitulé
        .ChartTitle.Characters.Text = "Graphique du vent en fonction du temps"
        ' Nom de la feuille recevant le graphique
        .Name = sheGraphiquevitessevent
         ' Axe des catégories
        With .Axes(xlCategory)
 
            ' Inversé
            .ReversePlotOrder = False
            ' Coupe catégorie max
            .Crosses = xlMaximum
            ' Toutes les étiquettes
            .TickLabelSpacing = 1
            ' Titre de l'axe
            ' Affichage du titre
            .HasTitle = True
            .AxisTitle.Text = "le temps en heure : minutes"
             ' Police des étiquettes
             With .TickLabels.Font
               .Bold = False
               .Color = RGB(0, 0, 0)
               .Size = 9
   End With
    End With
    End With
 
    Sheets(sheGraphiquevitessevent).Select
 
End Sub