filtre en vba

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

Pièce jointe 446780Pièce jointe 446780

Voila
merci pour votre aide

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

Code:

---

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

---

pour différent de zéro

Code:

---

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

---

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

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

Code:

---

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

---