Scinder un fichier en plusieurs onglets
Cl0cl0o
-
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14730 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é
A voir également:
- Scinder un fichier en plusieurs onglets
- Fichier bin - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
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
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
