Masquer une ligne si D=0 Fermé

Question

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 



Configuration: Windows XP / Internet Explorer 8.0

foo · Answer

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

Mike-31 · Answer

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.

Masquer une ligne si D=0

2 réponses

Discussions similaires