Macro pour masquer des lignes
Résolu/Fermé
crooner76
Messages postés
330
Date d'inscription
mardi 27 novembre 2012
Statut
Membre
Dernière intervention
15 avril 2024
-
27 nov. 2012 à 14:59
crooner76 Messages postés 330 Date d'inscription mardi 27 novembre 2012 Statut Membre Dernière intervention 15 avril 2024 - 28 févr. 2013 à 17:18
crooner76 Messages postés 330 Date d'inscription mardi 27 novembre 2012 Statut Membre Dernière intervention 15 avril 2024 - 28 févr. 2013 à 17:18
A voir également:
- Macro pour masquer des lignes
- Masquer conversation whatsapp - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
3 réponses
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
Modifié par ccm81 le 27/11/2012 à 15:32
Modifié par ccm81 le 27/11/2012 à 15:32
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
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 211
27 nov. 2012 à 16:01
27 nov. 2012 à 16:01
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
crooner76
Messages postés
330
Date d'inscription
mardi 27 novembre 2012
Statut
Membre
Dernière intervention
15 avril 2024
48
28 nov. 2012 à 11:09
28 nov. 2012 à 11:09
Bonjour
Comme je l'indique, mon bordereau comprend plusieurs paragraphes avec des en-tetes différentes, donc le filtre, ça va être compliqué...
merci bonne journée
Comme je l'indique, mon bordereau comprend plusieurs paragraphes avec des en-tetes différentes, donc le filtre, ça va être compliqué...
merci bonne journée
crooner76
Messages postés
330
Date d'inscription
mardi 27 novembre 2012
Statut
Membre
Dernière intervention
15 avril 2024
48
28 févr. 2013 à 17:18
28 févr. 2013 à 17:18
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
28 nov. 2012 à 11:07
je vais tester
bonne journée
10 déc. 2012 à 17:08
J'ai essayé d'appliquer, mais faute d'explication, je n'arrive à rien.
10 déc. 2012 à 17:57
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