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 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 3 juil. 2013 à 17:24
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 3 juil. 2013 à 17:24
A voir également:
- Masquer une ligne si D=0
- Masquer conversation whatsapp - Guide
- Apparaitre hors ligne instagram - Guide
- Aller à la ligne excel - Guide
- Vente en ligne particulier - Guide
- Partage de photos en ligne - 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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
Modifié par Mike-31 le 3/07/2013 à 17:25
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.
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.
