Discussion :

[mr_hodor]

Bonjour,

Je dois, a un moment de mon programme VBA, realiser un filtre portant sur les colonnes M, N et O dans ma feuille nommée "Feuil4 bis". J ai pour cela enregistré manuellement l'action de filtrer ces trois colonnes en prenant comme critere les valeurs de N par ordre decroissant. Neanmoins, en reinjectant le code obtenu dans mon programme, il me renvoie, selon les differentes modifications que je fais sur le code, une erreur 1004 ou une 91.

C est n est pas la premiere fois que je constate ce type de probleme : une macro enregistree manuellement ne marche pas souvent une fois reinjectee dans la programme.

Auriez vous des solutions pour m aider a realiser mon filtre ? Merci d avance

[Philippe Tulliez]

Bonjour,
Sans visualiser ton code, il est difficile de t'aider. Je te conseille donc de le publier ici en n'oubliant pas les balises prévues à cet effet, croisillons '#' dans l'éditeur.

[mr_hodor]

Oui, excusez moi. Voici le code :

Code :

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

1
2
3
4
5
Sheets("Feuil4 bis").Range("M1").AutoFilter
     ActiveWorkbook.Worksheets("Feuil4 bis").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil4 bis").AutoFilter.Sort.SortFields.Add Key:=Range_
                 ("N1:N65536"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
                  xlSortNormal

Je n'ai pas mis la suite car il plante des l'execution de la seconde ligne.. Je precise que j'ai un seul classeur d'ouvert, que la feuille nommée "Feuil4 bis" existe bien, et que les colonnes M, N et O sont deja remplies a ce moment la du code. Merci d'avance

[Philippe Tulliez]

Bonjour,
Ton erreur provient certainement du fait que le filtre est déjà actif. Il faut donc faire un test au préalable avec la propriété AutoFilterMode
Je te conseille aussi d'utiliser une variable objet (dans l'exemple ci-dessous sht)
Dans cet exemple la feuille est nommée [db], il te suffit de modifier le nom et c'est la colonne M qui est triée. Tu remarqueras que seule une cellule (M1 de la colonne est référencée) donc si tu as 100 lignes dans la colonne, la référence à M1:M100 n'est pas obligatoire.

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
Sub TestAutoFilter()
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Sheets("db")
 With sht
  If Not (.AutoFilterMode) Then .Range("A1").AutoFilter
 End With
 sht.AutoFilter.Sort.SortFields.Clear
 sht.AutoFilter.Sort.SortFields.Add Key:=Range( _
     "L1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
     xlSortNormal
 With sht.AutoFilter.Sort
 .Header = xlYes
 .MatchCase = False
 .Orientation = xlTopToBottom
 .SortMethod = xlPinYin
 .Apply
 End With
End Sub

[mr_hodor]

Un grand merci a vous, Philippe.
Le code plantait encore a la ligne 16, mais je crois que cela venait du fait qu un autre filtre etait actif sur les colonnes J et K. J ai contourné le probleme en effacant leur contenu
Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Je ne comprends pas.
Un autre filtre sur les colonnes J et K ?
Sauf si on travaille avec des tableaux, normalement on ne peut filtrer qu'une seule plage de données sur une feuille.
Il faudrait voir tout le code et pas quelques lignes.