j'ai besoin de votre aide pour cr=E9er un filtre sur les r=E9sultats des
sous-totaux.
j'ai tri=E9 une liste puis effectu=E9 des sous-totaux.
Je voudrais limiter l'affichage des =E9l=E9ments de chaque sous-total aux
10 premiers de chaque=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Peut être y a t-il +simple: La colonne des totaux est en colonne C:
Produit CA Région Produit1 100 A Produit3 110 A Produit6 100 A Produit15 100 A 510 Total A Produit2 565 B Produit4 100 B Produit7 567 B Produit10 400 B 1738 Total B Produit5 100 C Produit8 100 C Produit11 100 C Produit12 100 C 400 Total C Produit17 120 D Produit20 107 D
Sub essai2() Cells.EntireRow.Hidden = False Range("C2").Select Do While ActiveCell <> "" mregion = ActiveCell i = 1 Do While ActiveCell = mregion And i <= 10 i = i + 1 ActiveCell.Offset(1, 0).Select Loop Do While ActiveCell = mregion ActiveCell.EntireRow.Hidden = True ActiveCell.Offset(1, 0).Select Loop Loop End Sub
Cordialement JB
Bonjour,
Peut être y a t-il +simple:
La colonne des totaux est en colonne C:
Produit CA Région
Produit1 100 A
Produit3 110 A
Produit6 100 A
Produit15 100 A
510 Total A
Produit2 565 B
Produit4 100 B
Produit7 567 B
Produit10 400 B
1738 Total B
Produit5 100 C
Produit8 100 C
Produit11 100 C
Produit12 100 C
400 Total C
Produit17 120 D
Produit20 107 D
Sub essai2()
Cells.EntireRow.Hidden = False
Range("C2").Select
Do While ActiveCell <> ""
mregion = ActiveCell
i = 1
Do While ActiveCell = mregion And i <= 10
i = i + 1
ActiveCell.Offset(1, 0).Select
Loop
Do While ActiveCell = mregion
ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop
Loop
End Sub
Peut être y a t-il +simple: La colonne des totaux est en colonne C:
Produit CA Région Produit1 100 A Produit3 110 A Produit6 100 A Produit15 100 A 510 Total A Produit2 565 B Produit4 100 B Produit7 567 B Produit10 400 B 1738 Total B Produit5 100 C Produit8 100 C Produit11 100 C Produit12 100 C 400 Total C Produit17 120 D Produit20 107 D
Sub essai2() Cells.EntireRow.Hidden = False Range("C2").Select Do While ActiveCell <> "" mregion = ActiveCell i = 1 Do While ActiveCell = mregion And i <= 10 i = i + 1 ActiveCell.Offset(1, 0).Select Loop Do While ActiveCell = mregion ActiveCell.EntireRow.Hidden = True ActiveCell.Offset(1, 0).Select Loop Loop End Sub
