[AC-2003] Compter les lignes d'une DataSheet MS GRAPH [Résolu]

[paidge]

Bonjour,

Je continue d'apprendre à utiliser la bibliothèque MS GRAPH mais les objets, propriétés et méthodes ne sont pas très faciles à utiliser

Je cherche une propriété équivalente à :

Code :

wks.Range("A1").End(xlDown).Row

ou encore :

Code :

vlChart.SeriesCollection.Count

Afin de déterminer le nombre de lignes d'une DataSheet.

Concrètement, je suis en train de construire une boucle pour faire apparaître, sur des histogrammes empilés, les labels contenant la valeur en pourcentage :

Code :

1
2
3
4
5
6
7
8
For X = 1 To vlChart.SeriesCollection.Count
    With vlChart.SeriesCollection(X)
        .HasDataLabels = True
        For i = 1 To .DataLabels.Count
            .DataLabels(i).Caption = MonPourcentage & " %"
        Next i
    End With
Next X

Merci d'avance pour vos pistes

[paidge]

Et bien j'ai trouvé une alternative Donc voici une fonction permettant, sur le click d'une checkbox nommée chk_pourcent, d'afficher ou de masquer les % sur un histogramme empilé appelé ole_graph :

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
32
Private Sub AfficherPourcentages()
 
    Dim X As Integer, i As Integer, j As Integer, totalMois As Long
 
    Set vlChart = Me.ole_graph.Object.Application.Chart
    Set vlDataSheet = vlChart.Application.DataSheet
 
    For X = 1 To vlChart.SeriesCollection.Count
        With vlChart.SeriesCollection(X)
            If Me.chk_pourcent Then
                .HasDataLabels = True
                For i = 1 To .DataLabels.Count
                    totalMois = 0
                    For j = 1 To vlChart.SeriesCollection.Count
                        totalMois = totalMois + vlDataSheet.Range(Chr(64 + j) & i).Value
                    Next j
                    If totalMois <> 0 Then
                        .DataLabels(i).Caption = Round(100 * (vlDataSheet.Range(Chr(64 + X) & i).Value / totalMois), 0) & " %"
                    Else
                        .DataLabels(i).Caption = "0 %"
                    End If
                    .DataLabels(i).Font.Size = 8
                    .DataLabels(i).Font.Background = xlBackgroundOpaque
                    .DataLabels(i).Interior.ColorIndex = 2
                Next i
            Else
                .HasDataLabels = False
            End If
        End With
    Next X
 
End Sub

ça pourra peut-être servir à quelqu'un