Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Bouton afficher les lignes masquées

tchi456

XLDnaute Occasionnel
Bonjour,

J'ai une feuilles avec deux boutons (masquer et afficher des lignes si cellule en colonne F remplie).
Ce code fonctionne très bien sur la première feuille mais quand je veux dupliquer la feuille, le bouton "afficher" ne fonctionne pas sur la feuille copiée.

VB:
[COLOR=rgb(97, 189, 109)]' Masquer les lignes ou les cellules de la colonne F si elles sont remplies:[/COLOR]

Sub masquer_ligne_vide_TEST2()
    ActiveSheet.Unprotect Password:="."
    Dim Cel As Range
    For Each Cel In ActiveSheet.Range("F3:F250").Cells
    If Cel <> vbNullString And Cel.Value <> "" Then
    Cel.EntireRow.Hidden = True
    End If
    Next
    ActiveSheet.Protect Password:="."
End Sub

[COLOR=rgb(97, 189, 109)]' Afficher les lignes masquées:[/COLOR]

[COLOR=rgb(184, 49, 47)]Sub AfficherColonneLigne()
    ActiveSheet.Unprotect Password:="."
    Columns.EntireColumn.Hidden = False
    Rows.EntireRow.Hidden = False
    ActiveSheet.Protect Password:="."
End Sub[/COLOR]

Pouvez-vous m'aider?

Meilleures salutations,

Thierry
 

Discussions similaires

Réponses
7
Affichages
369
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…