Discussion :

[hugohours1993]

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 :

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

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.

[OlivYeah]

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 ?

Filtre_VBA.xlsm

Code :

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

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

[hugohours1993]

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

[hugohours1993]

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.

[OlivYeah]

Hugo,

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

Olivier

[hugohours1993]

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 ..