O
Oliv
Guest
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
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