Re : vba création d'un classeur avec onglets
Bonjour
si la manip n'est pas répétitive
tu utilises les filtres
tu filtres selon l'entreprise
tu sélectionnes les lignes avec des noms
copier
coller
ça ira plus vite que par macro (le temps de la faire, de la tester...)
si si la tache est répétitive.
j'ai trouvé ce fragment de code mais ça ne me récupere qu' une ligne et pas toutes les autres.
Sub CreeClasseurs()
Application.DisplayAlerts = False
f = ActiveSheet.Name
[A1
10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[h1], _
Unique:=True
For Each c In Range("H2", Range("H65000").End(xlUp))
Range("H2") = c
Sheets.Add
Sheets(f).[A1:F10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(f).[H1:H2], CopyToRange:=[A1], _
Unique:=False
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=c
ActiveWorkbook.Close
ActiveSheet.Delete
Sheets(f).Select
Next c
End Sub
est ce que vous pourriez m'expliquer ce code pour qu'ils répondent à ce que je veux. en l'occurence récuperer ttes les lignes issue du filtres. car actuellement il ne recupere qu'une unique ligne. ET aussi apparemment ça supprime les données du tableau originale.
Merci d'avance.