Repérer les lignes masquées

[Gallyka]

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

 

[phlaurent55]

Re : Repérer les lignes masquées

Bonjour Gallika,

il pourrait y avoir une erreur au premier passage dans la boucle For .. Next si la valeur Y est égale à réro

verifie donc cela

à+
Philippe

 

[Guest]

Re : Repérer les lignes masquées

Bonjour,

Faire référence à la feuille

IF ActiveSheet.Rows(i+1).EntireRow.Hidden =False then

Ou

ActiveSheet.Cells(i+1,1).EntireRow.Hidden = False then

A+

[Edition]Hello Philippe

 

[Gallyka]

Re : Repérer les lignes masquées

Merci pour votre réactivité phlaurent55 et Hasco, j'ai mis : IF ActiveSheet.Rows(i+1).EntireRow.Hidden =False then
Et c'est OK
Encore merci 🙂