Macro Création onglet avec contenu

[jbpfohl]

Bonjour,

J'ai un fichier source comprenant une liste en colonne A comme suit:
1
2
3
4
...

Pour chaque critère (par ex 2) j'ai plusieurs ligne avec 7 colonne de données corespondante soit:

1 BCDEFG
1 BCDEFG
2 BCDEFG
2 BCDEFG
2 BCDEFG
...


J'ai déjà un bout de macro qui me permet de créer les différents onglets nommés en fonction de la liste en colonne A.

Sub ajout_feuilles()

Dim nom, c

For Each c In Range("liste")
nom = c.Value
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
Next c

End Sub

J'aimerais savoir si il est possible que chacun des onglets soit remplis en fonction de la source.
Par exemple que l'onglet '2' contienne les éléments de la source ayant comme critère '2' en colonne A.

Ex:
Onglet '1':
1 BCDEFG
1 BCDEFG
1 BCDEFG
1 BCDEFG
...

Onglet '2':
2 BCDEFG
2 BCDEFG
2 BCDEFG
...

Merci d'avance!


JB sur Excel 2013

 

[mapomme]

Re : Macro Création onglet avec contenu

Bonsoir jbpfohl,

Avec un fichier joint montrant et expliquant ce que vous désirez obtenir, vous augmenteriez considérablement votre chance d'avoir une réponse. 🙄