Masquer une ligne quand case dans colonne vide?

Valhau Messages postés 2 Statut Membre -  
Theo.R Messages postés 585 Statut Membre -
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.
    Theo.R Messages postés 585 Statut Membre 31
     
    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
  2. Valhau Messages postés 2 Statut Membre
     
    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. Theo.R Messages postés 585 Statut Membre 31
       
      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

Discussions similaires

le frigo ne marche pas....
Nemo6456 -
Templier Nocturne -

1 réponse
cocher des cases
beli -
karine -

6 réponses
Formaté mais pas de connexion Internet ?
VissErale -
VissErale -

4 réponses