Scinder un fichier en plusieurs onglets
Cl0cl0o
-
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerai scinder un fichier en plusieurs onglets, c'est à dire la 1ere colonne comportant plusieurs divisions soit divisée en onglets soit une division par onglet avec les infos rattachées (ligne entière à chaque fois)
Merci par avance de votre aide.
Chloé
J'aimerai scinder un fichier en plusieurs onglets, c'est à dire la 1ere colonne comportant plusieurs divisions soit divisée en onglets soit une division par onglet avec les infos rattachées (ligne entière à chaque fois)
Merci par avance de votre aide.
Chloé
1 réponse
-
Bonjour,
Si j'ai bien compris ce que tu veux faire, cette macro devrait te le permettre (ouvrir editeur VBA Alt F11 Inserer un module et y rentrer la macro)
A adapter selon tes besoins
Sub scinder()
For n = 1 To 10 ' a adapter (lit depuis la ligne 1 jusqu'à la ligne 10)
nom = Sheets("Feuil2").Cells(n, 1).Value ' a adapter (lit la donnée en ligne n de la colonne 1 de la feuille appelée Feuil2)
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = nom 'cree un nouvel onglet (nouvelle feuille) et donne nom
Sheets("Feuil2").Select 'Se repositionne sur la feuille 2
Rows(n).Select 'et sur la ligne n
Application.CutCopyMode = False
Selection.Copy ' copie la ligne
Sheets(nom).Select 'se repositionne sur la feuille créee
Rows(1).Select 'se positionne en ligne 1
ActiveSheet.Paste 'colle la ligne copiée
Next
End Sub
Appeler la macro depuis Onglet Developpeur Macros Executer
Cdlmnt
