Scinder un fichier en plusieurs onglets Fermé

Question

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é

via55 · Answer

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