Dear all,
je cherche à repérer les lignes masquées pour que lorsque j'exécute ma macro les noms des risques situés dans les lignes masquées n'apparaissent dans les étiquettes du graphique. Dans mon essai de créer cette macro que voici :
----
Sub Etiquettes()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel
ActiveChart.SeriesCollection(1).DataLabels.Font.Size = 7
ActiveChart.SeriesCollection(1).DataLabels.Border.LineStyle = xlNone
ActiveChart.SeriesCollection(1).DataLabels.Border.Color = RGB(0, 0, 0)
Dim m
m = 1
Do While ActiveSheet.Cells(2, m) <> "Indicator"
m = m + 1
Loop
y = ActiveChart.SeriesCollection(1).Points.Count
c = 1
For i = 1 To y
c = c + 1
If Rows(i + 2).EntireRow.Hidden = False Then
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Characters.Text = ActiveSheet.Cells(c, 1) & " : " & ActiveSheet.Cells(c, m)
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Interior.Color = RGB(255, 255, 255)
End If
Next i
End Sub
----
Je tombe sur l'erreur 1004: Méthode 'Rows' de l'objet Global a échoué sur la ligne
If Rows(i + 2).EntireRow.Hidden = False Then
Merci d'avance pour votre aide
je cherche à repérer les lignes masquées pour que lorsque j'exécute ma macro les noms des risques situés dans les lignes masquées n'apparaissent dans les étiquettes du graphique. Dans mon essai de créer cette macro que voici :
----
Sub Etiquettes()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel
ActiveChart.SeriesCollection(1).DataLabels.Font.Size = 7
ActiveChart.SeriesCollection(1).DataLabels.Border.LineStyle = xlNone
ActiveChart.SeriesCollection(1).DataLabels.Border.Color = RGB(0, 0, 0)
Dim m
m = 1
Do While ActiveSheet.Cells(2, m) <> "Indicator"
m = m + 1
Loop
y = ActiveChart.SeriesCollection(1).Points.Count
c = 1
For i = 1 To y
c = c + 1
If Rows(i + 2).EntireRow.Hidden = False Then
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Characters.Text = ActiveSheet.Cells(c, 1) & " : " & ActiveSheet.Cells(c, m)
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Interior.Color = RGB(255, 255, 255)
End If
Next i
End Sub
----
Je tombe sur l'erreur 1004: Méthode 'Rows' de l'objet Global a échoué sur la ligne
If Rows(i + 2).EntireRow.Hidden = False Then
Merci d'avance pour votre aide