Discussion :

[Statistiques33]

Bonjour à tous,
J'ai une feuille travailleur où il y a marqué le critère pour mon filtre que je nommerai "a" comme critère. (en vrai je vais faire 3 filtres puis défiltrage mais après c'est la même chose).
J'ai ma feuille principale où j'ai le nom de mes travailleurs mais je n'ai pas les critères dans ce tableau.
j'ai pour l'instant mis un bouton pour mon critère "a" qui me filtre la feuille travailleur, bien mais moi j'aurais voulu qu'il me filtre ma feuille principale, et en fait je n'ai pas trouvé vu que ce critère ne figure pas dans ma feuille principale. ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub filtrage_bouton()
'
' filtrage_bouton Macro
'
    Worksheets("travailleur").Range("A1").AutoFilter _
    Field:=4, _
    Criteria1:="a"
    ActiveWorkbook.Save
    Range("F19").Select
End Sub

d'avance merci à vous

[joe.levrai]

Bonjour,

il te suffit de changer le nom de la feuille
attention à ton Range("F19") sur laquelle il est préférable d'indiquer la feuille hôte.

[Statistiques33]

Merci, alors j'ai changé le nom de la feuille à la suite et cela ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub filtrage_bouton()
'
' filtrage_bouton Macro
'
    Worksheets("travailleur").Range("A1").AutoFilter _
    Field:=4, _
    Criteria1:="a"
    ActiveWorkbook.Save
   Worksheets("principale").Range("A8").Select
End Sub

j'ai ensuite essayé votre code à la suite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Sub filtrage_bouton()
'
' filtrage_bouton Macro
'
    Worksheets("travailleur").Range("A1").AutoFilter _
    Field:=4, _
    Criteria1:="a"
    ActiveWorkbook.Save
   Worksheets("principale").Range("A8").Select
If Not Worksheets("travailleur").AutoFilter Is Nothing Then
      If Worksheets("travailleur").FilterMode Then Worksheets("travailleur").ShowAllData
     Worksheets("travailleur") .AutoFilter.Range.AutoFilter
    End If
End Sub

je n'ai pas pu mettre les $ comme vous cela me renvoie une erreur

[BENNASR]

Code :

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

1
2
Worksheets("travailleur").Range("A1").AutoFilter _
    Field:=4,

je crois que tu doit mettre la zone à filtrer surtout tu mets field=4 donc normalement ton tableau s'étale jusqu'a la colonne d non??
si c'est le cas :

Code :

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

Worksheets("travailleur").Range("$A$1:$D$10100").AutoFilter Field:=4, Criteria1:="a"

donc le filtre s'applique sur la colonne 4

[Statistiques33]

oui il va jusqu'à D, si je mets cela, ça me met erreur 1004 la méthode autofilter de la classe range a échoué

[BENNASR]

un petit capture écran des données de départ et si vraiment nécessaire un fichier d'exemple sans données confidentielles
je ne suis qu'un autodidacte

[BENNASR]

bonjour
à tester

Code :

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

1
2
3
4
5
6
Worksheets("travailleur").Range("$A$1:$G$10100").AutoFilter Field:=1, Criteria1:="a"
 
 If Not Worksheets("travailleur").AutoFilter Is Nothing Then
      If Worksheets("travailleur").FilterMode Then Worksheets("travailleur").ShowAllData
     Worksheets("travailleur") .AutoFilter.Range.AutoFilter
    End If