Macro Masquer / Afficher des lignes sur Ecxel

Fermé

khrane - 2 avril 2015 à 14:39
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 2 avril 2015 à 15:17

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 !

A voir également:

Macro Masquer / Afficher des lignes sur Ecxel
Masquer conversation whatsapp - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
2 avril 2015 à 15:17

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+

Discussions similaires

Afficher toutes les lignes masquées excel

remettre toutes les colonnes et les lignes masquées

Statut « en ligne » alors que non

Discussions similaires

Newsletters