Masquer des lignes lorsque elles sont vides

Bonjour Clem, le Forum

Si par exemple tu dois vérifier les cellules dans la colonne 'B' qui seraient vides, auquel cas on masque la ligne, voici ce qu'il te faut :

Option Explicit

Sub CacheCacheRows()
Dim Cell As Range
Dim Plage As Range

    With Sheets('NomDeTaFeuille')
        Set Plage = .Range('B1:B' & .Range('B35000').End(xlUp).Row)
       
            For Each Cell In Plage
                If Cell = '' Then
                    .Rows(Cell.Row).Hidden = True
                End If
            Next
   
    End With
End Sub

Cliquez pour agrandir...

Si par contre tu veux vérifier que les cellules Vides soient (par exemple) en colonne 'A' ET 'D' ET 'G' (etc) tu peux t'y prendre comme ceci :

Sub CacheCacheRows()
Dim Cell As Range
Dim Plage As Range
Dim TempConcatenation As String

    With Sheets('NomDeTaFeuille')
        Set Plage = .Range('A1:A' & .Range('A35000').End(xlUp).Row)
       
            For Each Cell In Plage
            TempConcatenation = Cell & Cell.Offset(0, 3) & Cell.Offset(0, 6)
                If TempConcatenation = '' Then
                    .Rows(Cell.Row).Hidden = True
                End If
            Next
   
    End With
End Sub

Cliquez pour agrandir...

Pour tout remettre en ordre :

Sub PlusCacheCache()
Sheets('NomDeTaFeuille').Rows.Hidden = False
End Sub

Cliquez pour agrandir...

Bon Appétit
@+Thierry


EDITION !!!

Je viens de me rendre compte que tu parlais de formules, alors si ces formules retournent '0' ce n'est pas 'rien' tu dois tester comme ceci :

Sub CacheCacheRows()
Dim Cell As Range
Dim Plage As Range

    With Sheets('NomDeTaFeuille')
        Set Plage = .Range('B1:B' & .Range('B35000').End(xlUp).Row)
       
            For Each Cell In Plage
                If Cell = 0 Then
                    .Rows(Cell.Row).Hidden = True
                End If
            Next
   
    End With
End Sub

Cliquez pour agrandir...

Message édité par: _Thierry, à: 14/07/2005 13:06

Fil déplacé dans le bon forum

A++

David