Discussion :

[Bisbis27]

Bonjour

Je souhaites en vba filtrer automatiquement les valeurs d'un tableau quand je clique sur un bouton que j'ai nommé "actualiser graphique"
Ce bouton devra décocher, les valeurs qui sont égales à 0 dans la colonne lot et garder tout le reste et decocher les valeurs qui ne sont pas numériques

voici un aperçu du tableau en question



Voila
merci pour votre aide

[BENNASR]

bonsoir
démarre l'enregistreur automatique et fais l'opération manuellement...arreter l'enregistreur auto et tu aura ton code
essayez avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro1()
With Sheets("feuil1")
k = .Range("A" & Rows.Count).End(xlUp).Row
 .Range("A3:G" & k).AutoFilter Field:=1, Criteria1:="<>"
End With
End Sub

[BENNASR]

pour différent de zéro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro1()
With Sheets("feuil1")
k = .Range("A" & Rows.Count).End(xlUp).Row
 .Range("A3:G" & k).AutoFilter Field:=1, Criteria1:="<> 0"
End With
End Sub

[Bisbis27]

Merci BENNASR ça fonctionne

est ce que c'est possible avec le même bouton de filtrer les valeurs non numériques en colonne B ?
et de conserver en meme temps le filtre différent de 0 ?

merci pour ton aide

[BENNASR]

peut être c'est du bricolage mais essayez avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
With Sheets("feuil1")
k = .Range("A" & Rows.Count).End(xlUp).Row
 .Range("A3:G" & k).AutoFilter Field:=1, Criteria1:="<> 0"
 
   .Range("A3:G" & k).AutoFilter Field:=2, Criteria1:= _
        "<1000000", Operator:=xlAnd, Criteria2:=">-1000000"
End With
End Sub