Macro pour masquer des lignes
Résolu
crooner76
Messages postés
345
Date d'inscription
Statut
Membre
Dernière intervention
-
crooner76 Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
crooner76 Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai besoin d'un petit coup de main pour une macro :
J'ai un bordereau de plusieurs centaines de lignes d'articles en plusieurs paragraphes, le tout sur une même feuille.
dans une colonne, j'indique ici et là des quantités suivant mes besoins
Je souhaiterais une macro qui repérerait toutes les lignes dont la cellule "quantité" est à zéro (ou vide) et les masquerait.
(J'attribuerais ensuite cette macro à un pavé à cliquer)
Merci d'avance pour vos réponses
j'ai besoin d'un petit coup de main pour une macro :
J'ai un bordereau de plusieurs centaines de lignes d'articles en plusieurs paragraphes, le tout sur une même feuille.
dans une colonne, j'indique ici et là des quantités suivant mes besoins
Je souhaiterais une macro qui repérerait toutes les lignes dont la cellule "quantité" est à zéro (ou vide) et les masquerait.
(J'attribuerais ensuite cette macro à un pavé à cliquer)
Merci d'avance pour vos réponses
A voir également:
- Macro pour masquer des lignes
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Partager des photos en ligne - Guide
- Masquer conversation whatsapp - Guide
- Comment masquer les amis sur facebook - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
3 réponses
bonjour
un exemple de code
bonne suite
un exemple de code
Const coqte = "C" ' colonne quantité Const lideb = 2 Private Sub btMasquer_Click() Dim li As Long, lifin As Long, q lifin = Range(coqte & Rows.Count).End(xlUp).Row For li = lideb To lifin q = Range(coqte & li).Value If q = 0 Then Rows(li).Hidden = True Next li End Sub
bonne suite
Bonjour,
ce n'est pas plus simple de mettre un filtre automatique sur l'en-tête des colonnes puis de filtrer sur (non vides) ?
eric
ce n'est pas plus simple de mettre un filtre automatique sur l'en-tête des colonnes puis de filtrer sur (non vides) ?
eric
Bonjour
A force de tâtonnement et en adaptant, j'ai une macro qui tourne
Sub MasquerLignes()
Dim plage As Range, c As Range
Set plage = Union([N11:N21], [N25:N30], [N34:N47], [N51:N53], [N57:N63])
For Each c In plage
If c.Value = 0 Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next c
End Sub
A force de tâtonnement et en adaptant, j'ai une macro qui tourne
Sub MasquerLignes()
Dim plage As Range, c As Range
Set plage = Union([N11:N21], [N25:N30], [N34:N47], [N51:N53], [N57:N63])
For Each c In plage
If c.Value = 0 Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next c
End Sub
je vais tester
bonne journée
J'ai essayé d'appliquer, mais faute d'explication, je n'arrive à rien.
sans doute qu'avec un fichier exemple les propositions seraient plus adaptées.
Déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni.
eric