Masquer une ligne quand case dans colonne vide?

Bonjour,
J'ai un tableau de 530 Lignes et 4 colonnes représentent 1 mois.
Je veux que les lignes s'effacent quand les cases sont vides.
Est ce possible?

D'avance merci

2 réponses

  1. Bonjour,

    Si par "effacer" vous entendez "supprimer", alors il faut programmer une macro qui supprime les lignes vides (code très simple).

    Donnez-nous plus de détails sur vos colonnes en question et nous vous écrirons ce code.

    Si on part sur les colonnes A:D, alors ça donnerait :
    For i = 530 to 1 step -1

    If WorksheetFunction.CountIf(Range("A" & i & ":D" & i), "=") > 0 Then
    Rows(i & ":" & i).Select
    Selection.Delete Shift:=xlUp

    End If

    Next i
    0
    1. Merci pour votre retour,
      Non je ne veux pas supprimer la ligne, ça ressemble plutôt à filtrer.
      Si dans mes 4 colonnes du mois je trouve rien ou vide dans la case, dans ce cas je filtre pour ne voir apparaître que les lignes où il y a quelque chose. Ce qui veut dire faire un filtre pour 4 colonne en même temps.
      Merci
      0
      1. Il suffit de masquer la ligne au lieu de la supprimer, le code devient :
        Range(1:530).select   
        Selection.EntireRow.Hidden = False

        For i = 530 to 1 step -1

        If WorksheetFunction.CountIf(Range("A" & i & ":D" & i), "=") > 0 Then
        Rows(i & ":" & i).Select
        Selection.EntireRow.Hidden = True

        End If

        Next i
        0