Bonjour,
Je suis totalement novice dans le domaine des macro excel mais je les utilise professionnellement car elles m'ont été donnée "clé en main". Mais aujourd hui gros problème, j'en ai une qui bug et là je suis totalement démuni.
Lors de son lancement, elle me met le message d'erreur "Erreur d'exécution 1004: La méthode autofilter de la gamme range à échoué". En cliquant sur debogage, cela me met en couleur jaune la ligne de la macro partielle ci dessous "Selection.AutoFilter Field:=19". Le fichier Zippé faisant 6 Mo, je ne peux pas le joindre. Saurez vous me dépanner? Merci d'avance.
'Windows("BILAN MECANIQUE.xls").Close
Sheets("ETAT").Select
Range("A1").Select
Sheets("ETAT").Select
Columns("L:L").Select
Selection.NumberFormat = "General"
Selection.AutoFilter Field:=19
Columns("B:B").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Name = "ressources"
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1:A40000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"C1"), Unique:=True
Range("C1").Select
Selection.Font.Bold = True
Range("C2:C200").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("C:C").ColumnWidth = 18.86
Range("D1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[1]C[-1]:R[199]C[-1])"
Range("E1").Value = Range("D1").Value
nbsections = Worksheets("ressources").Cells(1, 5).Value
Je suis totalement novice dans le domaine des macro excel mais je les utilise professionnellement car elles m'ont été donnée "clé en main". Mais aujourd hui gros problème, j'en ai une qui bug et là je suis totalement démuni.
Lors de son lancement, elle me met le message d'erreur "Erreur d'exécution 1004: La méthode autofilter de la gamme range à échoué". En cliquant sur debogage, cela me met en couleur jaune la ligne de la macro partielle ci dessous "Selection.AutoFilter Field:=19". Le fichier Zippé faisant 6 Mo, je ne peux pas le joindre. Saurez vous me dépanner? Merci d'avance.
'Windows("BILAN MECANIQUE.xls").Close
Sheets("ETAT").Select
Range("A1").Select
Sheets("ETAT").Select
Columns("L:L").Select
Selection.NumberFormat = "General"
Selection.AutoFilter Field:=19
Columns("B:B").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Name = "ressources"
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1:A40000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"C1"), Unique:=True
Range("C1").Select
Selection.Font.Bold = True
Range("C2:C200").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("C:C").ColumnWidth = 18.86
Range("D1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[1]C[-1]:R[199]C[-1])"
Range("E1").Value = Range("D1").Value
nbsections = Worksheets("ressources").Cells(1, 5).Value