1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2007 [Résolu] Masquer ligne si cellule non vide

Discussion dans 'Forum Excel' démarrée par libellule85, 21 Avril 2017 à 12:26.

  1. libellule85

    libellule85 XLDnaute Accro

    Inscrit depuis le :
    24 Novembre 2010
    Messages :
    1056
    "J'aime" reçus :
    25
    Habite à:
    La Roche sur Yon (85)
    Utilise:
    Excel 2007 (PC)
    Bonjour le forum,
    J'aurais une nouvelle fois besoin de votre aide.
    J'aimerais que quand une cellule de la colonne H est non vide cela masque la ligne.
    Ci-joint un fichier.
    D'avance merci beaucoup pour votre aide
     

    Pièces jointes:

  2. DoubleZero

    DoubleZero XLDnaute Barbatruc

    Inscrit depuis le :
    14 Septembre 2010
    Messages :
    5400
    "J'aime" reçus :
    1123
    Utilise:
    Excel 2013 (PC)
    Bonjour, libellule85, le Forum,

    Comme ceci ?
    Code (Visual Basic):
    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 :)
     
    libellule85 aime votre message.
  3. libellule85

    libellule85 XLDnaute Accro

    Inscrit depuis le :
    24 Novembre 2010
    Messages :
    1056
    "J'aime" reçus :
    25
    Habite à:
    La Roche sur Yon (85)
    Utilise:
    Excel 2007 (PC)
    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: 21 Avril 2017 à 13:40
  4. vgendron

    vgendron XLDnaute Barbatruc

    Inscrit depuis le :
    24 Février 2009
    Messages :
    3137
    "J'aime" reçus :
    135
    Utilise:
    Excel 2007 (PC)
    Hello le forum

    autre solution avec ces deux lignes
    Code (Visual Basic):

    fin = Range("E" & Rows.Count).End(xlUp).Row
    Range("E5:H" & fin).Columns(4).SpecialCells(xlTextValues).EntireRow.Hidden = True
     
    voire ceci..
    Code (Visual Basic):

    Sub test()
    fin = Range("E" & Rows.Count).End(xlUp).Row
    Range("H5:H" & fin).SpecialCells(xlTextValues).EntireRow.Hidden = True
    End Sub
     
     
    libellule85 aime votre message.
  5. libellule85

    libellule85 XLDnaute Accro

    Inscrit depuis le :
    24 Novembre 2010
    Messages :
    1056
    "J'aime" reçus :
    25
    Habite à:
    La Roche sur Yon (85)
    Utilise:
    Excel 2007 (PC)
    Bonjour vgendron,

    Merci beaucoup pour ta réponse.
    Bon après midi
     
  6. libellule85

    libellule85 XLDnaute Accro

    Inscrit depuis le :
    24 Novembre 2010
    Messages :
    1056
    "J'aime" reçus :
    25
    Habite à:
    La Roche sur Yon (85)
    Utilise:
    Excel 2007 (PC)
    Re vgendron,

    Après essai de ton code dans mon fichier, une constatation : il est beaucoup plus rapide que celui de DoubleZero !
    En tous cas, merci à vous deux.
     

Partager cette page