Bouton qui filtre ligne ayant que des zeros

[bast0504]

Bonjour,

Quel code VBA simple je pourrais avoir pour un bouton qui filtrerait les lignes ayant que des 0, serait il possible de plus d'avoir un effet sur le bouton, un effet pressé.

Merci

 

[Victor21]

Re : Bouton qui filtre ligne ayant que des zeros

Bonsoir.

VBA, je ne sais pas, mais avec une colonne sup avec le total par ligne ?
(Pourquoi faire compliqué ?)
La flèche du bouton du filtre automatique devient bleue s'il est activé.

 

[lelectricien]

Re : Bouton qui filtre ligne ayant que des zeros

Jettes un oeil ici: https://www.excel-downloads.com/thr...en-fonction-de-la-valeur-dune-cellule.163431/

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Bonsoir bast0504, salut Patrick, lelectricien,

Il y a plusieurs feuilles, et les plages à traiter ne sont pas au même endroit.

Donc perso je préfèrerais des combinaisons de touches pour lancer ces 2 macros :

Sub Masquer()
'se lance par Ctrl+M
Dim cel As Range, masque As Range
On Error Resume Next
For Each cel In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 1)
If Application.Sum(cel.EntireRow) = 0 Then _
  Set masque = Union(cel, IIf(masque Is Nothing, cel, masque))
Next
masque.EntireRow.Hidden = True
End Sub

Sub Affiche()
'se lance par Ctrl+A
Rows.Hidden = False
End Sub

Fichier joint.

Nota : il ne faut pas de nombres en dehors des tableaux à traiter [Edit] si leur somme par ligne est nulle...

A+

 

[mapomme]

Re : Bouton qui filtre ligne ayant que des zeros

Bonsoir bast0504,

Une autre possibilité avec un filtre avancée en J1:J2 ( n'affiche que les lignes égales à 0)

Pour afficher les lignes dont au moins une valeur n'est pas nulle, remplacer la formule en J2:

=NON(OU(C8<>0;D8<>0;E8<>0;F8<>0))

par la formule:

=OU(C8<>0;D8<>0;E8<>0;F8<>0)

Voir fichier

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Bonsoir mapomme,

Le terme "Filtrer" est en effet ambigu.

On peut afficher les lignes de valeurs zéros ou les masquer.

Ma version (1) les masquait, alors pour les afficher :

Sub Masquer()
'se lance par Ctrl+M
Dim cel As Range, masque As Range
On Error Resume Next
For Each cel In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 1)
If Application.Count(cel.EntireRow) <> Application.CountA(cel.EntireRow) _
  And Application.Sum(cel.EntireRow) <> 0 Then _
  Set masque = Union(cel, IIf(masque Is Nothing, cel, masque))
Next
masque.EntireRow.Hidden = True
End Sub

Sub Affiche()
'se lance par Ctrl+A
Rows.Hidden = False
End Sub

Version (2).

Nota : la ligne des années ne doit comporter que des nombres...

A+

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour le fil, le forum,

Cette version (3) est bien plus rapide :

Sub Masquer()
'se lance par Ctrl+M
Dim r As Range, masque As Range
On Error Resume Next
Set r = Cells.SpecialCells(xlCellTypeConstants, 2).EntireRow
Set r = Intersect(r, Cells.SpecialCells(xlCellTypeConstants, 1).EntireRow)
For Each r In r.Rows
If Application.Sum(r) <> 0 Then _
  Set masque = Union(r, IIf(masque Is Nothing, r, masque))
Next
masque.EntireRow.Hidden = True
End Sub

Sub Affiche()
'se lance par Ctrl+A
Rows.Hidden = False
End Sub

A+

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Re,

Cette version (4) utilise le double-clic pour masquer ou afficher.

La macro dans ThisWorkbook :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
  ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Application.Count(Cells) = Application.Subtotal(102, Cells) Then _
Masquer Else Affiche
End Sub

A+

 

[urbanito1]

Re : Bouton qui filtre ligne ayant que des zeros

bonjour le forum
hello job75,mapomme,lelectricien,victor21,bast0504

comment modifier le paramétrage version 4 pour ne selectionner qu'une colonne exemple : la colonne E

merci
urbanito1

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour urbanito1,

On ne sélectionne rien : on masque/affiche des lignes.

On peut en plus masquer/afficher les colonnes qu'on veut.

A+

 

[urbanito1]

Re : Bouton qui filtre ligne ayant que des zeros

Merci job75
j'y avais vraiment pas pensé....
bon week-end
urbanito1

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Re,

Une méthode pour définir les colonnes à masquer : version (5).

A+

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

bonjour, Victor21, lelectricien, job75,mapomme

Merci à tous pour vos contributions je vais toutes les essayer une par une

Mon objectif est en effet de masquer les lignes ayant que des zéros, car elles apportent aucune infos pour mon cas.

j'ai pensé à un autre point, comment rajouter une couleur lorsque le filtre est actif et une autre couleur quand le filtre est inactif ou à la limite afficher la mention "filtre activé" ou "filtre désactivé"

Merci

 

[mapomme]

Re : Bouton qui filtre ligne ayant que des zeros

Bonsoir bast0504, job75, le forum,

La proposition avec filtre avancé avait déjà:
1) un texte différent sur le bouton suivant que le filtre est ou non activé.
2) une couleur différente de N° de ligne quand le filtre est activé.
La version 2 modifie la couleur du tableau lui-même quand le filtre est actif.

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonsoir bast0504,

Une autre possibilité avec un filtre avancée en J1:J2 ( n'affiche que les lignes égales à 0)

Pour afficher les lignes dont au moins une valeur n'est pas nulle, remplacer la formule en J2:

=NON(OU(C8<>0;D8<>0;E8<>0;F8<>0))

par la formule:

=OU(C8<>0;D8<>0;E8<>0;F8<>0)

Voir fichier

Bonjour

Comment adapté le code dans la cas ou on a les mêmes tableaux dans plusieurs onglets ?

THANKS