Masquez les lignes qui contiennent des données inutiles

Voyez, par exemple, le tableau ci-dessous :

Tableau d'exemple, où les lignes 4, 12 et 16 contiennent le chiffre 0

On souhaite masquer dans ce tableau toutes les lignes dans lesquelles se trouve une cellule contenant un zéro. Voici la macro qui permet d'y parvenir :

Sub MasquerLigneSi0()
Dim Cellule As Range
For Each Cellule In ActiveSheet.UsedRange
If Cellule.Value = 0 And Rows(Cellule.Row).Hidden = False _
Then Rows(Cellule.Row).Hidden = True
Next Cellule
End Sub

Une fois la macro lancée dans le tableau de notre exemple, les cellules 4, 12 et 16 sont masquées.

Les lignes 4, 12 et 16 sont maintenant masquées

Il s'agit des colonnes dans lesquelles apparaissait un zéro. Si vous souhaitez masquer un autre chiffre, il suffit de remplacer le 0 par cet autre chiffre dans le code de la macro.

Pour faire réapparaître les cellules masquées vous pouvez utiliser la macro suivante :

Sub ToutAfficher()
Cells.Rows.Hidden = False
End Sub

Sur le même sujet : tableau masquer le contenu des cellules macro lisibilité affichage

Cet article vous a intéressé ?

Recevez gratuitement chaque semaine notre sélection d'astuces Excel en vous inscrivant ici.

Espace Professionnels

Accès Abonnés

EXCEL Performance