Scinder un fichier en plusieurs onglets
Fermé
Cl0cl0o
-
12 févr. 2013 à 11:28
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 - 12 févr. 2013 à 13:47
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 - 12 févr. 2013 à 13:47
A voir également:
- Scinder un fichier en plusieurs onglets
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
1 réponse
via55
Messages postés
14408
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 mai 2024
2 704
12 févr. 2013 à 13:47
12 févr. 2013 à 13:47
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