Discussion :

[awa123]

Bonjour,

j'ai deux fichiers :

le premier est "fichier de base" qui contient un tableau avec filtre
le deuxieme est "macro" qui contient une macro qui permettrait tout simplement d'appliquer un critère au filtre (décocher les cellules vides de la deuxieme colonne du tableau)

seulement voila ma macro ne fait pas cela, je ne sais pas pourquoi

je vous joints mes fichier

si quelqu'un pourrait m'aider


Merci beaucoup

[SfJ5Rpw8]

bonjour,

montre nous ton code entre balises : [CODE][/CODE]

[awa123]

Bonjour,

voici mon code

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
26
27
28
29
30
Sub test()
 
    Dim dernLigne, dernLigne1, dernLigne2, dernLigne3, dernLigne4, dernLigne5, dernLigne6 As Integer
    Dim ligne_limite, der_ligne As Long
    Dim Plage As Range
    Dim Nblg As Long
    Dim FichierBase As Workbook    'On defini comme variable FichierBase pour le fichier de verification
    Set FichierBase = ThisWorkbook
    Dim FichierWatcher As Workbook  'On defini comme variable FichierWatcher pour le fichier avec la liste des films
    Dim DLig, DLig1, Dlig_pourcent As Long
    Dim Cel As Range
    Set FichierWatcher = GetObject("C:\Users\\Desktop\filtre\fichier de base.xlsx")
 
 
 
 
    dernLigne = FichierWatcher.Worksheets("Feuil1").Range("G" & Rows.Count).End(xlUp).Row
    Set TCD = FichierWatcher.Worksheets("Feuil1").Range("E6:N" & Range("B65536").End(xlUp).Row)
 
 
    If FichierWatcher.Worksheets("Feuil1").FilterMode = True Then
 
        'boucle sur les filtres de la feuille
 
          TCD.AutoFilter Field:=2, Criteria1:="<>"
 
    End If
 
 
End Sub

[SfJ5Rpw8]

et il se passe quoi à l’exécution ?

[awa123]

erreur : l'indice n'appartient pas à la sélection

[AlainTech]

Bonjour,

Décidément, il faut te tirer les vers du nez!!!

Sur quelle ligne, l'erreur?

Après 166 messages, tu dois bien t'attendre à ce qu'on te pose cette question...

[awa123]

dsl

mais même moi cela me rend fou, d'autant plus que ça me parait pas être très compliqué à réaliser

je pense que l'erreur est dû au fait que le filtre est déjà présent, et que je lui demande à posteriori de selectionner un critère.

Peut être que ce serait plus simple que vous me montrer directement comment selectionner un critère à partir d'un filtre déjà existant en partant de zero.

pour répondre à votre question l'erreur se situe ici

Code :

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

  TCD.AutoFilter Field:=2, Criteria1:="<>"

et comme j'ai dit précedemment, je suis convaincu que l'erreur est à cause de "TCD.AutoFilter" car, sauf erreur de ma part ".AutoFilter" permet de créer un filtre, or le filtre existe déjà, tout ce que je veux c'est de selectionner un critère à partir de ce filtre, et c'est cela que je n'arrive pas à exprimer en VBA


en esperant avoir été plus clair

Merci de votre aide et de votre patience