Bouton qui filtre ligne ayant que des zeros

B

bast0504

XLDnaute Occasionnel

• 30 Mai 2012

• #16

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Mai 2012

• #17

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.

 

Pièces jointes

• Bouton qui masque ligne ayant que des zeros v3.xls

  63.5 KB · Affichages: 28

Vote positif 0 Vote négatif

B

bast0504

XLDnaute Occasionnel

• 31 Mai 2012

• #18

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

 

Pièces jointes

• ccct.xls

  36 KB · Affichages: 39
• ccct.xls

  36 KB · Affichages: 41
• ccct.xls

  36 KB · Affichages: 35

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mai 2012

• #19

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 :

Code:

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+

 

Pièces jointes

• Fltre ligne à zero(5).xls

  51 KB · Affichages: 29

Vote positif 0 Vote négatif

B

bast0504

XLDnaute Occasionnel

• 4 Juin 2012

• #20

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

 

Pièces jointes

• ccct.xls

  35 KB · Affichages: 32
• ccct.xls

  35 KB · Affichages: 36
• ccct.xls

  35 KB · Affichages: 34

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Juin 2012

• #21

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour,

bast0504 à dit:

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

B

bast0504

XLDnaute Occasionnel

• 4 Juin 2012

• #22

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 ?

 

Dernière édition: 4 Juin 2012

Vote positif 0 Vote négatif

B

bast0504

XLDnaute Occasionnel

• 4 Juin 2012

• #23

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour

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

merci

 

Vote positif 0 Vote négatif

B

bast0504

XLDnaute Occasionnel

• 6 Juin 2012

• #24

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

 

Pièces jointes

• ccct-2.xls

  36 KB · Affichages: 29

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juin 2012

• #25

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour bast0504,

bast0504 à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

B

bast0504

XLDnaute Occasionnel

• 6 Juin 2012

• #26

Re : Bouton qui filtre ligne ayant que des zeros

job75 à dit:

Bonjour,

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

Code:

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

B

bast0504

XLDnaute Occasionnel

• 8 Juin 2012

• #27

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

 

Vote positif 0 Vote négatif

B

bast0504

XLDnaute Occasionnel

• 9 Juin 2012

• #28

Re : Bouton qui filtre ligne ayant que des zeros

Bonjour à tous

 

Vote positif 0 Vote négatif

B

bast0504

XLDnaute Occasionnel

• 10 Juin 2012

• #29

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Juin 2012

• #30

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+

 

Vote positif 0 Vote négatif