Pb VBA et Split sur fichier Excel

Bonjour,

je suis nouveau en VBA, je regarde un peu sur le net.

je voulais faire une macro pour diviser un fichier en autant d'onglets que d’années d'une colonne

Voici le code que j'ai fait :

Sub SplitandFilterSheet()

Dim Splitcode As Range

Sheets("Feuil1").Select

Set Splitcode = Range("split")

For Each cell In Splitcode

Sheets("Feuil1").Copy After:=Worksheets(Sheets.Count)

ActiveSheet.Name = cell.Value

With ActiveWorkbook.Sheets(cell.Value).Range("data")

.AutoFilter Field:=27, Criterial:="<>" & cell.Value, Operator:=xlFilterValues

.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

End With

ActiveSheet.AutoFilter.ShowAllData

Next cell

End Sub

je ne comprends pas l'erreur,

d'avance merci

Bonjour,

kof98 a écrit :

je voulais faire une macro pour diviser un fichier en autant d'onglets que d’années d'une colonne

Je ne vois pas bien quel est l'intérêt !

Néanmoins, uns solution avec des données structurées en tableau ...

Ton code modifié

Sub SplitandFilterSheet()

Dim Splitcode As Range
    Sheets("Feuil1").Select
    Set Splitcode = Range("split")

    For Each cell In Splitcode
        Sheets("Feuil1").Copy After:=Worksheets(Sheets.Count)
        ActiveSheet.Name = cell.Value

        With ActiveSheet.Range("A1").CurrentRegion
            .AutoFilter Field:=27, Criteria1:="<>" & CStr(cell.Value), Operator:=xlAnd
            .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        End With

        ActiveSheet.AutoFilter.ShowAllData
    Next cell

End Sub

Merci beaucoup

avec mon code que tu as modifié, cela fonctionne bien !!

je vais regarder le tien pour m’entraîner et m’améliorer en VBA

kof98 a écrit :

je vais regarde le tien pour m’entraîner et m’améliorer en VBA

2 écarts toutefois :

• le filtre est fait avant la recopie
• avec dico.scripting je balaie d'abord la colonne (j'ai ms 6 mais j'aurais du mettre 27) pour en tirer les différentes valeurs