Problème filtre VBA

Bonjour,

J'essaye seulement de programmer sur VBA la mise en place d'un filtre d'une colonne de mon tableau:

- J'enregistre une macro assigné à un bouton
- J'ouvre mon tableau en question
- Je mets mon filtre
- Je vois que ça marche
- J’arrête ma macro
- Je la test: il me reste plus que les titres de mes colonnes, le filtre est mis en place mais aucune donnée en desous alors qu'il devrait y avoir plus de 100 lignes correspondant à mon seul filtre mis en place.. : filtre seulement le 1 colonne 10

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Bouton22_Clic() ' ' Bouton22_Clic Macro '   ' Sheets("Feuil4").Select Range("B5").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$X$395").AutoFilter Field:=10, Criteria1:="1,00"     End Sub

---

Merci d'avance.

Bonjour Hugo,

Tu trouveras un fichier en PJ ainsi que le code ci-dessous.
J'ai ajouté un onglet "Config" qui te permet de configurer ton filtre : choix de la colonne à filtrer et choix du critère.

Petite question : pourquoi vouloir passer par VBA pour un simple filtre ?

Pièce jointe 198696

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub Filtre_Test()     Dim Ligne_Fin As Long Dim Critere_Filtre As Variant Dim NColonne As Integer   'Laisse la main à l'utilisateur pour renseigner le critère du filtre Critere_Filtre = ThisWorkbook.Sheets("Config").Range("C4").Value 'Laisse la main à l'utilisateur pour renseigner le numéro de la colonne à filtrer NColonne = ThisWorkbook.Sheets("Config").Range("C3").Value   'Compte le nombre de lignes de la plage à filtrer Ligne_Fin = Range("A" & Rows.Count).End(xlUp).Row   'Mise en place du filtre ThisWorkbook.Sheets("Feuil1").Range("A1:J1").Select Application.CutCopyMode = False Selection.AutoFilter ThisWorkbook.Sheets("Feuil1").Range("A" & Ligne_Fin).AutoFilter Field:=NColonne, Criteria1:=Critere_Filtre     End Sub

---

Bonne journée

Olivier

Merci à toi je vais essayer ça mais je comprend pas pourquoi mon code ne marche pas alors qu'il a fonctionné de nombreuses fois ..

Je vais voir si ton outil me permet de faire ce que je veux, l'idée et d'automatiser toute une série de traitement de données (formule, filtre, copier/coller, TCD) afin de pouvoir refaire instantanément les mêmes tâches.
En gros j'ai fait une analyse de données pour mon activité via excel et je veux l'automatiser pour pouvoir le refaire et le transmettre à mon entreprise.

J'ai un deuxième problème peut-être que ton outil va tout arranger, je regarde ça et je reviens vers vous si j'ai toujours un problème.

Merci

Je viens de regarder ton outil c'est très pratique et astucieux.
Cependant je dois effectuer ce filtre en addition de différentes actions programmées. Le code VBA du filtre doit être insérer dans mon code et donc l'aspect configuration n'est pas utile pour mon étude ..

Si tu peux me dire le problème dans ma formule cela serait parfait.

Merci d'avance.

Hugo,

T'est-il possible de joindre ton fichier ou ton code stp ?
Et quelle est la formule dont tu parles ?

Olivier

Malheureusement non le code est vraiment très long et le programme est pas diffusable pour mon entreprise.

Ma "formule" c'est le code que j'ai mis en premier commentaire? Mon but est seulement de faire un simple filtre en VBA et de l'intégrer dans mon code .. :oops:

Hugo,

Il va m'être difficile de t'aider sans ton code.
Cependant, tu peux tout à fait réutiliser celui de mon post plus haut sans prendre en compte l'onglet config.
Il te suffit de renseigner tes valeurs en dur dans le code.

Bonne journée

Olivier