Masquer lignes vides

Résolu/Fermé

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 6 avril 2014 à 06:23
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 6 avril 2014 à 18:35

Bonjour,
il est 6 h du matin je cherche depuis 6 h de l'après midi j'ai honte de poser la question mais je pense que ce sera la dernière je sature
comment masquer les lignes vides d'une feuille a l'activation de la feuille?
j ai bien vu ce lien et des dizaines d'autres j ai bloqué 20 classeurs mais je n y arrive pas

https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne#q=derniere+rangee+vide&cur=1&url=%2F
j'ai mis ça
Private Sub Worksheet_Activate()
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Select
Selection.EntireRow.Hidden = True
End Sub
True ou False j'obtiens rien je suis sous excel 2010 parce que j avais trouvé des formules qui ont fonctionné jusqu'a ce que je ferme le classeur puis impossible a rouvrir
une 20 aine
merci de votre aide

A voir également:

Masquer lignes vides
Masquer conversation whatsapp - Guide
Comment masquer les amis sur facebook - Guide
Appel masquer - Guide
Masquer application android - Guide
Chat Lock WhatsApp : vous pourrez protéger vos discussions privées par un mot de passe - Guide

3 réponses

Réponse 1 / 3

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
6 avril 2014 à 08:31

Bonjour,

ce code recherche la plage à traiter de la cellule A1 à la dernière cellule de la colonne A non vide et masque les lignes dont les cellules colonne A sont vide.

colle ce code dans la Thiswokbook pour masquer les ligne à l'ouverture du fichier

Option Explicit

Private Sub Workbook_Open()
Dim cel As Range
Dim derlig As Long
derlig = Cells(65536, 1).End(xlUp).Row
For Each cel In Range(Cells(1, 1), Cells(derlig, 1))
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
End Sub

je pense qu'il faut prévoir un bouton pour éventuellement afficher les lignes masquées

Private Sub CommandButton1_Click()
[A1:A1000].EntireRow.Hidden = False
End Sub

Réponse 2 / 3

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
6 avril 2014 à 10:16

Bonjour,

Ou éventuellement, un code pour masquer la plage après la dernière cellule renseignée de la colonne A.

Private Sub Workbook_Open()
    With Worksheets("Feuil1")
        .Range(.Range("A" & Rows.Count).End(xlUp).Offset(1), .Range("A" & Rows.Count)).EntireRow.Hidden = True
    End With
End Sub

A+

Réponse 3 / 3

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
6 avril 2014 à 18:35

bonjour
merci de ton aide
j ai pris la 2eme proposition la 1 ère ne fonctionne pas
merci
a bientôt

Discussions similaires

EXCEL : Supprimer des lignes vides à la fin

Afficher toutes les lignes masquées excel

pas d'impression car pas d'encre couleur

Cacher les membres du groupe WhatsApp

code pour cacher le numero orange cameroun

Discussions similaires

Newsletters