Remplissage automatique des feuilles

[Diarrassouba]

Bonjour,
Je voudrais créer un nouveau classeur et remplir les feuilles de ce classeur à partir des données d'un premier classeur.
Exemple:
Dans la colonne A se trouve le matricule et dans la colonne B se trouve le nom correspondant.
Je voudrais créer un nouveau classeur avec les feuilles comportant le nom de chaque personne inscrite. Le nombre de feuille équivaut au nombre de personnes inscrites.

 

[zon]

Bonjour à tous,




Hamed voici un code qui crée un classeur et renommes chaque feuille à partir des noms inscrits dans la colonne B de ta feuille1.


Pour 2 raisons le code est bloqué à 255 feuilles:

la 1ere à cause de SheetsInNewWorkbook qui s'arrete à 255, permet de modifier l'option qui se trouve dans Outils/option/Général/Nbre de feuilles par nouveau classeur

la 2 eme faire un classeur avec plus de 10 feuilles, Je trouve personnellement que c'est pas raisonnable, il y a des façons différentes de mettre en place un fichier Excel, mais c'est un autre sujet..



Sub Hamed()
Dim NbFeuille As Byte, I As Integer
Dim WB1 As Workbook, WB2 As Workbook

Set WB1 = ActiveWorkbook
NbFeuille = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = [B257].End(xlUp).Row - 1
Workbooks.Add: Set WB2 = ActiveWorkbook
For I = 1 To WB2.Sheets.Count
WB2.Sheets(I).Name = WB1.Sheets(1).Cells(I + 1, 2)
Next I
Application.SheetsInNewWorkbook = NbFeuille
End Sub


A+++

 

[zon]

RE,


un pb de copier coller


Sub Hamed()
Dim NbFeuille As Byte, I As Integer
Dim WB1 As Workbook, WB2 As Workbook

Set WB1 = ActiveWorkbook
NbFeuille = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = [B257].End(xlUp).Row - 1
Workbooks.Add: Set WB2 = ActiveWorkbook
For I = 1 To WB2.Sheets.Count
WB2.Sheets(I).Name = WB1.Sheets(1).Cells(I + 1, 2)
Next I
Application.SheetsInNewWorkbook = NbFeuille
End Sub