Masquer une ligne si D=0
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
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
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 -
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.
