Private Sub Worksheet change

[shuyi]

Bonjour,
Est ce quelqu'un saurait me dire ce qu'il faut que je change dans la macro ci-dessous pour que ce soit les lignes qui se masquent et non les colonnes.
Merci d'avance!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaCellule As Range
For Each MaCellule In Range("D14:F46")
If MaCellule.Value = 0 Then
On Error Resume Next
MaCellule.EntireLine.Hidden = True
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.PlotVisibleOnly = True
Else
MaCellule.EntireLine.Hidden = False
End If

Next
End Sub

 

[Modeste]

Re : Private Sub Worksheet change

Bonjour shuyi,

Je ne sais absolument pas ce que tu veux faire, mais je dirais que EntireLine n'est guère répandu 🙄 peut-être qu'EntireRow aurait plus de chances d'être reconnu.

... Pour le reste, je ne me prononce pas!

 

[shuyi]

Re : Private Sub Worksheet change

Bonjour Modeste,
C'est exactement ce qu'il me fallait.
Merci beaucoup!