Appliquer un filtre dans un VBA

Version imprimable

Bonjour a tous;

Je cherche a enregistrer un une feuille de mon classeur en pdf, mais avec le particularités d'appliquer un filtre sur mon colonne L comportant des nom de communes. Je souhaiterais que cette colonne ce fasse filtre grâce a la cellule H1 d'une autre feuille dans le même classeur. Je pense qu'il faudrait passer par la Méthode "Range.AutoFilter" mais je ne parvient pas a l’appliquer a mon code déjà présent.

Mes paramètres:

F1 = Sheets ("TGRI")
F2 = Sheets("CODAGE")

source du filtre = H1 feuille:CODAGE
Tableau a filtrer = feuille :TGRI (E6:BL)
Collonne du filtre = L

mon code actuelle:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub DCsaveTGRI()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("TGRI")
Set F2 = Sheets("CODAGE")
Dim Lig As Long
 
 Application.ScreenUpdating = False
 
Lig = F1.Cells(Rows.Count, 8).End(xlUp).Row
 
  Set D = CreateObject("scripting.dictionary")
  D.CompareMode = vbTextCompare
 
  Dim liste As New Collection
   Dim i As Integer
   On Error Resume Next
   For Each cel In F2.Range("H1")
    If F2.Cells(cel.Row, 22) <> "" Then
    liste.Add cel.Value, CStr(cel.Value)
    End If
   Next cel
 
  For Each C In liste: D(C) = "": Next C 'Mise en place des filtres
F1.Range("E9:BL" & Lig).AutoFilter field:=8, Criteria1:=D.keys, Operator:=xlFilterValues
 
F1.Range("E:J,L:M,T:AA,AC:AE,AL:AM,AO:BB,BD:BG,BJ:BL").EntireColumn.Hidden = True
 
With F1.PageSetup
     ActiveWindow.SmallScroll Down:=12 'Enregistrement sous PDF
    Sheets("TGRI").Select
    Range("E6:BL").Select
    ChDir _
        "F:\L'exhydro\Gestion PEI\Dossier communale\" & Sheets("dc").Range("AC1").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "F:\L'exhydro\Gestion PEI\Dossier communale\" & Sheets("dc").Range("AC1").Value & "\" & Sheets("dc").Range("AC3").Value & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End With
' ********************** enlever filtre
If Not F1.AutoFilter Is Nothing Then
      If F1.FilterMode Then F1.ShowAllData
      F1.AutoFilter.Range.AutoFilter
    End If
' afficher colonne
F1.Range("E:J,L:M,T:AA,AC:AE,AL:AM,AO:BB,BD:BG,BJ:BL").EntireColumn.Hidden = False
 
 Application.ScreenUpdating = True
End Sub

Si une personne pourrais m'expliquer comment utiliser et configurer l'autofiltre ou bien me fournir un bout de code qui effectuerais cette action.

Dans l'attente d'une âmes charitable.

Merci

26/08/2020, 17h39
Pierre Fauconnier
Salut.

Si tu ne travailles pas avec un tableau structuré, mais avec une plage classique, tu peux t'inspirer de ce qui suit. Le principe est d'appliquer autofilter en spécifiant le numéro de la colonne sur laquelle tu places le filtre ainsi que la valeur à conserver.
Code:

1 2 3 4 5 6 7 8 Sub Test() Dim r As Range Dim City As String Set r = Range("a1:b6") City = Range("e1").Value r.AutoFilter 2, City End Sub

Bonjour Pierre;

Merci pour ton code, je l'es intégré au miens et il semble fonctionner mais je ne comprend pas pk la sélection du tableau ne fonctionne pas quand je mets "E9:BL". Avec le code que tu m'as fournie cela effectue bien le filtre mais imprime pas la bonne sélection. je te mets mon code.

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
26
27
28
29
30
31
32
33
34
35
36
37
Sub DCimprTGRItest()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("TGRI")
Set F2 = Sheets("CODAGE")
Dim Lig As Long
 
'Code filtre a inseré
  Dim r As Range
  Dim City As String
 
  Set r = F1.Range("a1:b6")
  City = F2.Range("H1").Value
  r.AutoFilter 8, City
'Code filtre a inseré
 
F1.Range("E:J,L:T,X:AE,AK:BB,BD:BF,BI:BL").EntireColumn.Hidden = True 'filtre colonne
 
 
Application.Dialogs(xlDialogPrinterSetup).Show 'Pour choisir l'imprimante
With F1.PageSetup
    .PrintArea = ("a1:b6" & Lig)
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With
F1.PrintOut Copies:=1
' ********************** enlever filtre
If Not F1.AutoFilter Is Nothing Then
      If F1.FilterMode Then F1.ShowAllData
      F1.AutoFilter.Range.AutoFilter
    End If
' afficher colonne
F1.Range("E:J,L:T,X:AE,AK:BB,BD:BF,BI:BL").EntireColumn.Hidden = False
 
 Application.ScreenUpdating = True
End Sub

28/08/2020, 10h53
Pierre Fauconnier

Je ne comprends pas ce que tu veux dire par "n'imprime pas la bonne sélection". Qu'as-tu comme résultat après l'exécution du code?

La ligne f1.Range("E:J,L:T,X:AE,AK:BB,BD:BF,BI:BL").EntireColumn.Hidden = True fonctionne sans problème...
03/09/2020, 13h56
wouairness

1 pièce(s) jointe(s)

Bonjour a tous;
Ce que je souhaitait dire c'est que quand tu sectionnelle ta zone d'impression

Code:

Set r = F1.Range("a1:b6")

pourquoi quand je souhaite mettre mes informations a savoir "E9:BL" cela ne fonctionne pas.

peux tu me dire que représente la variable R et City?

Pour information j'ai du texte au dessus des mes tableaux.
Pièce jointe 578540