Macro Masquer / Afficher des lignes sur Ecxel

khrane -  
Gyrus Messages postés 3360 Statut Membre -
Bonjour,

Je suis face à un petit problème de Macro :
J'aimerais, pour les lignes 34 à 42 de ma feuille excel, que :
- Chaque fois que je met à jour mon TCD :
- Les lignes masquées sur ma feuille réapparaissent, puis,
- Les lignes pour lesquelles la colonne A est vide se masquent à nouveau.

Mon code actuel ne fonctionne pas tout à fait :

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim cel As Range
For Each cel In Range("34:42")
If cel.EntireRow.Hidden = True Then
cel.EntireRow.Hidden = False
End If
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
End Sub

Merci d'avance pour vos conseils !

1 réponse

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim cel As Range
    Application.ScreenUpdating = False
    Rows("32:42").EntireRow.Hidden = False
    For Each cel In Range("A34:A42")
    If cel.Value = "" Then cel.EntireRow.Hidden = True
    Next
    End Sub


    A+
    0