probleme avc les tris

[Oliv]

Bonjour à tous,

G un probleme avc une macro que j'ai créé au niveau de la fonction trier d'excel. Je veux obtenir toutes les cellules non vides de la colonne 8 et j'obtiens ce message sur une des feuilles sur laquelle la macro s'applique:

la méthode autofilter de la classe range a échoué.

Mon erreur se situe durant le traitement de la feuille contenant le plus de valeurs non vides à trier. Avant, le traitement s'effectue bien.

Voila mon programme :

Sub Recup()

Dim Feuille As String

Nb feuille = 34

' Traite les feuilles figurant dans la colonne A de la page Coef

For j = 2 To NbFeuilles + 1

Sheets('Coef').Select
Cells(j, 1).Select
Feuille = ActiveCell.Value

' Récupération par le filtre non vide

Sheets(Feuille).Select
Selection.AutoFilter Field:=8, Criteria1:='<>'
Range('A2').Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets('brouillon').Select
Range('A20000').Select
Selection.End(xlUp).Select
'descente dune lign
ActiveCell.Offset(1, 0).Range('A1').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(Feuille).Select
Selection.AutoFilter Field:=8
Range('H2').Select

Next

End Sub

Merci à tous

 

[Thierry78]

Salut Oliv,

L'erreur ne serait-elle pas à la ligne précédente:
sheets('feuille').select
Sinon, pourrais-tu poster un exemple de ta macro?

A+

Thierry87

 

[oliv]

Merci thierry ms G réussi à résoudre mon probleme.
Il yavai un décallage dans les colonnes du tri au niveau de ma feuille 36. De plus, le filtre était déjà actif sur cette feuille alors qu'il naurai pa du letre.

Merci de ta proposition d'aide en tout cas

bonne journée

 

[jpmasclet]

Re : probleme avc les tris

Erreur de post dsl