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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2019 Code VBA
Réponses
12
Affichages
791
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…