Masquer une ligne quand case dans colonne vide?

Fermé
Valhau Messages postés 2 Date d'inscription vendredi 5 février 2016 Statut Membre Dernière intervention 5 février 2016 - 5 févr. 2016 à 14:43
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 5 févr. 2016 à 15:25
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

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
Modifié par Theo.R le 5/02/2016 à 15:04
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
Valhau Messages postés 2 Date d'inscription vendredi 5 février 2016 Statut Membre Dernière intervention 5 février 2016
5 févr. 2016 à 15:12
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 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
5 févr. 2016 à 15:25
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