VBA - Plusieurs onglets à partir d'un onglet source

[Arnaud81]

Bonjour,

J'ai un fichier excel (cf. exemple joint ci dessous) avec un onglet "données sources" avec une liste de projets et de sous projets associés et trois onglets correspondants au trois projets principaux "P1" "P2" "P3"

La liste de projet est d'environ 400 lignes et je la récupère chaque semaine d'un autre fichier. Les projets sont identiques mais le nombre de sous projets augmentent au fur et à mesure

Je souhaiterais pouvoir, par macro (que j'intègrerai dans une macro plus globale), rapatrier automatiquement les lignes correspondant à chaque projet dans son onglet : lignes P1 dans l'onglet P1, etc...

Une idée ?

Merci d'avance

 

[BOISGONTIER]

Re : VBA - Plusieurs onglets à partir d'un onglet source

Bonjour,

Exemple

http://boisgontierjacques.free.fr/fichiers/Onglets/CreeOngletsService.xls

JB

 

[Arnaud81]

Re : VBA - Plusieurs onglets à partir d'un onglet source

C'est parfait. Merci beaucoup.

Petit plus supplémentaire, si je ne souhaite rapatrier que la colonne A C et F par exemple ?

 

[BOISGONTIER]

Re : VBA - Plusieurs onglets à partir d'un onglet source

Voir PJ

Sub Extrait()
  Set f = Sheets("BD")
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  '--- Liste des projets
  f.[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=f.[m1], Unique:=True
  For Each c In f.Range("m2:m" & f.[m65000].End(xlUp).Row)   ' pour chaque projet
     f.[m2] = c.Value
     On Error Resume Next
     Sheets(c.Value).Delete
     On Error GoTo 0
     Sheets.Add After:=Sheets(Sheets.Count)   ' création
     ActiveSheet.Name = c.Value
     [a1] = "Projet": [b1] = "Sous projet 2": [c1] = "Statut"
     '-- extraction
     f.[A1:J10000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f.[m1:m2], CopyToRange:=[A1:C1]
   Next c
End Sub

JB