Masquer une ligne si D=0

Fermé
Qhes Messages postés 176 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 21 mai 2014 - 3 juil. 2013 à 14:05
Mike-31 Messages postés 18306 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 février 2024 - 3 juil. 2013 à 17:24
Bonjour,

J'ai la macro suivante :

Sub MasqueLigne()
If Range("A28").Value = 0 Then Rows("28:28").EntireRow.Hidden = True
End Sub


elle fonctionne bien mais uniquement pour la ligne 28. Est ce que c'est possible de la modifier pour qu'elle masque toutes les lignes qui ont un 0 dans leur colonne D?

Merci d'avance



A voir également:

2 réponses

Bonjour

Voila la macro

Sub MasqueLigne()
Nlig = Range("A" & Rows.Count).End(xlUp).Row
For L = 2 To Nlig
If Range("A" & L).Value = 0 Then
Rows(L).EntireRow.Hidden = True
End If
Next
End Sub

A+
Maurice
0
Mike-31 Messages postés 18306 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 février 2024 5 063
Modifié par Mike-31 le 3/07/2013 à 17:25
Bonjour,

Pour masquer les ligne entre la ligne2 et 40 par exemple contenant 0 mais non vide
il est possible de compléter le code et rechercher automatiquement la dernière ligne du tableau

Sub MasqueLigne()
Dim x As Integer
For x = 2 To 40
If Range("D" & x) <> "" And Range("D" & x) = 0 Then Rows(x).Hidden = True
Next
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0