Discussion :

[j.cedric]

Bonjour a tous

Je cherche un code VBA ou autre pour faire un filtre automatique différant de "0" dans une colonne.

Explication:

Sur une feuille (version imprimable) a l'heure actuelle des donnés sont écrite automatiquement via des formules mes il y a beaucoup de ligne vide (= 0) et donc je recherche un code ou autre pour remplacer mon filtre qui marche bien sauf quand je l'oublie. Il me sortirait toutes les ligne différant de "0" de la ligne C22 a C1500.

Merci de vos réponses.

[aalex_38]

Bonjour,

Un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub autof_cedric()
 
Dim NomFeuil As String, Fa As Worksheet
 
NomFeuil = "Feuil1"
Set Fa = Worksheets(NomFeuil)
Set MaPlage = Fa.Range("C22:C1500")
 
MaPlage.AutoFilter Field:=3, Criteria1:="<>"
 
End Sub

[j.cedric]

Déjà merci de ta réponse
Alors je n'ai toujours pas résolu mon problème je comprends a 1er vue le code car j'ai fouiller la :
http://excel.developpez.com/faq/?pag...iltreAutoMacro
j'ai exactement écrit ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub autof_cedric()
 
Dim NomFeuil As String, Fa As Worksheet
 
NomFeuil = "Cmd Frt"
Set Fa = Worksheets(NomFeuil)
Set MaPlage = Fa.Range("C22:C1500")
 
MaPlage.AutoFilter Field:=3, Criteria1:="<>"
 
End Sub

j'ai même essayer

Code :

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

MaPlage.AutoFilter Field:=3, Criteria1:="<>0"

et même essayer ceci

Code :

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

MaPlage.AutoFilter Field:=3, Criteria1:=">0"

je ne comprends pas pourquoi sa ne marche pas, je ses je suis un vrais débutant.
A savoir que dans la colonne C ce sont des formules et je veux sortir les lignes avec comme résultat 0

A mon avis j'ai omis un truc peut être le nom de ma feuille ou une connerie du genre.

[aalex_38]

Bonjour,


Peux tu préciser ce qui ne marche pas, le code plante ou pas, chez moi ce code fonctionne :

Code :

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

1
2
3
4
5
6
Dim NomFeuil As String, Fa As Worksheet
NomFeuil = "Feuil1"
Set Fa = Worksheets(NomFeuil)
' Set MaPlage = Fa.Range("C22:C1500")
Set MaPlage = Fa.Range("A1:A150")
MaPlage.AutoFilter Field:=3, Criteria1:="<>0"

Pour débugguer tu peux faire :

Code :

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

Maplage.select

et voir si la plage est bien selectionnée


Question subsidiaire, avant la macro tes colonnes sont bien filtrees ?
si oui, ou se trouve la ligne des titres sur lesquels portent le filtre ?

[j.cedric]

Bonjour,

J'ai tester plusieurs truc même sur une autre feuille il ne ce passe rien. Aucune d'erreur rien de rien.
Avec mes filtre actif ou non actif même sans les filtres quand il y a un 0 de plus il ne se passe rien.

Ma Feuille s'appelle "Cmd Frt" le macro et placer sur cette même feuille car j'ai 3 variable a modifier avant l'impression. si je me trompe pas la macro doit ce mettre a jour au 1er changement effectuer sur la feuille du macro.

Normalement ma ligne de filtre ce trouve a la ligne 20. Dois je mettre les filtres si oui filtré ou pas?

Dans le visual basic
propriétés Feuil3
(Name) Feuil3
Name Cmd Frt
et j'ai aussi
EnableAutoFilter sur False que je peut passé sur True

j'espère que j'ai donné assez d'info et que vous pourrez me dépanner.

[aalex_38]

Bonjour,

Ce qui faudrait c'est le code que tu utilses et pas les propriétés de la feuille.

Comment appelles-tu ta macro, par un bouton ...

J'ai beau multiplier les essais, le code fonctionne à chaque fois.

Bien sur il faut un filtre sur la ligne.

Encore une petite chose, est-ce que ton filtre fonctionne manuellement,
si oui enregistre une macro pendant que tu filtres sur les resultats différents de 0 et regardes ce que te donne ton enregistrement, normalement il te sufit ensuite de l'adapter et ça devrait fonctionner.