[Résolu] Masquer ligne si cellule non vide

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 !

Bonjour, libellule85, le Forum,

Comme ceci ?
VB:
Option Explicit
Sub Ligne_masquer()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "h").End(xlUp).Row To 5 Step -1
        If Range("h" & i) <> "" Then Rows(i).Hidden = True
    Next i
    Application.ScreenUpdating = True
End Sub
A bientôt 🙂
 
Bonjour DoubleZero,

Un grand grand merci pour ton code c'est vraiment sympa, une fois de plus tu viens à mon secours !
Je viens de l'essayer sur mon très grand fichier et cela fonctionne à merveille !!
Bon après midi
 
Dernière édition:
Hello le forum

autre solution avec ces deux lignes
VB:
fin = Range("E" & Rows.Count).End(xlUp).Row
Range("E5:H" & fin).Columns(4).SpecialCells(xlTextValues).EntireRow.Hidden = True

voire ceci..
VB:
Sub test()
fin = Range("E" & Rows.Count).End(xlUp).Row
Range("H5:H" & fin).SpecialCells(xlTextValues).EntireRow.Hidden = True
End Sub
 
- 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

Réponses
4
Affichages
100
Réponses
6
Affichages
198
Réponses
10
Affichages
453
Retour