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
A voir également:

2 réponses

Réponse 1 / 2
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
Réponse 2 / 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
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
Internat nourriture
shaun37 -
griggo -

4 réponses