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

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour

je bloque sur un point, comment je pourrai créer un seul bouton qui me permettrait d'afficher et de filtrer par le même bouton.
Je souhaite aussi dupliquer ce bouton sur plusieurs onglet qui contiennent des tableaux tous semblables

Merci d'avance pour vos réponses

 

[mapomme]

Re : Bouton qui filtre ligne ayant que des zeros

Bonsoir bast0504,

Je suis pris par autre chose aussi je n'ai eu que peu de temps à consacrer à ta demande. J'ai pondu vite fait quelque chose (d'insatisfaisant à mes yeux) mais qui devrait fonctionner.
Deux constantes à modifier dans le code de chaque bouton: L'adresse de la cellule de début du tableau et l'adresse des deux cellules où on veut placer la zone de critère sur la feuille.

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour

le code me parait un peu compliquer compte tenu de mon niveau, j'ai fait qqch de plus simple en pj. Le problème est que quand appui sur filtre, il filtre, afficher tout il affiche tout, et quand je retouche afficher tout il me met message d'erreur (1004)

merci de votre aide

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour,

La solution que j'ai déjà présentée adaptée à un bouton de type Formulaire :

Sub BoutonFormulaire()
  If IsError(Application.Caller) Then Exit Sub
  Dim o As Object, r As Range, masque As Range
  Set o = ActiveSheet.DrawingObjects(Application.Caller)
  If o.Text = "Masquer" Then
    o.Text = "Afficher"
    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
  Else
    o.Text = "Masquer"
    Rows.Hidden = False
  End If
End Sub

On peut créer autant de boutons que l'on veut par Copier/Coller.

Fichier (5) joint.

A+

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour à tous

j'ai trouvé un code que je comprends mieux et qui devrait fonctionner, mais pas dans mon cas.

A quoi est du mon problème et comment je pourrais programmer tous ça dans un seul bouton qui afficherais "filtrer" et "afficher"

(mon cas fonctionne quand j'utilise des raccourcies)

Merci pour votre aide

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour,

j'ai trouvé un code que je comprends mieux (...)

Moi pas, s'il s'agit du peu de code présent dans le fichier joint 😕

A+

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour

Oui, Avec ce code j'ai réussi à créer deux boutons, l'un qui filtre et l'autre affiche tout, et par surprise ça marche très bien

C'est si bizarre que ca ?

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour

A quoi fait référence le code suivant :"Field:=1"

merci

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour à tous

je me rends compte que ma macro simplifié que j'ai trouvé ne fonctionne pas totalement cas il filtre uniquement quand il n'y a pas de 0 dans la première colonne mais il ne prends pas en compte quand il y a des valeurs dans les autres colonnes, qqun peut il m'expliquer à quoi cela est du et quelle solution utilisée

merci pour votre aide

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour bast0504,

il filtre uniquement quand il n'y a pas de 0 dans la première colonne mais il ne prends pas en compte quand il y a des valeurs dans les autres colonnes, qqun peut il m'expliquer à quoi cela est du et quelle solution utilisée

Vous avez répondu vous même à votre question.

Le filtre automatique ne convient donc pas.

Et pourquoi croyez-vous qu'on s'est décarcassé à vous donner des solutions qui elles marchent ???

A+

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour,

La solution que j'ai déjà présentée adaptée à un bouton de type Formulaire :

Sub BoutonFormulaire()
  If IsError(Application.Caller) Then Exit Sub
  Dim o As Object, r As Range, masque As Range
  Set o = ActiveSheet.DrawingObjects(Application.Caller)
  If o.Text = "Masquer" Then
    o.Text = "Afficher"
    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
  Else
    o.Text = "Masquer"
    Rows.Hidden = False
  End If
End Sub

On peut créer autant de boutons que l'on veut par Copier/Coller.

Fichier (5) joint.

A+

Bonjour Job 75

Merci pour ta réponse et ta solution qui fonctionne. J'ai réussi à la faire fonctionner. Je dois l'essayer sur d'autres tableaux

Merci beaucoup pour ta contribution

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour à tous

job75 ta solution fonctionne parfaitement mais lorsque je l'applique à un tableau rempli à 100% par des rechercheV elle ne fonctionne plus, est ce normal ?

Merci pour ton aide

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour à tous

 

[bast0504]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour à tous

lorsque j'applique la macro à un tableau rempli à 100% par des rechercheV elle ne fonctionne plus, est ce normal ?

Merci

 

[job75]

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour bast0504, le forum,

Vous remarquerez que ma macro utilise 2 recherches :

- SpecialCells(xlCellTypeConstants, 2) pour les constantes de texte

- SpecialCells(xlCellTypeConstants, 1) pour les constantes numeriques.

Si les valeurs sont donnees par des formules, utiliser :

- SpecialCells(xlCellTypeFormulas, 2) et/ou

- SpecialCells(xlCellTypeFormulas, 1)

Voyez l'aide VBA sur SpecialCells.

Je suis en voyage jusqu'au 17/06.

A+