Masquer une ligne si D=0
Qhes
Messages postés
180
Statut
Membre
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Masquer une ligne si D=0
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Masquer une conversation whatsapp - Guide
- Formulaire en ligne de meta - Guide
- Comment appeler en masquer - Guide
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
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.
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.
